Esta macro
Private Sub lista_Click()
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
v = Array(txtCod, txtProd, txtProve, txtFactu, DTPicker1, txtUbic, txtObser) 'DTPicker1 en ves de txtFFact
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
Cambie Un textBox por un DTPicker, ahora al dar click en linea del ListBox el DTPicker no recibe los datos correspondientes de la celda.
¿Alguien me puede dar una mano para que eso suceda? al dar click en linea del ListBox, los datos (fecha de celda) pasar al DTPicker
prueba con
txt.value = .Cells(rw, i + 1).value
------
Ya sé Excel, pero necesito más.