Posizione dell'ultimo dato oggetto di ricerca

[gamchicolh]

Ringrazio per il suggerimento

Ho realizzato la seguente routine che pubblico qualora mai potesse servire a qualche altro partecipante del Forum

Sub prova()
valore = 3 ‘ <------------------------------------------Valore da cercare
For ultimariga = 5 To 3000 ' <------------------ Ultima riga occupata da dati numerici
x = Cells(ultimariga, 2)
If x = "" Then
posizione = ultimariga - 1
exit for
End If
Next

MsgBox ("ultima riga " & posizione)
For flavoro = posizione To 5 Step -1
controllo = Cells(flavoro, 11)
MsgBox ("Valore della cella " & controllo)
If controllo = valore Then
exit for
End If
Next

End Sub