makro ile satır gizleme

[merttbey]

arkadaşlar eklediğim dosyada makro gizleme işini yapıyor ancak sayfa1 de ayları değiştirdiğimde diğer sayfaları tıklamam gerekiyor gizlenmiş kişiyi çıkartmak için bütün görüntülemeyi sadece sayfa1 den yapabilirmiyim.

 

[merakli_72]

Selam kodu aşağıdaki olaya yazınız
(kendi yazdığınız olaydan silip)
ancak kodlarda bir tutarsızlık var,
1. gizlenen satırları görmk için ne yapacaksınız
2.for döngüsünün içinde aynı satır (x satırı) için bu kadar if kullanmanıza gerek yoktu. OR ie bağlayabilirdiniz


Private Sub Worksheet_Change(ByVal Target As Range)
Rows("1:200").EntireRow.Hidden = False
For X = 1 To 200
If Cells(X, 1).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 2).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 3).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 4).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 5).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 6).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 7).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 8).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 9).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 10).Value = "0" Then Rows(X).Hidden = True
Next

End Sub

 

[merttbey]

hocam çok teşekkürler çok yardımcı oldun teşekkürler