Makro Hatası

[alfos]

Arkadaşlar ekte gönderdiğim makro hatasını isteğim şekilde düzeltenlere şimdiden tşk.İsteğim;Kişiler sayfasında gördüğünüz gibi 6 kişi var ve makroyu ona göre yaptım.Yani A13:A105 arası gizleniyor.Fakat kişiler sayfasına örneğin 30 kişi yazdığımda makroyu tekrar değiştirmem gerekiyor ve A37:A105 yapıyorum.Benim isteğim ise kişiler sayfasına eklediğim kişilere bağlı olarak makro düzeltmesine gerek kalmadan otamatik olarak gizlenmesi.Yani bordro sayfasında Göster-Gizle butonuna bastığımda en son kişinin olduğu satır ile bordro nun en altındaki 105.satıra kadar olan yer gizlensin.Dosya Ektedir.Başınızı ağrıttığım için özür.

 

[turk-x]

sayın Alfos önceki mesajlarınızda ben sizin bu sorunuza yanıt vermiştim.
http://www.excel.web.tr/showthread.php?t=73290

 

[alfos]

Hocam vermiştiniz sizin gönderdiğinizi makro yu uyguladım.Ama beerenedim galiba.Dosyayı zaten ekte gönderdim.Galiba derdimi i türlü anlata madım.

 

[alfos]

Sayın turk_x kusura bakmayın.Ama dedim ya derdimi anlatamadım galiba.Bu yüzden ekte sundun dosya yı.İlk mesajımın ekinde.Yardım için tşk.Öğrenmek istiyorum.

 

[turk-x]

Sayın alfos
Kodlamanızı aşağıdaki şekilde değiştirin....

Sub Göster_Gizle()

son = [Kişiler!B106].End(3).Row + 1 'Son Dolu Hücreyi Bul ve 1 artır

For Each Hucreler In Sheets("Bordro").Range("A" & son & ":A105")
If Hucreler.Value = "" Or Hucreler.Value = " " Then

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

End Sub