Vba: número maior que a data

Você pode usar a seguinte sintaxe básica em VBA para contar o número de datas maiores que uma data específica:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

Este exemplo específico conta o número de datas no intervalo A2:A10 que são maiores que a data na célula C2 .

O resultado é então atribuído à célula D2 .

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: contagem maior que a data usando VBA

Suponha que temos a seguinte lista de datas no Excel e gostaríamos de saber a quantidade de datas maiores que 25/04/2023 :

Podemos criar a seguinte macro para fazer isso:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A célula D2 nos informa que existem 6 datas no intervalo A2:A10 maiores que 25/04/2023 .

Observe que podemos alterar o valor na célula C2 e executar novamente a macro para contar o número de datas maiores que uma data específica diferente.

Por exemplo, suponha que alteremos a data na célula C2 para 01/10/2023 e executemos a macro novamente:

Vemos que existem 3 datas superiores a 01/10/2023 .

Nota: Se você deseja contar o número de datas maiores ou iguais a uma data específica, basta substituir o “>” na função CountIf por “>=” .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como classificar por data no VBA
Como adicionar if entre duas datas no VBA
Como adicionar dias até a data no VBA