EXCEL: RICERCA ULTIMA DATA TRAMITE MACRO

[macio66]

Buongiorno
Uso questo codice per cercare l'ultima data valida e la riga di un nominativo.
Nella colonna A vi sono i nomi, e nella colonna B le date.

Sub Ultima_data()
'
nome = Range("g1").Value '<<< Il nominativo da sondare

RigaNome = Evaluate("max(if((A2:A10000=""" & nome & """),row(B2:B10000),""""))")

DataNome = Evaluate("max(if((A2:A10000=""" & nome & """),B2:B10000,""""))")
'
Range("h1").Value = RigaNome
Range("i1").Value = DataNome
'
End Sub


E andato tutto bene fino a quando, nel nominativo, erano presenti delle lettere. Purtroppo ora devo fare la ricerca anche per dei nominativi in cui e presente solo dei numeri, e la macro non funziona piu.
Come posso modificare la macro?
Grazie

[Anthony47]

Prova usando
evaluate("max(if((A2:A10000&""""=""" & nome & """),row(B2:B10000),""""))")
In Blu la parte da aggiungere

Ciao

[macio66]

Ciao Anthony
Ho provato con la tua modifica, e funziona perfettamente.
Grazie