link two combobox with label on userform

alhagag · Apr 29th 2020

hello i need help about link two combobox with lable when i choose combobox1 and combobox 2 it supposes showing this sudia-jedah but it shows this sudia-

i would adjusting this

Code

Label2.Caption = ComboBox2.Text & " - " & ComboBox1.Text

**royUK** · Apr 29th 2020

You need to re-arrange your code

Code

Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "eygept"
ComboBox2.RowSource = Range("M3:M" & Cells(Rows.Count, "M").End(xlUp).Row).Address
Case "sudia"


ComboBox2.RowSource = Range("n3:n" & Cells(Rows.Count, "n").End(xlUp).Row).Address


End Select


End Sub


Private Sub ComboBox2_Change()
Label2.Caption = ComboBox2.Text & " - " & ComboBox1.Text
End Sub


Private Sub UserForm_Initialize()
ComboBox1.List = Array("sudia", "eygept")
End Sub

Display More

alhagag · Apr 29th 2020

thanks for arranging, now it works very well

**royUK** · Apr 29th 2020

Pleased to help

link two combobox with label on userform

Participate now!

Share