EXCEL : VBA mini progetti, una funzione per cercare dati senza CERCA.VERT

Questo mini progetto crea una funzione chiamata TrovaC composta da 3 argomenti: valore da cercare (valore testuale o numerico), dove trovarlo (range), valore da restituire (range):

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