Combobox populating based on Option Button
Todd,
It should be then form class module.
What do you mean by '.. I click the button to load the form now'.
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Todd Huttenstine" wrote in message
...
Where do I put these codes? I just doubleclicked on the
form and put it there. I keep getting a debug error when
I click the button to load the form now.
-----Original Message-----
Hi Todd,
We are seeing a lot of you in here <vbg.
I think this will do what you want
Option Explicit
Dim cLastRow As Long
Dim i As Long
Private Sub OptionButton1_Click()
cLastRow = Worksheets("Sheet2").Cells
(Rows.Count, "A").End(xlUp).Row
With ComboBox1
.Clear
For i = 3 To cLastRow
If Cells(i, "A") < "" Then
.AddItem Worksheets("Sheet2").Cells
(i, "A").Value
End If
Next i
.ListIndex = 0
End With
End Sub
Private Sub OptionButton2_Click()
cLastRow = Worksheets("Sheet2").Cells
(Rows.Count, "B").End(xlUp).Row
With ComboBox1
.Clear
For i = 3 To cLastRow
If Cells(i, "") < "" Then
.AddItem Worksheets("Sheet2").Cells
(i, "B").Value
End If
Next i
.ListIndex = 0
End With
End Sub
Private Sub OptionButton3_Click()
cLastRow = Worksheets("Sheet2").Cells
(Rows.Count, "C").End(xlUp).Row
With ComboBox1
.Clear
For i = 3 To cLastRow
If Cells(i, "") < "" Then
.AddItem Worksheets("Sheet2").Cells
(i, "C").Value
End If
Next i
.ListIndex = 0
End With
End Sub
Private Sub UserForm_Activate()
OptionButton1.Value = True
End Sub
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Todd Huttenstine"
wrote in message
...
On UserForm3 I have 1 combobox(ComboBox3) and then 3
Option buttons(Option button 1, 2, and 3). I need it to
where when the user clicks on OptionButton1 and then
clicks the dropdown on ComboBox3, it will list
everything
in range A3:A52 on Sheet2. Also, If the user clicks
OptionButton2, and then clicks the dropdown on
ComboBox3,
it will list everything in range B3:B52 on Sheet2. And
last, if the user clicks OptionButton3, and then clicks
the dropdown on ComboBox3, it will list everything in
range C3:C52 on Sheet2.
What is the code I need to achieve this?
I need for the code to ignore any empty cells in any of
the ranges so that there are no blank places in the
dropdown box(ComboBox3).
Thanks to anyone who helps.
Todd Hutenstine
.
|