Combo Box Standard code

[Guest]

I would like to know wheter anyone would be willing to help me with the
standard code for a combo box

Private Sub ComboBox3_Change()
???
End Sub

I would like to lookup values in Sheet 1, Row a1:A50

 

[Zurn]

Right click on your combo-box

-> select controlpanel -> input range is A1:A50 -> cell link = B1 -
drop down lines eg 6


Private Sub ComboBox3_Change()

Dim choise As Long
choise= Sheet(input).Range("B1")

If choise = 25 then
...
End if

End Su

 

[Tom Ogilvy]

Use the listindex property if the combobox is filled from Sheet1!A1:A50

Private Sub ComboBox3_Click()
Dim rng as Range
set rng = Worksheets("Sheet1").Range("A1:A50")
msgbox rng(Combobox3.ListIndex + 1).Address
End Sub

"standard code" is not self defining. There is no standard code associated
with a combobox.