Experimente:
Private Sub Atualizar()
Dim item As ListItem
Dim linhafinal As Integer
Dim i As Integer
ListView1.ListItems.Clear
linhafinal = Plan1.Cells(Cells.Rows.Count, "A").End(xlUp).Row
MsgBox linhafinal
For i = 2 To linhafinal
ListView1.ListItems.Add i - 1, , Sheets("Plan1").Range("A" & i).Value
ListView1.ListItems(i - 1).ListSubItems.Add 1, , Sheets("Plan1").Range("B" & i).Value
ListView1.ListItems(i - 1).ListSubItems.Add 2, , Sheets("Plan1").Range("C" & i).Value
ListView1.ListItems(i - 1).ListSubItems.Add 3, , Format(Sheets("Plan1").Range("d" & i).Value, "#,#.00")
ListView1.ListItems(i - 1).ListSubItems.Add 4, , Sheets("Plan1").Range("e" & i).Value
Next
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/07/2014 10:14 am