Aqui está um método típico:
Sub test()
Dim r As Range
Max_date = Application.WorksheetFunction.Max(Columns("A"))
MsgBox CDate(Max_date)
Set r = Range("A:A").Find(What:=CDate(Max_date), After:=Range("A1"))
r.Activate
End Sub
Eu preciso de ajuda com o código abaixo. O que estou tentando fazer é ativar a célula com a data mais recente na coluna "A". Quando tento ativar a célula, ela continua ativando a célula "OIY3" e não há valores nessas colunas.
sub test
Max_date = Application.WorksheetFunction.Max(Columns("A"))
MsgBox CDate(Max_date)
Cells(Max_date).Activate
End sub
Você definiu Max_date
para o valor, não para o endereço da célula. Então, o Excel está tentando interpretar uma data como um endereço de célula.
Este link SO deve fornecer você com a resposta que você quer.
Tags microsoft-excel macros vba