Una svista:

Function TrovaC(ByVal daCercare, dove As Range, daRestituire As Range) As Variant
With Application
If .CountIf(dove, daCercare) Then
TrovaC = daRestituire(.Match(daCercare, dove, 0))
End If
End With
End Function

()--cucchiaino

grandissimo cucchiaino
da applausi !!!

peccato che il mio VBA sia autodidatta
mi piacerebbe capire come imparare tutte quelle funzioni che hai usato

magari mi darai un dritta se ci sono dei manuali online

ciao
mauro

Davvero una bella soluzione.

Cucchiaino, sarei per metterla in un Tips & Tricks citandoti ovviamente come autore. Sei d'accordo?

Ok per il Tips & Tricks e per eventuali dritte. Siete troppo generosi!

()--cucchiaino

Scusa ma non riesco a capire che cosa devo inserire per l'argomento daRestituire.
La funzione TrovaC mi dà errore VALORE.
Ti spiego l'ho usata su una tebella contenente Nome Cognome e NumTelefono.
La ricerca la faccio sulla 2 colonna (cognome) e voglio visualizzare il corrispondente num di tel. Volevo provare la tua funzione proprio per evitare di dover posizionare la colonna cognome per prima.
Il cognome che voglio trovare è ROSSI e ho inserito il nome da ricercare sulla cella A9, la tabella creata è A1:C5 e 3 è la colonna da cui voglio estrarre il risualtato.
Ho usato la tua funzione così: TrovaC(A9;A1:C5;3)....ma non funzia. Dove sbaglio?

Grazie

Ciao s.vallesi

Il terzo argomento va inserito come range, tutto qui.

Ciao,
G.