Buton İle istenilen metinleri gizlenme

[KRONX]

Merhaba,
Bir buton eklemek istiyorum E Sütununda "uygundur" yazan satırları butona tıkladığımda gizlesin istiyorum . Bu mümkün müdür?
Şimdiden teşekkürler

 

[askm]

Aşağıdaki kodları kullanabilirsiniz.

Sub askm_satir_gizle()
SonSatir = Cells(65536, "E").End(xlUp).Row
For i = 2 To SonSatir
    If Cells(i, "E").Value = "uygundur" Then
       Rows(i).Hidden = True
    End If
Next
End Sub