Skip to main content
Realizei diversas correções ortográficas e de concordância.
Fonte Link

Criei esta Sub para tratar os dados da minha listview porémlistview. Porém, a primeira parte do meu If não está funcionando corretamente: .ListViewEntradas.ListItems(i).ListSubItems(7) < Date.

Eu gostariaGostaria de deixar em vermelho os registros que já tenham passado da previsão de pagamento (primeira- primeira condição) - e que não tivessem sido realizados ainda (segunda condição), ou seja preciso que responda às duas condições.

  • 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 a minha lógica, e? E como posso resolvê-loresolver?

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.

Eu 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), ou seja 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 a minha lógica, e como posso resolvê-lo?

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?

Fonte Link
Sena
  • 33
  • 1
  • 8

Como verificar datas que passaram da validade?

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.

Eu 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), ou seja 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 a minha lógica, e como posso resolvê-lo?