VBA EXCEL - Multiple Listbox With MultiSelect

[Piscesto]

I've 2 listboxes, both with MultiSelect option. The 1st listbox is LstCustomer and the 2nd listbox is LstTransaction.
In LstCustomer it only showing the customer name and in LstTransaction it showing the customer name, invoice number, and transaction date.

How do I make it so that when a customer name in LstCustomer (one or more rows) is selected, the data in LstTransaction that has the same data (customer name) is also selected?

 

[John_w]

Assuming LstTransaction is a multi-column listbox and customer name is the first column:

Private Sub LstCustomer_Change()

    Dim c As Long, t As Long
    
    For c = 0 To LstCustomer.ListCount - 1
        For t = 0 To LstTransaction.ListCount - 1
            If LstTransaction.List(t, 0) = LstCustomer.List(c) Then
                LstTransaction.Selected(t) = LstCustomer.Selected(c)
            End If
        Next
    Next
        
End Sub

 

[Piscesto]

Assuming LstTransaction is a multi-column listbox and customer name is the first column:

Private Sub LstCustomer_Change()

    Dim c As Long, t As Long
  
    For c = 0 To LstCustomer.ListCount - 1
        For t = 0 To LstTransaction.ListCount - 1
            If LstTransaction.List(t, 0) = LstCustomer.List(c) Then
                LstTransaction.Selected(t) = LstCustomer.Selected(c)
            End If
        Next
    Next
      
End Sub

Thanks for you answer.
It Helps and works.