Soru Togglebutton ile belirli aralıkta dolu olan satırları gizle göster

[sirkülasyon]

'Private Sub ToggleButton1_Click()
'Dim Satır As Long
'Application.ScreenUpdating = False
'If ToggleButton1 = True Then
'Rows("2:500").EntireRow.Hidden = False
'For Satır = 2 To 500
'If Cells(Satır, "a") = "" Then
'Rows(Satır).Hidden = True
'End If
'Next
'ToggleButton1.Caption = "GÖSTER"
'Else
'Cells.EntireRow.Hidden = False
'ToggleButton1.Caption = "GİZLE"
'End If
'Application.ScreenUpdating = True
'End Sub

yukarıda ki koda sadece dolu olan hücreleri gizlesin ya da göstersin şekline nasıl dönüştürebilirim.

 

[Ömer]

Merhaba,

If Cells(Satır, "a") = "" Then bu satırdaki = yerine <> koymanız yeterli olur.
Ek olarak gizlenecek satır bulamadığı zaman buton adı "gizle" kalması için ilave yaptım.

Private Sub ToggleButton1_Click()
Dim Satır As Long, b As Byte
Application.ScreenUpdating = False
If ToggleButton1 = True Then
Rows("2:500").EntireRow.Hidden = False
For Satır = 2 To 500
If Cells(Satır, "a") <> "" Then
Rows(Satır).Hidden = True
b = 1
End If
Next
If b = 1 Then ToggleButton1.Caption = "GÖSTER"
Else
Cells.EntireRow.Hidden = False
ToggleButton1.Caption = "GİZLE"
End If
Application.ScreenUpdating = True
End Sub

 

[sirkülasyon]

Ömer Abi
Teşekkür ederim. Ellerine sağlık.