Try this.
![]()
Private Sub Combobox1_Change() If Combobox1.ListIndex <> -1 Then Label1.Caption = Range("A" & Combobox1.ListIndex+1).Value End If End Sub
Try this.
![]()
Private Sub Combobox1_Change() If Combobox1.ListIndex <> -1 Then Label1.Caption = Range("A" & Combobox1.ListIndex+1).Value End If End Sub
If posting code please use code tags, see here.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks