| 
Login
Una funzione per cercare dati senza CERCA.VERT
(2 VOTITALY_VOTES, VOTITALY_AVERAGE: 4.00 VOTITALY_OUTOF)
Tips and Tricks - VBA: mini progetti

Su Excelling si è spesso dibattuto sull'uso di CERCA.VERT e le sue valide alternative. 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

 

La funzione è stata proposta nel forum da cucchiaino