Jump to content
joselopezitot

Pasar con doble click de listview a excel

Recommended Posts

Hola Amigos del Foro, en esta ocación intento "Pasar con doble click 2 columnas de listview a excel, en cualquier celda seleccionada" lo cual no logre realizarlo en listview ya que soy nuevo programando, les agradezco por su ayuda...les dejo el archivo adjunto.

Private Sub ListView1_DblClick()
    ActiveCell.Offset(0, -1) = (ListBox2010.List(ListBox2010.ListItems, 2))
    ActiveCell.Offset(0, -2) = (ListBox2010.List(ListBox2010.ListItems, 1))
End Sub

 

7.- Transferir datos seleccionados de ListView a Hoja (2) (1).xlsm

Share this post


Link to post
Share on other sites

Hola, prueba así.

Private Sub ListView1_DblClick()
    
    Index = Me.ListView1.SelectedItem.Index
    ActiveCell.Offset(0, -1) = Me.ListView1.ListItems(Index).SubItems(2)
    ActiveCell.Offset(0, -2) = Me.ListView1.ListItems(Index).SubItems(1)

End Sub

Saludos

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5