Macro para añadir información directo desde una ListBox a la hoja excel desde la ultima celda utilizada
publicado
Estimados buenas noches.
Agradecería su colaboración con el siguiente caso:
Estoy con el siguiente código que no me funciona, necesita dar doble clink en el ListBox y que se cargue la información en la hoja excel, cada click debe ir colocándose desde la ultima celda utilizada para abajo.
Codigo
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim uf As Integer
Estimados buenas noches.
Agradecería su colaboración con el siguiente caso:
Estoy con el siguiente código que no me funciona, necesita dar doble clink en el ListBox y que se cargue la información en la hoja excel, cada click debe ir colocándose desde la ultima celda utilizada para abajo.
Codigo
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim uf As Integer
uf = Hoja2.Range("A" & Hoja2.Rows.Count).End(xlUp).Row + 1
With Me.ListBox1
Hoja2.Cells(uf, 2) = .List(.ListIndex, 0)
Hoja2.Cells(uf, 6) = .List(.ListIndex, 2)
Hoja2.Cells(uf, ? = .List(.ListIndex, 3)
End With
ListBox mas hoja excel
t