Como descobrir o valor de um item no listview

[Diclas]

 

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

[Basole]

Não se se entendi direito a data que voce fala é a data de hoje? for isso segue um trecho com a alteração:

For I = 2 To LinhaFinal

If Data = Sheets("BANCO").Cells(I, 1).Value Then
  
    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)
    
  End If

Next

 

[Diclas]

Obrigada Basole.

 

Era isso mesmo!!!