VERIFICAR DATA ATUAL

[DANYY]

Bom dia, criei um formulario onde aparece a data e hora atual conforme configurado relogio do PC. Criei tambem uma planilha onde tem todos os dias dos meses em cada linha da coluna B: por exemplo:

Coluna B

01/09/2011

02/09/2011

03/09/2011

04/09/2011

e assim sucessivamente até o ultimo dia do mes.. como fazer para que ao clicar no botao confirma (criado no formulario), o sistema localize nessa planilha a linha com o dia atual?

[JoséA]

Tente assim...

Sub Data()
    Cells.Find(What:=CDate(Date), After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

[DANYY]

Tente assim...

Sub Data()
    Cells.Find(What:=CDate(Date), After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

Bom dia, obrigada pela ajuda mais utilizando esse codigo acima tambem ocorreu erro então fiz da seguinte forma:

dim data as string

data = date

Cells.Find(What:=data,After=ActiveCell, Lookin:=xlFormulas,_

LookAt:=xlPart,SearchOrder:=xlByRowa, SearchDirection:=xlNext,_

MatchCase:=False, SearchFormat:=False).Activate

Dessa forma deu certo, obrigada!

[JoséA]

...Dessa forma deu certo, obrigada!

O importante é que deu certo. :unsure: