Gizle/Gösterde ek bilgi istemekteyim acil

[musaagac]

Arkadaşlar ektede göndermiş olduğum dosyada bordro sekmesinde gizle göster butonunda işlem sadece Son İşlemden Sonraki Boş Satırları Gizliyor. Oysaki Aradaki Sonuç Kısmı Sıfır Olanlarıda gizlemesi gerekmektedir.

 

[musaagac]

Acil Yardım Arkadaşlar

 

[Ömer]

Merhaba,

Linkteki kodlar istediğinizi yapmıyor mu?

http://www.excel.web.tr/f14/korumaly-sayfada-buton-aly-myyor-t102117.html#post556140

.

 

[musaagac]

Bordro Numarasını Dolu Gördüğü için Dolu Satır Görüyor oysaki son satır sıfır gizlemesi gerekiyor

 

[Ömer]

Bordro Numarasını Dolu Gördüğü için Dolu Satır Görüyor oysaki son satır sıfır gizlemesi gerekiyor

Verdiğim linkteki kodlardan bahsetmiştim. Zaten o kodlarda size ait ve çalışıyor sadece koruma için ilave yapmıştım.

.

 

[musaagac]

Ömer Bey ekteki dosyayı indirirseniz. Gizle Butonuna basıldığında Adnan KARTAL diye tanımlı kişideki rakam sıfır çıkıyor onuda gizlemesi lazım gizlemiyor

 

[Ömer]

Musa bey,

Ben anlatamadım sanırım. Ekteki kodlardan bahsetmiyorum. #3 nolu mesajda verdiğim linke girip ordaki kodları deneyin.

.

 

[musaagac]

Ömer Bey sizin dediğinizi anladım. Fakat Ben Göster/Gizle Butonuna şu komutu yazdım burada sadece son satırdan sonraki boş değerleri gizliyor aradaki boş değeri gizlemiyor. Bu Komut daha hızlı çalıştığı için bu komutu yazdım

 

[Ömer]

Yazılan kodlar sıfırları değil boş hücreleri gizler. Eğer amaçınız daha hızlı kod yazmak ise aşağıdakileri deneyiniz.

Private Sub ToggleButton1_Click()
 
    Dim son As Long
 
    On Error Resume Next
 
    Application.ScreenUpdating = False
     ActiveSheet.Unprotect "3872529"
 
    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "Göster"
        son = Cells(Rows.Count, "AA").End(xlUp).Row
 
        Range("A4").AutoFilter
        Range("A4:AA" & son).AutoFilter Field:=27, Criteria1:="<>0"
 
    Else
 
        ToggleButton1.Caption = "Gizle"
        Range("A4").AutoFilter
 
    End If
 
     ActiveSheet.Protect "3872529"
    Application.ScreenUpdating = True
 
End Sub

.

 

[musaagac]

Çok tşk ederim. ömer bey