Sıfır Değerleri Gösterme

[musaagac]

Arkadaşlar Ekte göndermiş olduğum dosyada AA5:AA500 Hücreleri arasında boş satırları gizliyor ancak ben sıfır olan satırlarıda gizlemesini istiyorum. sistem Koruma Şifresi 3872529 Yazmış olduğum komut

Private Sub ToggleButton1_Click()
Dim Son As Long
On Error Resume Next
Application.ScreenUpdating = False

If ToggleButton1.Value = True Then

ActiveSheet.Unprotect "3872529"
ToggleButton1.Caption = "Göster"

Son = Cells(Rows.Count, "A").End(3).Row - 1
Range("AA5:A" & Son).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.Protect "3872529"

Else

ToggleButton1.Caption = "Gizle"
ActiveSheet.Unprotect "3872529"
Cells.EntireRow.Hidden = False

End If

ActiveSheet.Protect "3872529"
Application.ScreenUpdating = True

End Sub

 

[musaagac]

Acil Yardım Bekliyorum Arkadaşlar

 

[N.Ziya Hiçdurmaz]

yanıt

Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 For sat = 5 To Cells(65536, "aa").End(xlUp).Row
 Son = Cells(Rows.Count, "A").End(3).Row - 1
 If Cells(sat, "aa") = 0 Or Cells(sat, "aa") = "" Then
 Cells(sat, "aa").EntireRow.Hidden = True
 Application.Calculation = xlCalculationAutomatic
 End If
 Next
 Application.ScreenUpdating = True

 

[musaagac]

Yazmış olduğum Komutu Silipte Bunu mu yazacağım bir açıklama yaparmısınız Uzman Arkadaş.

 

[musaagac]

Gizle / Göster

Arkadaşlar Şablon Ekte Bordro Sekmesinde Gizle göster Butununda AA5:AA500 Hücre aralığındaki sıfır olanlarıda göstermesin. yanlız boş olanı gizliyor

 

[N.Ziya Hiçdurmaz]

yanıt

Eki inceleyiniz.

 

[Korhan Ayhan]

Selamlar,

Döngü ile bu işlemi yapmak zaman alacaktır. Filtre yöntemi ile çok daha hızlı bir şekilde sonuca gidebilirsiniz. Aşağıdaki kodu kendi kodunuzun yerine uygulayın.

Private Sub ToggleButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "3872529"

    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "Göster"
        ActiveSheet.Range("$A$4:$AA$501").AutoFilter Field:=27, Criteria1:="<>0", Operator:=xlAnd, Criteria2:="<>"
    Else
        ToggleButton1.Caption = "Gizle"
        ActiveSheet.Range("$A$4:$AA$501").AutoFilter Field:=27
    End If

    ActiveSheet.Protect "3872529"
    Application.ScreenUpdating = True
End Sub