ToggleButton ile satır gizleme ve gösterme

[sirkülasyon]

B12:B21 arasındaki satırları hücrede veri olsun ya da olmasın gizleyecek ve gösterecek bir ToggleButton' a bağlanmış bir makro koduna ihtiyacım var.
Yalnız hücrede 2 tane de onay kutusu var. Bu onay kutusu da gizlenip gösterilme kodu arasında yer alacak.

Teşekkür eder saygılarımı sunarım.
Korhan Uzmanımın Kodunu kullandım ama veri dolu olunca gizlemiyor

'Private Sub ToggleButton1_Click()
'Dim Satır As Long
'Application.ScreenUpdating = False
'If ToggleButton1 = True Then
'Rows("13:21").EntireRow.Hidden = False
'For Satır = 13 To 21
'If Cells(Satır, "B") = "" 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

 

[Mustafa MUTLU]

B12:B21 arasındaki satırları hücrede veri olsun ya da olmasın gizleyecek ve gösterecek bir ToggleButton' a bağlanmış bir makro koduna ihtiyacım var.
Yalnız hücrede 2 tane de onay kutusu var. Bu onay kutusu da gizlenip gösterilme kodu arasında yer alacak.

Teşekkür eder saygılarımı sunarım.
Korhan Uzmanımın Kodunu kullandım ama veri dolu olunca gizlemiyor

Private Sub ToggleButton1_Click()
Dim Satır As Long
Application.ScreenUpdating = False
If ToggleButton1 = True Then
Rows("13:21").EntireRow.Hidden = False
'For Satır = 13 To 21
If Cells(Satır, "B") = "" 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

Kodun eğer boş ise döngüsünü kaldırmanız gerekiyor.
ToggleButtonu çift tıklayın açılan kod bölümüne aşağıdaki kodu yazın.

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Rows("13:21").EntireRow.Hidden = False
ToggleButton1.Caption = "GÖSTER"
Else
Rows("13:21").EntireRow.Hidden = True
ToggleButton1.Caption = "GİZLE"
End If
End Sub