Hola amig@s

Tengo este codigo que hace pasa a los textbox la linea de datos en la cual hago click

Private Sub lista_Click() 'LISTBOX
    Dim v   As Variant
    Dim txt As MSForms.TextBox
    Dim i%
    On Error Resume Next
    With Sheets("Productos")
        rw = .Range("A2:A50000").Find(lista, LookAt:=xlWhole).Row 'ANTES B5
        v = Array(txtCod, txtProd, txtProve, txtFactu, DTPicker1, txtUbic, txtObser)
        For i = 0 To UBound(v)
            Set txt = v(i)
            txt.Text = .Cells(rw, i + 1)
            Set txt = Nothing
        Next
    End With
   
    Buscar.SetFocus
    txtCod.Enabled = False
End Sub

esto con el fin de editar esos datos. En el form tengo un DTPicker, cuando hago click en la linea del ListBox, la fecha que esta en la celda que corresponde al DTPicker n oentra en el DTPicker, si no que el DTPicker queda con la fecha actual

Quiero que al dar click en una linea del ListBox, la fecha de la celda entre al DTPicker

Busque por la WEB pero,

Dejo libro