pasar datos a DTPicker

2 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
pasar datos a DTPicker

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

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 4 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
prueba con txt.value = .Cells

prueba con 

txt.value = .Cells(rw, i + 1).value

 

------
Ya sé Excel, pero necesito más.