Controle de datas

[flaviorc]

Bom dia a todos,

Estou fazendo um projeto em VBA para Excel onde tenho que controlar algumas datas de pagamentos. O projeto deve informar ao usuário quando essa data de pagamento estiver se aproximando. Quando estiver faltando 5 dias, já é para

mostrar uma mensagem ao usuario. Pensei no seguinte: Fiz uma sheet de nome Calendario e na coluna A eu fiz um calendario dia-a-dia nas celulas. No codigo VBA, estou tentando fazer um For Each In para percorrer todas as celulas da coluna A e comparar com a data de hoje, funcão Hoje() ou Today(), e me retornar somente quando essa diferença for menor ou igaul a "5". Alguem poderia me dar uma luz de como fazer isso?

Obrigado.

[Márcio Rodrigues]

Tente isto:

Sub WhatDate()

Dim P1, DatePassed As String

Dim CounterLine As Integer

CounterLine = 2

While Sheets("Plan1").Range("A" & CounterLine).Value <> Empty

ThisDate = Abs(Date) - Abs(Sheets("Plan1").Range("A" & CounterLine).Value)

If ThisDate >= 0 And ThisDate <= 5 Then

DatePassed = DatePassed & Chr(13) & Sheets("Plan1").Range("A" & CounterLine).Value & "-" & Sheets("Plan1").Range("A" & CounterLine).Address

End If

CounterLine = CounterLine + 1

Wend

MsgBox DatePassed

End Sub

'Veja se é por aí...

[flaviorc]

Ok Márcio, funcionou. Fiz alguns ajustes para me atender melhor, mas foi de grande valia sua ajuda.

Muito obrigado.

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.