Cerca valore rispettivo in colonna

Ciao Al

io la vedo così

---

Sub Nascondi()
valore = Cells(2, 2)
For i = 4 To Range("B" & Rows.Count).End(xlUp).Row
If Cells(i, 2) = valore Then
Rows(4 & ":" & i - 1).EntireRow.Hidden = True
Exit Sub
End If
Next

End Sub

---

se trovo il valore della cella B2
nascondo dalla quarta riga fino alla 54 in questo caso.

la colonna però ha più di una mela

perciò ho fermato la sub con exit sub per avere il primo risultato

se lo leviamo trova l'ultimo.

Vedi tu se a Mary va bene di completarla e al limite di portarla
sul change o sul doppio click come vuoi.

by by