Este fórum está sendo desativado

[SandroLima]

Boa noite, pessoal

Tenho o seguinte bloco "For Next" em uma Macro.

Código: Selecionar todos

For NumLinha = 1 To TotalLinhas
        If Dados(NumLinha, ColReg) <> "-" And Dados(NumLinha, ColReg) <> "" _
            And Dados(NumLinha, ColStatus) = "Pago" _
                And Dados(NumLinha, ColMes) & Dados(NumLinha, ColAno) = _
                    wshFluxoMensal.Range("MesReferencia_FluxoMensal").Value _
                        & wshFluxoMensal.Range("AnoReferencia_FluxoMensal").Value Then
            LinCriterio = LinCriterio + 1
        End If
    Next NumLinha

Preciso criar uma condição "OU" para a linha:

Código: Selecionar todos

 And Dados(NumLinha, ColStatus) = "Pago"

onde o "Status" pode ser "Pago" ou "Dentro do prazo".
Como coloco essa condição "OU" para Status dentro desse bloco?

[babdallas]

Tente isso:

Código: Selecionar todos

For NumLinha = 1 To TotalLinhas
        If Dados(NumLinha, ColReg) <> "-" And Dados(NumLinha, ColReg) <> "" _
            And (Dados(NumLinha, ColStatus) = "Pago" or Dados(NumLinha, ColStatus) = "Dentro do Prazo") _
                And Dados(NumLinha, ColMes) & Dados(NumLinha, ColAno) = _
                    wshFluxoMensal.Range("MesReferencia_FluxoMensal").Value _
                        & wshFluxoMensal.Range("AnoReferencia_FluxoMensal").Value Then
            LinCriterio = LinCriterio + 1
        End If
    Next NumLinha

[mprudencio]

troque and para or