Assim
Private Sub ListView1_Click()
Dim Index As Integer
Me.ListView1.FullRowSelect = True
i = (ListView1.SelectedItem.Index) 'linha do ListView
ActiveCell = Me.ListView1.ListItems(i)
ActiveCell.Offset(0, 1) = ListView1.ListItems(i).ListSubItems(1).Text
ActiveCell.Offset(0, 2) = ListView1.ListItems(i).ListSubItems(2).Text
ActiveCell.Offset(0, 3) = ListView1.ListItems(i).ListSubItems(3).Text
ActiveCell.Offset(0, 4) = ListView1.ListItems(i).ListSubItems(4).Text
ActiveCell.Offset(0, 5) = ListView1.ListItems(i).ListSubItems(5).Text
ActiveCell.Offset(0, 6) = ListView1.ListItems(i).ListSubItems(6).Text
ActiveCell.Offset(0, 7) = ListView1.ListItems(i).ListSubItems(7).Text
ActiveCell.Offset(0, 8) = ListView1.ListItems(i).ListSubItems(8).Text
ActiveCell.Offset(0, 9) = ListView1.ListItems(i).ListSubItems(9).Text
ActiveCell.Offset(0, 10) = ListView1.ListItems(i).ListSubItems(10).Text
ActiveCell.Offset(0, 11) = ListView1.ListItems(i).ListSubItems(11).Text
Me.TextBoxFiltro.SetFocus
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/11/2011 10:57 am