Şartlı Satır gizleme veya silme

[cimbom05]

İyi günler,
Ekteki dosya ile skn takip sayfasındaki M sütunundan ENTER ile çıkış yaparak kg48 sayfasından bir rapor oluşturabiliyorum. Ancak şöyle bir geliştirme yapmak istiyorum. Bu işlem yapılırken kg48 sayfasından oluşturulan raporda, W7 hücresindeki değere göre sayfadaki bazı satırların gizlenmesi veya silinmesi

W7 hücresindeki değer < 21 ise yeni raporun kg48 sayfasında 26 : 121 satırları gizlensin veya silinsin
W7 hücresindeki değer < 41 ise yeni raporun kg48 sayfasında 42 : 121 satırları gizlensin veya silinsin
W7 hücresindeki değer < 61 ise yeni raporun kg48 sayfasında 58 : 121 satırları gizlensin veya silinsin
W7 hücresindeki değer < 81 ise yeni raporun kg48 sayfasında 74 : 121 satırları gizlensin veya silinsin
W7 hücresindeki değer < 101 ise yeni raporun kg48 sayfasında 90 : 121 satırları gizlensin veya silinsin
W7 hücresindeki değer < 121 ise yeni raporun kg48 sayfasında 106 : 121 satırları gizlensin veya silinsin

Bu işlemler oluşturulan yeni rapor için geçerli olacaktır. Mevcut rapor.xls dosyasının kg48 sayfası bu durumdan etkilenmemelidir.

Bu konuda ki yardımlarınız rica ediyorum.

 

[cimbom05]

Konu ile ilgili önerisi olan arkadaşlar yok mu?

 

[Ayhan Ercan]

Merhaba

Merak ettiğim bir şey var...?
W7 hücresindeki değer 10 ise yukarda verdiğiniz hangi sınır içinde yer alacak?

10 değeri, 21 dende küçük, 41 dende, 61 dende, 81 ,101 ve 121 dende küçük. Nolacak o zaman?

 

[cimbom05]

W7 sayısı 10 ise ilk olarak 21 den küçük olduğu için o şarta göre çalışacak.
41 den küçük ile anlatılmak istenen W7 değerinin 21 ila 40 arasında olması durumudur. Diğer şartlarda bu şekildedir.

 

[fremen17]

If Range("w7").Value < 21 Then
Rows("26:121").Hidden = True
End If

Umarım İşine yarar