Encontre a data mais recente em uma coluna

0

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 
    
por Eric 16.03.2018 / 21:59

2 respostas

1

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

    
por 17.03.2018 / 00:16
0

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.

    
por 16.03.2018 / 22:28