Hücredeki bilgiye göre satır gizleme

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın Sayfa1'de bazı hücreler birleştirilmiştir.
B52 ile U52 arası bu satır birleştirilmiş hücredir ve içerisinde GAYRİ yazmaktadır.
GAYRİ kelimesinin yazdığı satır sabit değil, personelin çokluğuna veya azlığına göre
bazen 50.satırda, bazen 60.satırda olmaktadır.

Benim yapmak istediğim butona bastığımda B sütunundaki GAYRİ kelimesini
bulduğunda bu satır dahil örnek olarak B52 ile B150 arasını gizlesin.

Forumda örnekler mevcut ancak benim istediğim gibi örnek bulamadım.

Yardımcı olur musunuz?
.

 

[cemşir79]

forumda bulduğum kodla yaptım bir deneyin isterseniz

 

[ASLAN7410]

Sayın cemşir79 ilginiz için çok teşekkür ediyorum, kodlar gayet güzel çalıyor.

GAYRİ yazan kelimenin bulunduğu satır sabit olmadığı için tam istediğim gibi olmadı.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi deneyin.
.

[B][COLOR="Blue"]Sub GAYRI()[/COLOR][/B]
If WorksheetFunction.CountIf(Sheets("Sayfa1").[B:B], "*GAYRİ*") = 0 Then
    Sheets("Sayfa1").Rows.EntireRow.Hidden = [B]False[/B]
    Exit Sub
Else
    [B][COLOR="red"]ilk[/COLOR][/B] = WorksheetFunction.Match("*GAYRİ*", Sheets("Sayfa1").[B:B], 0)
    [B][COLOR="red"]son[/COLOR][/B] = 150
    Sheets("Sayfa1").Rows([B][COLOR="red"]ilk[/COLOR][/B] & ":" & [B][COLOR="Red"]son[/COLOR][/B]).EntireRow.Hidden = [B]True[/B]
End If
[B][COLOR="blue"]End Sub[/COLOR][/B]

 

[ASLAN7410]

Sayın Ömer Bey, ellerinize sağlık, çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Elimdeki kodlarla ve forumdaki örneklerde saatlerdir denemediğim yöntem kalmamıştı.

Hayırlı geceler, hayırlı çalışmalar diliyorum.