I have a userForm to add holiday record into this worksheet. UserForm has one comboBox (userIDList) to search userID from ='Jan-July'!empName1 which is from A11 ( named Range as empName1). I am trying to add holiday details ( I mean the dates) in column T to CA ROW as per userID. I do not have any clue how could I pass the data (Holiday dates) from user form to the worksheet. Columns T10:ca10 titles are dated (01/01/2008,02/01/2008..... 29/02/2008). Do I have to use find or Select CASE.
At the moment I can locate empolyee as per userID and then select the row. I have attached the xl file.
Private Sub addButton_Click()
Dim sfind As String
Dim cl As Range
Dim fromDate, toDate As Date
'check for a value & show message
Sheet = "JanJuly"
Sheets(Sheet).Select
Application.ScreenUpdating = False
If Me.userIDList.Value = "" Then 'the textbox in userform
Me.userIDList.SetFocus
Exit Sub
Else..................................................
I am trying to have a ComboBox activate a specific sheet based on the value of "ComboBox1.Column(1)". I have many sheets to select from so i want to avoid using the Case method Here is a small sample of my code that isn't working:
I am trying to create a userform to allow user to register their new team member. In the userform, I have textbox1 (new team member) & textbox2 ( name of their leader). Once both the textbox has been filled, the user need to click on the commandbutton, which will then add the newly registered team member to the combobox1 in the Sheet1 and then create a spreadsheet(tab with the Team member name) in a separate workbook, which corresponde with the name of their leader (as filled in textbox2 in the userform.
I have created a spreadsheet that is a roster to track mutliple crews and shifts.
I have a userform which is used to select a person on shift and assign them as being on either, Annual Leave, Personal Leave, Training.... on particular days.
I would like to have the shift combobox auto populate what shift the person is on based on the person and dates entered. All the information is there I just can't get the code to do this.
I was also thinking about blocks where the shift goes from DS to NS and if people are on leave over this time. I would need the combobox to know this also.
I have attached my workbook : New Annual Leave Spreadsheet.xlsm
I am using the combo box that lists the loan officers number from the selection the loan officers name and branch is loaded. I want to be able also base on the officer selected add get the total new loans opened by that officer. I added an if statement that checks if the loan officers number from the "Oct_2012" is equal to the loan officers' selection from the combo box then add all the loans than match that criteria. I am not sure if what I am doing will work but when it reach to the For block it only reads the For statement and then go to the endif and don't execute the statement within the block.
Code: Sub cmbLnOffNum_Change() Dim idx As Long Dim LnOffRow As Long
Below is my current code. The strFind1 searches for a name within the database and then I need strFind2 to do a exact for a Subproject search and a partial search for everything containing the Subproject selected and other Subprojects. Currently, when the database entry in the worksheet includes Subproject 1 the search function works but when I have an entry that contains Subproject 1/Subproject 4 it does not find the entry. How can I expand the strFind2 to equal what is selected in the Combobox2 and find entries that have what is selected plus more text. I have set the line where I think everything is going wrong to a bold format.
I am attempting to pick up a date with time entry on a worksheet and place it into a TextBox on a UserForm. Format on the sheet is mm/dd/yyyy h:mm AM/PM. The UserForm is placing the value as mm/dd/yyyy 12:00 AM. here is the
Private Sub UserForm_Initialize() If Not Range("dDate").Value = "" Then TextBox2.Value = Range("dDate").Value TextBox2.Text = Format(DateValue(TextBox2.Text), "mm/dd/yy h:mm AM/PM") Else TextBox2.Value = "" TextBox2.SetFocus End If End Sub
"dDate" is the named range where the date is sitting. The format is also set on the TextBox2 exit event. Can anyone see why only the date portion is being transfered with the default 12:00 AM for no time component of the value?
I have a userform with numerous text boxes. One textbox is used to input a date with the following code
[Code] .....
When I have completed my userform I want to export this date as a date into range(a2) so I can then use the filter function to filter by month or year. THe problem I am having at the mo is that in the userform it is formatted as dd mm yy, but when I export it from userform it changes to mm,dd,yy. So if I entered 12th January 2014 it changes it to 1st December 2014.
A workaround is to export as text but then I use the filter by month year function so would prefer to avoid this.
I have one userform that loads combobox values upon userform Initialize. Though through a second userform changes can be made to anotherworkbook this workbook is saves any changes. when i close the second userform i need to rerun the 1st userform Initialize event to update the combobox's incase changes have been made.
I have a userform with a combobox that has three items to choose from: Blue, Red, and Yellow. When a user selects one of those options, I would like another combobox to appear on my userform with a specific list for that option.
I'm trying to make a userform that has 2 combo boxes. I have just 3 columns right now.
Procedure GrpADA-QSI DescProcedure GrpAnesthesia And Drugs9210-LOCAL ANESTH/NO SURGAnesthesia And DrugsAnesthesia And Drugs9212-TRIGEM BLOCK ANESTHCrowns And BridgeAnesthesia And Drugs9215-LOCAL ANESTHESIADenturesAnesthesia And
[Code] ........
I copied and pasted Column A into Column C and then removed duplicates. I named Column C 'ValList' and placed it in the RowSource for ComboBox1. What I now want is for ComboBox2 to populate based on my selection in ComboBox1. There are no duplicates in Column B. Duplicates are in Column A.
I also named Column A 'Proc_Grp' and Column B 'ADA_QSI_Desc'
For the properties in Combobox2, I left the RowSource empty. (that's correct right?) Because there's going to be a code that links Combobox2 to Combobox1... I think...
Is it possible that i fill the CB.list with range().value so the values are in Column 'A' and in Column 'C' and if i enter the field and select value then i see value from column 'A' & value in Column 'C'?
Then if i pick one value then the CB.value = the value from Column 'A' only, Can i solve it some how?
Carrying on from my calculation problem which now has been solved i am needing help with comboboxes
i have a combobox21 which i have made a dropdownlist ie Types of products from Product1 to Product 16 inclusive (i have sorted this)
i also have another 28 comboboxes, which of the 16 products i pick in combobox21 i need each of the other 28 comboboxes to display the the sub products
products and sub products are stored on sheet1 in the excel file as below
A B C D 1 Product1 Product2 Product3 Product4 etc ......... 2 P1A P2A P3A P4A 3 P1AA P2AA P3AA P4AA 4 ETC ETC ETC ETC
So if i pick Product1 in Combobox21 then in each of the other comboboxes i need to be able to select P1A OR P1AA ETC .....
i have a named range of products A1 to O1 Called PRODUCTS
i will have to create 16 mores ranges for the items in each product but that is no problem
I have a userform that I wish to be a front page for a work sheet containing personal staff information. I would like it to self populate according to a selection from a combo box (Surname). So far I am using the code below however where this code encounters those with the same surname it only displays the first row it comes across. Each row does have a staff ID number that is unique but I cannot search by this on its own as it would not be user friendly.
VB: Private Sub ComboBox1_Change() Dim r As Range Set r = Sheet2.Range("A:A").Find(What:=ComboBox1.Text, lookat:=xlWhole, MatchCase:=False) If Not r Is Nothing Then
I want it to populate a combobox in a userform. Should it go in the code segment for the userform, in a module, or some other place? The following is code I originally found (by Leith Ross of this board) to find the last row in column "A", and load the combo box "ComboBox1"
textbox input will be a house number combobox will be a list of all the street names that have that house number in my database
column Q are house numbers, column R are street names
when a user inputs a number into the textbox and tabs to the combobox,
for each cell in column Q of workbooks("proposals.xls").worksheets("database") that has the textbox1.value I want the cell value of .offset(0,1) to be added to the combobox.
Basically I want it to look similar to the vehicle search on auto trader, or whatcar, where you first chose the make, then use a second combobox for the model (dependent on the choice made in the first combobx.
I am trying to add a list of items to a combo box which is in a user form using vba. Find the file as attached. My code is as follows: when i double click on the combo box it opens editor.( 4th item: Frequency )
Private Sub ComboBox1_Change() With .ComboBox1 .AddItem "Y" .AddItem "M" .AddItem "D"
I have created a user form that needs dependent combo boxes. I have created multiple lists to use for different types of contacts and just want to use the if function to say that if combo box one's value is this, combo box two will use this list in its drop down box. This is what I have at the moment below.
cbosoi is combo box one and cboname is combo box 2. If I select Duty_manger from the first list I want it to point to the Duty_Manager list for combo box 2. It does that but it selects the duty manager list for anything I select in combo box one!
If cbosoi.Value = duty_manager Then Me.cboname.List = Worksheets("lookuplists comms").Range("duty_manager").Value End If
I'd like to say that this Forum is helping me very much when reading so many useful topics, get help from ppl here. From nothing I advanced my program very much. About my problem here:
I have an Excel Column with Dates (dd-mmmm-yy) and an UserForm/ComboBox. I'd like to add only the unique dates from the Excel Column to the ComboBox. The Excel Column Range is updating with new dates.
I tried to use RowSource but i don't know how to get the unique dates with RowSource. Maybe RowSource is not a good decision.
I am a total noob when it comes to userforms. I want to create a userform with a simple combobox that contains 4 different selections. Along with this combobox will be a Submit button and a Cancel button.
I'm attempting to add the values for a combobox and (2) text boxes to a list box on a form. The list has 3 columns. When I run code to add to the list box the values are added on separate rows instead of the same row. See code below and attached screen shot.
VB: Private Sub cmdAddToList_Click() Dim i As Integer Dim iRow As Integer If Me.cboParts.ListIndex = -1 Then Exit Sub For i = 0 To Me.lstParts.ListCount - 1
I have a combobox on a userform that I have set the columncount to 3, so it displays data from columns A, B, and C when the combobox dropdown is used. However, once someone makes a selection from the dropdown, only the item from the first column is displayed in the combobox. Is there a way for me to show the info from all 3 columns once a selection is made?
combobox1 is filled with values. I want the user to select one from combobox1 and combobox2 get filled in with unique values based on combobox1
Sheets Quote has 2 columns
Customer Job Stanley 1 Stanley 2 Fred 1 Stanley 3 Stanley 3 Stanley 3 Stanley 4 Fred 1
combobox1 is filled in with Stanley and Fred
based on the user selection (as an example Stanley)
I want combobox2 values to be 1,2,3,4 (having 3 listed only once)
Is there a way to modify the code below to verify that the (e) .offset(-1,0).value = combobox1
Is there a different option to use?
Code: Public Sub fill_job_num() Dim v, e On Error GoTo error1 With Sheets("Quotes").Range("B2:B50000") v = .Value End With With CreateObject("scripting.dictionary")
Is it possible to create a data base with the given sample below?
COLUMN A COLUMN B COLUMN C COLUMN D COLUMN E
UNIT TYPE CONDITION NAME TELEPHONE NO. DATE
1+1 SALE Name1 tel1 3-Oct-12
[Code] ...
The Userform has 2 ComboBoxes and 1 ListBox
ComboBox1 will be the one of the Column A Value ComboBox2 will be the one of the Column B Value
I did handle that ComboBoxes already....What I need only, when those ComboBoxes been selected the related datas will fill into the ListBox accordingly...
I have a Userform where I use a ComboBox to populate raw A from a worksheet.
I use this form to update new data that relates to the selected item in the ComboBox.
In that user form, when I select an item from the ComboBox, I idetifay it's raw and display the data from columns B,C...to I in text boxes on the Userform.
I then set the "Enable" property of the text boxes that has data to "False" so that field cannot be updated again.
What I do today is if all the fields where updated, a message box will say "All fields are full" and I clear the form.
Now I want to improve my selection by removing items from the ComboBox if all the "needing update" columns are field.
By this I want to filter out the items that where already updated before and only show the ones needing update.
Here is what I have, I need to change the UserForm_Initialize section so it will only show the rows needing update.
Code:
Private Sub UserForm_Initialize() 'Populate "Cards" Combobox. Dim rngCards As Range Dim ws As Worksheet Set ws = Worksheets("Rejects")
