linking text box with seperate combo box list
 

I have a combo box with 7 items to choose from a named
range - Range1, once 1 has been selected how do I place a
value in a seperate text box from another named range -
Range2

I.e. Range1 consists of 7 items A1 to A7 and Range2 is in
B1 to B7, if value in A4 is selceted from combo box I want
B4 to show in text box and so on...

linking text box with seperate combo box list
 

Private Sub Combobox1_Click()
Dim Range2 as Range
set Range2 = Range1.Offset(0,1)
Textbox1.Text = Range2(Combobox1.ListIndex+1)
End Sub


--
Regards,
Tom Ogilvy




"mikey_may" wrote in message
...
I have a combo box with 7 items to choose from a named
range - Range1, once 1 has been selected how do I place a
value in a seperate text box from another named range -
Range2

I.e. Range1 consists of 7 items A1 to A7 and Range2 is in
B1 to B7, if value in A4 is selceted from combo box I want
B4 to show in text box and so on