Mostrar detalle de sanción según cliente seleccionado en el listbox

H o la.

Esto va en el formulario 2

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex < 0 Then
        MsgBox "Selecciona un registro"
        Exit Sub
    End If
    With UserForm3
        .nombre = ListBox1.List(ListBox1.ListIndex, 1)
        .Show
    End With
End Sub

Esto va en el formulario 3

Public nombre
Private Sub UserForm_Activate()
'Por.Dante Amor
    Set h = Sheets("Multas")
    Set r = h.Columns("D")
    Set b = r.Find(nombre, lookat:=xlWhole)
    If Not b Is Nothing Then
        ncell = b.Address
        Do
            'detalle
            ListBox1.AddItem h.Cells(b.Row, "A")
            ListBox1. List(ListBox1.ListCount - 1, 1) = h. Cells(b.Row, "B")
            ListBox1. List(ListBox1.ListCount - 1, 2) = h. Cells(b.Row, "E")
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> ncell
    End If
End Sub

Sal u dos