Condividi:        

EXCEL: RICERCA ULTIMA DATA TRAMITE MACRO

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL: RICERCA ULTIMA DATA TRAMITE MACRO

Postdi macio66 » 02/12/20 11:34

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
macio66
Utente Senior
 
Post: 147
Iscritto il: 13/06/13 14:59

Sponsor
 

Re: EXCEL: RICERCA ULTIMA DATA TRAMITE MACRO

Postdi Anthony47 » 02/12/20 15:48

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

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19465
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL: RICERCA ULTIMA DATA TRAMITE MACRO

Postdi macio66 » 03/12/20 07:56

Ciao Anthony
Ho provato con la tua modifica, e funziona perfettamente.
Grazie
macio66
Utente Senior
 
Post: 147
Iscritto il: 13/06/13 14:59


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL: RICERCA ULTIMA DATA TRAMITE MACRO":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti