Göster_Gizle

[alfos]

Excel de bir buton yaptım göster_gizle adında.Birde makro atadım.Aşağıdaki gibi.
Sub Göster_Gizle()
Dim Hucreler As Range
For Each Hucreler In Range("A20:A108")
If Hucreler.Value = "" Or Hucreler.Value = " " Then

Hucreler.EntireRow.Hidden = Not Hucreler.EntireRow.Hidden
End If
Next Hucreler

End Sub

Bu personel sayısı 20 olduğuda işe yarıyor Fakat peersonel sayısı 20 den fazla olduğunda A:20 değerini arttırmam gerekiyor.
Bunu yapmadan yani her personel sayısı değiştiğinde makro ile oynama yapmadan nasıl göster-gizle butonuna bastığımda en son personele kadar ve hatta en son personelden sonra 3-4 boş satır gelecek şekilde gizlensin.Makroyu gönderirseniz sevinirim.

 

[turk-x]

Sayın alfos;
kodunuzu aşağıdaki gibi düzenleyiniz.

Sub Göster_Gizle()
Dim Hucreler As Range
[COLOR="Red"]Son = [a65536].End(3).Row [/COLOR]'Son Hücreyi Bul
For Each Hucreler In Range("A" [COLOR="red"]& Son & [/COLOR]":A108")
If Hucreler.Value = "" Or Hucreler.Value = " " Then

Hucreler.EntireRow.Hidden = Not Hucreler.EntireRow.Hidden
End If
Next Hucreler

End Sub

Son Personelden 1-2 satır sonraki seçmesi içinde
Son = [a65536].End(3).Row+2 olarak ayarlayın
2 değerini ne kadar artırırsanız altta o kadar boş sutün bırakmış olursunuz

 

[alfos]

Hocam uyguladım.Fakat yine olmadı.Bir örnek gönderebilirmisiniz

 

[turk-x]

Örnek Dosyanız Ektedir.