
Function DataNascita(a As Range, b As Range)
Dim rng As Range
Dim cel As Range
Set rng = Range("a1:a7")
For Each cel In rng
If cel.Value = a And cel.Offset(0, 1).Value = b Then
DataNascita = cel.Offset(0, 2).Value
End If
Next cel
End Function
|
=SCARTO(INDIRETTO("A"&CONFRONTA(H1;B1:B11;0));0;2) |
