Segue código da minha dúvida (Está em vermelho mais abaixo)
Private Sub Atualizar()
Dim Data As String
Dim Item As ListItem
Dim LinhaFinal As Integer
Dim i As Integer
ListView1.ListItems.Clear
LinhaFinal = Sheets("BANCO").Cells(Rows.Count, 1).End(xlUp).Row
Data = Date
For i = 2 To LinhaFinal
Gostaria que antes de adicionar o item da tabela no listview, fosse identificado o primeiro Item de cada linha da primeira coluna.
E depois verificado se esse item é igual a data se for seguir o código abaixo, senão ir para o próximo.
Tentei um ListView1.ListItems.Item.Vaue mas não existe
Set Item = ListView1.ListItems.Add(Text:=Sheets("BANCO").Cells(i, 1))
Item.SubItems(1) = Format(Sheets("BANCO").Cells(i, 2), "hh:mm")
Item.SubItems(2) = Sheets("BANCO").Cells(i, 3)
Item.SubItems(3) = Sheets("BANCO").Cells(i, 4)
Item.SubItems(4) = Sheets("BANCO").Cells(i, 6)
Item.SubItems(5) = Sheets("BANCO").Cells(i, 7)
Next
End Sub
Desde já, obrigada!
Diclas