Satır gizle-Göster

[M.ACAR]

Modül 2'de
Sub satsut_gizle()
Range("A2:IV17").EntireColumn.Hidden = True
End Sub

Sub satsut_goster()
Range("A2:IV17").EntireColumn.Hidden = False
End Sub

Sayfa'nın kod bölümünde
Private Sub ToggleButton1_Click()
Dim i As Long, sat As Long
sat = Cells(65536, "A").End(xlUp).Row
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "AYRINTI"
Rows("2:17").Hidden = False
Else
ToggleButton1.Caption = "FATURA"
Rows("2:17").Hidden = True
End If
End Sub

Kodları var,ToggleButton ile 2.satır ile 17.satır arasını gizleyip gösteriyorum

bu koda ek olarak,2.satır ile 17.satır göster olduğunda 19:21 satırların gizlenmesi,gizli olduğunda gösterilmesi

 

[security]

Private Sub ToggleButton1_Click()
Dim i As Long, sat As Long
sat = Cells(65536, "A").End(xlUp).Row
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "AYRINTI"
Rows("2:17").Hidden = False
Rows("19:21").Hidden = True
Else
ToggleButton1.Caption = "FATURA"
Rows("2:17").Hidden = True
Rows("19:21").Hidden = False
End If
End Sub

Kodunu Denermisiniz...

 

[M.ACAR]

Sayın :Security yardımınızın için çok teşekkür ederim.

 

[security]

Sayın :Security yardımınızın için çok teşekkür ederim.

Rica Ederim kolay Gelsin...