Pasar con doble click de listview a excel

[joselopezitot]

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

[AlexanderS]

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