adding items into 3 combo boxes on same userform error as 2 different sheets

[Patriot2879]

Hi i have a userform with 3 drop down boxes, i want to colate the date from 2 different sheets i have used the code below but i keep getting an error, please can you help, the ComboBox1 and CARRBox the data is collected from the same sheet (IN DAY LISTS) but for MTBox the data is another sheet called (FTE Search). I apprecaite your help on this thank you

 Private Sub UserForm_Initialize()
With Sheets("IN DAY LISTS")
    ComboBox1.RowSource = ""
    ComboBox1.List = .Range("F2:F" & .Range("F" & Rows.Count).End(xlUp).Row).Value
    CARRBox.RowSource = ""
    CARRBox.List = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
With Sheets("FTE Search")
    MTBox.RowSource = ""
    MTBox.List = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End With
End Sub

 

[dmt32]

Hi,
you don't say what the error is but looking at your code you are missing an End With statement

Private Sub UserForm_Initialize()


With Sheets("IN DAY LISTS")
    ComboBox1.RowSource = ""
    ComboBox1.List = .Range("F2:F" & .Range("F" & Rows.Count).End(xlUp).Row).Value
    CARRBox.RowSource = ""
    CARRBox.List = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End With


With Sheets("FTE Search")
    MTBox.RowSource = ""
    MTBox.List = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End With


End Sub

see if this solves your problem

Dave

 

[Patriot2879]

thats great thank you all sorted now much appreciated with your help.