Pasar datos de un listbox a una hoja de excel
que tal experto
mi pregunta va encaminada a pasar datos de un listbox a una hoja de excel poseo este código pero me graba en una misma celda no me graba los datos hacia abajo cada vez que seleccione un nuevo dato del listbox gracias........
Private Sub Label10_Click()
Sheets("rec-ingre").Activate
For i = 0 To ListBox4.ListCount - 1
Range("B2").Offset(i, 0).Value = ListBox4.List(i)
Next i
End Sub
Private Sub ListBox4_Click()
Range("a2").Activate
Cuenta = Me.ListBox1.ListCount
For i = 0 To Cuenta - 1
If Me.ListBox1.Selected(i) Then
'MsgBox Me.ListBox1.List(i)
Valor = Me.ListBox1.List(i)
Sheets("rec-ingre").Range("B2:10000").Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If
Next i
End Sub