Filling Combobox
Private Sub ComboBox3_DropButtonClick()
Dim rng As Range
Set rng = Range(ComboBox2.RowSource) '; <== Error here
Set rng = rng.Offset(ComboBox2.ListIndex + 1, 0)
Set rng = rng.Resize(20, 2)
ComboBox3.RowSource = rng.Address
End Sub
For the Numerical value in the Combobox2 (Which is on the RIGHT sode of the 2 columns),
should the BOUND Column be 1 or 2 ?
The error (mouse over) says Combobox2.RowSource = ""
Corey....
"merjet" wrote in message
oups.com...
This is better.
Private Sub ComboBox3_DropButtonClick()
Dim rng As Range
Set rng = Range(ComboBox2.RowSource)
Set rng = rng.Offset(ComboBox2.ListIndex + 1, 0)
Set rng = rng.Resize(20, 2)
ComboBox3.RowSource = rng.Address
End Sub
Hth,
Merjet
|