I am trying to create a macro that will allow the user to select choices from combo boxes on a userform. The choice of one combo box determines what will be shown in the next combo box and so on. This will occur a set number of times (depending on what they are looking for), at which point the list of possible choices will be presented.
I populated one combo box in UserForm_Initialize() but then I might have to change the others with Combobox1_Change()...
I'm looking to set up a combo box with different year options and add functionality so the data that can be seen on the sheet at a given time is driven by the combo box year value. (functionality somewhat like a webpage, where once you choose a certain value from a drop down box, you see data corresponding to the value)
I'm using a ComboBox ,ComboBox2_Change(), to Call and run 1 of 4 different macros. It works fine if I choose a different item in the list each time, but if I choose the same one, it won't run the macro a second time.
I have a combo box that I have populated with choices (months of the year). I require users to select the month they wish to view their payslip with and then press "Go" (a command button) and jump to the worksheet that contains their payslip info. How do I get VBA (Excel 2007) to do this please? I have tried on the CommanButton1 code page to type
If combobox1.value = "May" Then Goto Worksheets("Sheet3")
This doesn't work and I know I'm doing something wrong as I remember when I was doing my project at school you had to give each combobox selection a value like 0, 1 or 2 but I cannot remember how to do that!
I have three textboxes (16,17,18) that need to be disabled if a certain value ("Regular Hours") is in combobox1. Would I use an If statement? Also, is there a way to "gray out" the textboxes to show they are disabled?
3 work sheets nameWorksheets "InfoData" to save month NameWorksheet "Jan" for JanuaryWorksheet "Feb" for February1 x ComboBox = monthBox 4 x CommandButton = Week1Button,Week2Button,Week3Button,Week4Button --------------- I have Problem opening worksheet from userform. Name of the months are in Combox. So when I select month January from comboBox and click on Week 1 command Button it should open worksheet named "Jan" and Select Cells(2,1) to show Week 1. And Same for week 2, week 3 and week4 but will select different Range or cells. I have attached the screenshot of userform and also the workbook.
Private Sub Week1Button_Click()
For i = 1 To 13
If monthBox.Value = Worksheets("infoData").Cells(i, 1) Then
I have a pivot table that I need to copy only certain regions from the Report Filter on a frequent basis. For example, in the Report Filter, I have 18 total regions, but I only need to submit a pivot table for only 6 regions on a weekly basis. Currently, I'm filtering the 6 regions individually from the "data dump" and making 6 pivot tables as separate workbooks...and then emailing them out. I need to make the underlying detail available for each location that is getting their "report". I have the code for emailing a single worksheet from a workbook so, at least, I have that little tidbit taken care of.
1. I am starting with two independent tables, one with ‘ItemA’ and the other with ‘ItemB’
2. The user must be able to select an itemA which will point to itemB list, showing only a specific pre-defined group or combination of the itemBs.
3. This pre-defining of the itemB combination will be done uniquely for each itemA selection
Example: Selection of an itemA, row 2 will show, say, an itemB rows 2, 4, & 7 only. Selection of itemA, row 3 will show an itemB rows 4, 5, & 9 only. Selection of an itemA, row 4will show an itemB rows 2, 7, 11 & 13 only, etc.
4. In reverse, the user also needs to be able to select an itemB and display all itemA’s common to that itemB. Using the example above, the entry or selection of an itemB, row 2 will show rows 2 & 4, itemA.
i have a user form with 4 combo boxes and one text box. what i've tried to do is make it so that if the month combo box reads january, then all of the info is placed in a worksheet called january. at the moment it is putting all the info inputted into one sheet. if some one could take a peek at the code below.
If cbomonth.Value = January Then Sheets("January").Select
Range("A1").Select
Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) Or IsEmpty(ActiveCell.Offset(0, 1)) Or IsEmpty.....................
I thought I had finished my project but I keep getting errors, the latest one being that I have 2 comboboxes on userform "timekeeping". When I press the commandbutton "Submit", I want the values in the textboxes on that form to be placed in the spreadsheet, depending on what the selections the user has made in the comboboxes but I keep getting an error saying that the macro doesnot exist in the workbook even though it does!
The file is too big to upload here so it is found on rapidshare
I have a TextBox and a ComboBox. the TextBox shows the current date
VB : TextBox1.Value = Format(Date, "dd/mm/yyyy")
The ComboBox has a list index of years say from 1991 to 2030. Is it possible Change only the "yyyy" in the TextBox based on the changed value in ComboBox.
Say the textbox1 shows today 14/06/2014. now if we select 2016 in ComboBox1 the TextBox1 date should changed to 14/06/2016.
when i choose material from my combobox Options (cboTM), i wanted, only the textboxes regarding to the sheet material unlocked, and the others locked with the color of the form, and the same for the other options like worklabor and equipments. i could blocked for material with this code :
[Code] .....
The prob is, worklabor and equipments will be blocked too, and i dont know how to put correct info on the textboxes.
I have a set of 4 multiple choice answers B,C,D,E column "F" lists a # 1-4 which lets you know which column letter (b,c,d,e) the correct answer is in. I want to set up a formula that will copy the contents of the correct answer (based on that # identifier) and copy it into column "A" which is currently blank.
I have a frame (Frame1) on a userform added using Microsoft Forms 2.0 Frame. I have added option buttons to the frame named OptionButton1 thru OptionButton4. I am trying to add code where certain cells are copied and pasted depending on which optbutton is selected. I tried the following code but because the option button is a frame object it doesn't seem to trigger the event.
Private Sub OptionButton1_Click()
'copy level 1 If Me.OptionButton1 = True Then Worksheets("Sheet1").Range("G10:G32").Copy Worksheets("Sheet1").Select Worksheets("Sheet1").Range("C10:C32").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False End If
I am looking to modify my combobox from a userform to Filter the list based on the first entry on what the user will add.
I have a code that will search for all entries in my "Control" sheet and passed this on to my combobox:
[Code] ......
I have, within a module, the following function code that the user find the entry by adding the first 3 letters of the search they need:
[Code] .....
I would like to know what to change in the function to filter the list, once the user adds a first letter and then press the dropdown from the combobox, to filter the list based on all entries from the first letter to only show entries with that letter.
If A is entered, then, show only the entries strating with the starting letter A, but at the same time if the user adds more letter to filter to the first then second letter:
If AB is inserted, then, show entries with AB only.
Where do I add this code also, is this another function or this could be inserted within my function?
A_________ B Frank Sinatra C Sammy Davis D Dean Martin E Joey Bishop F 3
I want to put "D"'s value 'Dean Martin' in column A - i know it belongs in A because the "3" in column F indicates its the 3rd answer listed i.e Dean Martin. This format would be the same where there are 4 possible answers on the column to the right dictates which answer is correct.
I have a drop down combo box with 4 options in (1, 2,3 and 4). Under this I have a label. What I want to do is have it so if I select, for example "2", then it says "D11 DJJ" In the label. The name of my CBO is CBOCarNum and the name of the label is LBLRegi
I would like to have a ComboBox on a worksheet (worksheet1) that is populated by a list on another worksheet (worksheet1). Each time I select something from the ComboBox, it would display text in a cell within worksheet1.
For example, the ComboBox would have "Cat", "Dog", "Cow". And when I select "Dog" from the ComboBox, it would display in a cell nearby "Woof".
I have ComboBox on a UserForm that is looking to a long list on a worksheet. A lot of the entries in this list start with a brand name instead of a more discriptive name. I really need to be able to find an entry with any key word (not just the first word) in this list.
I'm trying to get my textbox in my userform to get its value from my combobox's value with an offset and its been giving me some trouble. This is what I got so far and it works with no offset
Private Sub ComboBox1_Change() TextBox1.Value = ComboBox1.Value End Sub
And this is what I got so far for an offset which doesn't work
Private Sub ComboBox1_Change() For i = 1 To 43 TextBox1.Value = ComboBox1.Value.Offset(i, 1) Next End Sub
I have a combo box on my userform. The selection made in the combobox will eventually control a calculation. I would like to generate some code so that when the user makes a selection in the combo box, and fills in all the requied info on the form, they can click a button on the userform which will generate a new combobox on the worksheet which would contain the user selection, along with the array that populates the combobox on the userform.
I've created a macro that searches the active worksheet for a textboxvalue and copies all full and partial matches to a multicolumn listbox. However, I'd like to install some sort of filter that prevents registrations not containing the value in a combobox from making it into the listbox (so I'd actually like to search for registrations meeting two criteria, i.e. an advanced search). The macro I'm using is:
Private Sub Query_Change()
Dim vFound As Range Dim strFirstAddress As String
On Error Goto ErrorHandle
Set vFound = Cells.Find(What:=Query.value, After:=Cells(1, 10), _ LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not vFound Is Nothing Then strFirstAddress = vFound.Address
I've attached the workbook I'm working on, in case I haven't made myself sufficiently clear in the above.
I have a worksheet called "Lookup" with several dynamic named ranges (each is 1 column wide) including facility, department, shift, etc. On a summary worksheet in the same workbook I want users to use a dropdown or combo box (don't care what type) in cell B2 to select a facility and then based on their selection, copy the department named range data and paste it into the summary sheet beginning in cell A5 and paste the shift named range data into the summary sheet beginning in cell B5.
Example: user selects "AR Plant" from the dropdown or combo box and the data from the "AR_Rpt" named range is pasted into cell A5 and the "AR_Shift" named range is pasted into cell B5.
I have some data in sheet1 with 10 columns and 5000 rows. I want to filter the data with 2 criterios.
When I go to 4th column and Click custom filter, I will give one criteria and select "or" and give another criteria. SO I will get the result in sheet1, I need to copy the data and paste the same in sheet 2 with the header.
The problem is, I need to filter more than 20 times giving the criteria and copy the result and paste in sheet 2 one after the other.
So i need a macro to solve this time consuming work.
I just paste the two criteria either in a text box or some cells and run the macro. the macro has to filter the data in sheet1 based on my input.( that is criteria1 or criteria 2) and the result should be pasted in sheet2 with the headers. Again I delete the values in my input cell, and paste the new values, and run the macro, that result should be pasted after the first result, with the header. (would be great if that is pasted leaving one row above, that is if the first result is pasted in sheet 2 till 10th Row, then the send result should be pasted in 12th row and so on..
the similar kind of question with some changes, I posted in the below link with http://www.excelforum.com/excel-prog...in-sheet2.html
I currently have a drop down menu in one of my worksheets, in which I have several different text values entered. What I would like to do is link each of those text values to a numerical value, which would be entered in to another cell. So if I select "Option A" from my drop down list, and Option A is equal to 200, I want "200" to show up in another cell. If I select "Option B" from my drop down list, and Option B is equal to 400, I want "400 to show up in that same other cell.
I have a worksheet that has 8 activex listboxes. Each listbox is tied to the sames list of values (identified as a named range). The named range is a list of countries. Each country should only be selected once, therefore, I would like the selected country(ies) to not show up as a choice when the user makes a selection from another listbox. If this is too hard, maybe we can get a msgbx to appear anytime the users tries to select a country that has already been selected.
I have 2 comboboxes on a userform. In combobox1 I have a list of years which is pre-populated. In combobox2 i have some data. What i'd like to do is to sort combobox2 using the year selected from combobox1.
I have tried this slightly modified code from a different project, but cant get it to work correctly. The code below autofilters, and selects the correct range, but will not populate the userform combobox... the highlighted row seems to be the problem:
Dim rngToCopy As Range With Sheets("Project") .AutoFilterMode = False .Range("B:B").AutoFilter field:=1, Criteria1:=ComboBox6.Value With .AutoFilter.Range On Error Resume Next Set rngToCopy = .Offset(1, -1).Resize(.Rows.Count - 1).Resize(, 3) On Error GoTo 0 If rngToCopy Is Nothing Then MsgBox "No projects currently set up for the selected season!...": Exit Sub End With rngToCopy.Copy Destination:=UserForm5.ComboBox2.List .AutoFilterMode = False End With
In my data, i'd like to return columns A, B and C.