ciao
Sub Prova2()
Dim i As Long
Dim cella As Variant
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
cella = Cells(i, 1).Value
If cella = Range("E2") And Cells(i, 2) = Range("F2") And Cells(i, 3) = Range("G2") Then
Range("J2") = i
Exit For
End If
Next i
MsgBox "Riga di riferimento " & i
End Sub
servono solo quete righe e la funzione logica And
Ciao da locate
excel 2007 / 13