Çoklu satır gizleme

[waytooraider]

Merhaba,
A stununda değişik satırlarda yazan elma kelimesine göre filtresiz satır gizleme konusunda yardımcı olabilir miydiniz?
Saygılarımla.

 

[GursoyC]

Satır sayısını kaç isterseniz o kadar yapabilirsiniz. Ben 65000 yaptım ama sizin dökümanınıza göre fazla veya az olabilir.

Dim i As Long
For i = 1 To Cells(65000, "A").End(xlUp).Row
    If Cells(i, "A").Value = "elma" Then Rows(i).Hidden = True
Next i
End sub