Criei esta Sub
para tratar os dados da minha listview
. Porém, a primeira parte do meu If não está funcionando corretamente: .ListViewEntradas.ListItems(i).ListSubItems(7) < Date
.
Gostaria de deixar em vermelho os registros que já tenham passado da previsão de pagamento - primeira condição - e que não tivessem sido realizados ainda
- segunda condição. Desta forma preciso que responda às duas condições.
O problema é que se eu coloco o sinal de menor que (<) ele considera que todos os registros da listview correspondem a condição. E quando coloco o sinal de maior que ele considera que nenhum corresponde.
Sub PassouDaPrevisao()
Dim Colunas As Integer
Dim Linhas As Integer
'userform EntradasTeste
With EntradasTeste
Colunas = .ListViewEntradas.ColumnHeaders.Count
Linhas = .ListViewEntradas.ListItems.Count
For i = 1 To Linhas
'se a data de previsão for mais antiga que a data atual & se estiver marcada como não realizada
If .ListViewEntradas.ListItems(i).ListSubItems(7) < Date And .ListViewEntradas.ListItems(i).ListSubItems(8) <> "Realizado" Then
.ListViewEntradas.ListItems(i).ForeColor = RGB(255, 0, 0)
For X = 1 To Colunas - 1
.ListViewEntradas.ListItems(i).ListSubItems(X).ForeColor = RGB(255, 0, 0)
Next
End If
Next
End With
End Sub
Qual o problema com minha lógica? E como posso resolver?