I have a dropdown box containing text strings. How can I use the selection from a combo box as part of a formula?
So for example I have a spreadsheet that is set up using a search term 'media', I want to select something else from the list e.g 'arts' and I want all of the references to 'media' to turn into 'arts' in the formulas. Kind of like a mass find and replace.
I'm trying to autofill a series of rows (that are blank) with data from an above row. I want to autofill the row in its entirety, not just filling in blank cells.
For instance (assuming comma is a new column). Colors listed are just a data example. Space between commas indicates a blank cell:
142, RED, GREEN, , YELLOW, , BLACK, PURPLE
(blank row)
142, GREEN, RED, ,BLACK, , PINK, ,
(blank row)
(blank row)
(blank row)
154, YELLOW, BLACK, , GRAY, , PURPLE, RED
(blank row)
(blank row)
So rather than it just completing the task in one desired cell, it would complete the task over the entire spreadsheet. Data spread can be as far as row 500 and column BY, so you can see how a copy + paste or a drag would get monotonous.
Another small example data set:
1,1,1453,0,10,-35
(blank row)
(blank row)
0,0,1448,0, ,-35
(blank row)
1, ,1443,1,3,-36
1,2,1408,2,7, ,
(blank row)
(blank row)
(blank row)
1,2, ,2,7,-39
(blank row)
(blank row)
1,3,1344,1,10,31
And column A will always have data (unless the row is completely blank.
As per the attached file, the B2 cell representes the person ID and is equal to 2 in the worksheet "Sheet1".
The available macro from that same worsheet will simply create a new entry on the "DB_PLAYERS" worksheet with a new ID without taking on board the cell B2.
What I would like to do is: IF the B2 cell is present in the A:A "DB_PLAYERS" worksheet then It would replace data of the existing ID.
In the current attached file: if you directly open it and click on the "SAVE" button, I would need to have the 3:3 replaced and have the new last name "SMITH" instead of "KELLY" in the cell C3.
is it possible to replace the value of all the cells which have value =customer in the entire sheet.
for this first i will have to first search for all those columns which have value = customer and then replace them all.
how I could find 1 character and replace the entire cell. For example, it would find "<12", "<3", and "<32" based on "<" and then replaced that entire cell with "N/A".
View 2 Replies View RelatedI have a very large spreadsheet that I am using to track/analyze enterprise roles and the permissions that go along with each role. On the first sheet, I have a list of all employees (Name, Title, Department, etc) and on another sheet, I have a list of all Security Groups and Distribution Lists (with Members.) What I need to do is create a vba script that completes (1) a VLookUp using the Name column of the Employee sheet as the Criteria and then check against the first column in the Groups/Lists sheet for the matching name. If the employee's name from the Name column is found in the Group/Lists column, replace that name with the employee's Title from the Employee sheet. I then need this process to loop and continue through each column of the Groups/Lists sheet until all columns have completed. The end result should be that all names on the Groups/Lists sheet have been replaced with the corresponding Title found on the Employee sheet.
View 14 Replies View RelatedI have a workbook with many different worksheets containing data. I am looking to find a certain city name in each worksheet and then replace the region name immediately to the left of the city name.
Example:
Before:
Region City
SCAL ALBUQ
After:
Region City
SCAL_O ALBUQ
How can I replace the border style with a macro across my entire data?
I would have assumed something like this would work:
[Code] .......
I'm trying to sort a spreadsheet that has 6 columns with 36 rows total. I want to alphabetize the entire spreadsheet, from A1 to F36 so that A1 is the first of the alphabet and F36 is the last. When I select all the data on the spreadsheet and click sort by ascending, it sorts the columns within themselves instead of within each other.
View 5 Replies View RelatedI've got spreadsheet I use to control the inventory of my user equipment; who has it, what is it, where is it, etc.
I'd like to "lock" multiple consecutive cells of each row so that they never seperate. This is because they need to be together. However, periodically, I need to move, sort, or rearrange the sheet.
Is there a way I can "idiot proof" this so that these cells never come unlocked from each other?
There is no vba involved (primarily because I don't know how), and no other scripting either.
For simplicity, let's assume I have three columns, "Company," "Policy," and "Balance."
Example:
Company A Life $1
Company A Med $2
Company A Dent $3
Company A Disab $4
Company B Life $9
Company B Med $5
Company B Dent $7
Company B Disab $2
According to my post preview, the columns are running together, but I do have it arranged in three distinct columns. What I want to do is program a macro to do the following:
Every time the name of the company changes, I want Excel to insert two rows after the last of the group, and have a summation of the "Balance" column in the first inserted row.
This is what it should look like:
Company A Life $1
Company A Med $2
Company A Dent $3
Company A Disab $4
$10 <- (this should be directly under the $4, but I'm not good with forum languages)
Company B Life $9
Company B Med $5
Company B Dent $7
Company B Disab $2
$23 <- (same with this - should be directly under the $4)
I need a command to copy an entire sheet into some variable, in order to paste that variable in the same sheet later, if necessary (classical undo functionality).
Something like:
Private Sub CopySheet()
w = Worksheets("test")
...
...
Worksheets("test") = w 'UNDO if necessary
End Sub
I insert a button in spreadsheet, when I click this button a userform appears with place to input value. I would like to check the entire column (maybe < 100 rows), if there is number exceed the input, then disply that ROW in another sheet.
View 1 Replies View Relatedfirst need to look for "PR" in column G, if found need to cut the entire row and insert at the top of the same worksheet.
View 1 Replies View RelatedI'm wondering if it's possible to have a formula applied to an entire column without adding unnecessary length to the spreadsheet until someone is actually scrolling down and using more rows. I want formulas to be constantly present in two columns to automatically calculate values as they are entered into other cells in the same row, but ideally without the otherwise empty spreadsheet being X amount of rows long.
I initially had the formula dragged down 15,000 rows, but it would really be much better if it could start out as a smaller size and then expand as the user requires.
I have this problem quite often and always have to think of a way around it, however I think there must be a simple method of doing what I want.
If I want to select row three, I would write:
Rows("3:3").Select
However, if I have a variable which holds my row number how do I rewrite the above code? I've tried serveral varations of:
Rows("CurrentRow:CurrentRow").Select
My goal is to be able to use a combo box on a userform to filter a spreadsheet. I need my users to select the dropdown arrow on the combobox, find the one value they need out of a list of about 50, and have the spreadsheet in the background filter based on that user selection. At this time my form has several checkboxes to filter the spreadsheet which works as expected but again, I think I need to use a combobox for this certain set of data in conjunction with the other checkboxes. Searching on the more obvious terms leads to lots of advice and code on how to filter results within a combobox, but not how to use a combobox to filter a spreadsheet.
View 2 Replies View RelatedI want to filter my results using a combo box on my spreadsheet. I don't mind how this is done, even if it just hides all of the information which isn't relevant. I've done it with a VLookup but I want to be able to edit it easily without the formula popping up. So if you click Barlcays, only barclays appears. I'd also like a button to reset if possible. I've attached an example of how I sort of want it to work.
View 3 Replies View RelatedHow do I use a variable to name the combo box?
I'm using ComboBox1 through ComboBox15.
In order to populate my combo boxes I always use the same code:
[Code] ......
I know how to change RangeName easily enough, but how do I change ComboBox# to be the value of the combo box I'm populating? I want to run the sub routine instead of putting the code in every time. It really adds up especially with other statements.
Having a problem with ComboBox on spreadsheet, not Userform. When the Sheet1 is first opened the ComboBox is not populated, if I click on Sheet2 and then Sheet1 ComboBox is populated and works fine. It appears that I need some additional coding.
View 3 Replies View RelatedMy current dataset goes to row 256, when I use the Macro Recorder it produces the following "static" code.
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"claim_export!R1C1:R256C23", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Sheet5!R3C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion12
QUESTION/PROBLEM:
Each month the amount of rows could be different (columns should be the same)... I have tried (3) different ways to replace the 256 with my variable name called "numbers"
SourceData:="claim_export!R1C1:R " & numbers & "C23" OR
SourceData:="claim_export!R1C1:R[" & numbers & "]C[23]" OR
SourceData:="claim_export!R1C1:R[" & numbers & "]C23
They all produce the same resulting error:
Run-time error '5': Invalid procedure call or argument.
Note* I am sure my variable is working, because when I "step into" (F8) my code and hover over my variable I can see it showing the number I expect.
I'm looking to change the value of a variable using the selected value of a combobox. I've used the following
Dim DatabaseVal As String
'then on selecting my option from the combo box: "JVU" or "VPU" are the only two options.
DatabaseVal = cmbDbase.Value
When I try and use the variable 'DatabaseVal' to populate a value in another workbook (the workbook contains a reference to the add-in running the above macro), the cell just gets populated with a blank value. I'm sure I'm doing something stupid, but can't see what.
I am attempting to use the Find and Replace code you assisted with me into another project, But I am missing something. I keep getting a Variable not define error when I go to search for a CMM # in the add a referral form.
Highlight in yellow is the code ...
I have never used VBA in word before, so I am assuming I am making it more complicated than it needs to be. I have a macro that stores 20 excel values as variables, then opens up a word document. I want to replace values in word with my values in excel. I keep getting an error with the replace part. I do not want to use bookmarks or mail merge. MSWord is a reference in excel VBA.
Code that stores excel variables (Example: Var1=Data1 and Var2=Data2)...
'Opening up the correct word document
Dim WdApp As Object, WdDoc As Object
Set WdApp = CreateObject("Word.Application")
WdApp.documents.Open ThisWorkbook.Path & "" & Range("D1").Value & ".doc"
WdApp.Visible = True
[Code] ..........
I'm trying to work on a macro that will copy two cell ranges (name of current month and prvious month) from one location, store it as a variable and use that variable to find replace similar text string in another tab. Below is my code which is not changing the values in another tab...
Dim OldMonth As String
Dim NewMonth As String
Sheets("X1").Select
[Code]....
I have the following array function that I am trying to get to work properly:
ActiveCell.FormulaArray = "=SUM(IF(NCR!O2:O100=39326,NCR!Q2:Q100,0))"
39326 is the value of 9/1/2007, and this formula works properly.
I am looking for a way to use this formula but replace 39326 with whatever date is in the first row of the same column as the active cell when it is run.
That is, if the macro was run with cell B8 as the active cell, "39326" would be replaced with whatever value was in cell B1.
when i am doing the coding
may i know if there is a way to replace the cell address $A9 below: ...
I have 100 combo boxes on an excel sheet, they are divided in three sets (1-25, 26-50, 51-100). Each set has the same value within the set, but is different from the other.
Right now I am able to populate the combo boxes using the following code
Code:
ActiveSheet.ComboBox1.AddItem "Value1"
ActiveSheet.ComboBox1.AddItem "Value2"
ActiveSheet.ComboBox1.AddItem "Value3"
^ This is time consuming and error prone. Is there a way I can use a variable to populate the combo boxes?
I have been able to find the following code, but it does not work.
Code:
Dim ComboBox As ObjectFor ComboBoxCalc1 = 1 To 25
Set ComboBox = ComboBox(ComboBoxCalc1).Select
ActiveSheet.ComboBox(ComboBoxCalc1).AddItem "Value1"
ActiveSheet.ComboBox(ComboBoxCalc1).AddItem "Value2"
ActiveSheet.ComboBox(ComboBoxCalc1).AddItem "Value3"
Next
I have a userform with 3 Comboboxes, all of which need to be populated from the dropdown option before OK is pressed. I haven't used any fancy names as this is just a straightforward (or so I thought) entry form ... the UserForm is called UserForm1 and the 3 ComboBoxes are called ComboBox1, ComboBox2 & ComboBox3. I have tried to be economical with my validation routine but I cannot get an incremental variable added to the end of the word "ComboBox" to be recognised ... my code is below :
Private Sub Validate_ComboBoxes()
While MyComboCount < 3
MyComboCount = MyComboCount + 1
MyComboBox = "ComboBox" & MyComboCount
Select Case "UserForm1." & MyComboBox <<<< This fails
Select Case UserForm1.ComboBox1 <<<< This works
Case ""
MyValidCheck = MyValidCheck + 1
Select Case MyComboCount
Case "1"
MsgBox "Enter the number of weeks for this period"
Case "2"
MsgBox "You need to enter a start date"
Case "3"
MsgBox "You need to enter an end date"
End Select
End Select
If MyValidCheck > 0 Then
MyComboCount = 4
End If
Wend
End Sub
I'm trying to get some vba to automatically find the range of data in a spreadsheet (So start from a specified point and loop until it's blank) and populate a combobox with this range accordingly. I have read numerous articles and posts but nothing seems to work!!
I am using Excel 2007.