VBA linking listboxes

[twildone]

I have created an userform with two Listboxes having Multiple option.

The Listbox1, is populated with the Program_Number of column G of sheet Master.

The Listbox2, is populated with the Program_Name of column H of sheet Master.



What I am trying to do is if the Program_Name is selected from Listbox2, then the Program_Number in Listbox1 is automatically selected as well so that the Program_Number and Program_Name are unique I would also like to be able to enter new Program_Name and a corresponding Program_Number if I need to. How can I link these listboxes?

 

[DanteAmor]

What I am trying to do is if the Program_Name is selected from Listbox2, then the Program_Number in Listbox1 is automatically selected

Try:

Private Sub ListBox1_Click()
  ListBox2.ListIndex = ListBox1.ListIndex
End Sub

Private Sub ListBox2_Click()
  ListBox1.ListIndex = ListBox2.ListIndex
End Sub

Private Sub UserForm_Initialize()
  Dim lr As Long
  lr = Range("G" & Rows.Count).End(3).Row
  ListBox1.List = Range("G2:G" & lr).Value
  ListBox2.List = Range("H2:H" & lr).Value
End Sub

Ex:

I assume the above is for testing purposes. Since you can have the same thing with a single listbox and the listbox with 2 columns.

Try:

Private Sub UserForm_Initialize()
  Dim lr As Long
  lr = Range("G" & Rows.Count).End(3).Row
  With ListBox1
    .ColumnCount = 2
    .List = Range("G2:H" & lr).Value
  End With
End Sub

Regards Dante Amor