Adding WorksheetData to a ComboBox on a form?
Hi Everyone,
I am a real novice and am having a difficult time with coding. I
agreed to make an Excel program to track adverse drug experiences for
work and I would like to fill a ComboBox on a form I created with data
from a single column on a worksheet.
Here is the coding for my form:
Private Sub ComboBox1_Change()
Dim i As Long
Dim S1 As Worksheet
Set S1 = Sheets("DataEntry")
S1.Select
Range("A2").Select
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
UserForm6.ComboBox1.AddItem S1.Cells(i, 1).Value
Next i
End Sub
Is there something goofy with my coding?! It seems to run alright, but
there are no values listed in the drop-down box. PLEASE HELP!!! I've
wasted too much time with something that is probably pretty easy to
solve.
Thanks,
Jeff
|