gizle göster foksiyon eklemek

[ikikan]

arkadaşlar aşagıdaki kodu nasıl dogru ise gizl degilse atanmış deger olarak yaza bilirim

Function giz_gos(deger, Optional gizle)
Selection.EntireRow.Hidden = True
Selection.EntireRow.Hidden = False
End Function

 

[kemalist]

buton oluştur aşağıdaki kodu ekle
Private Sub ToggleButton1_Click() 'GÖSTER
If ToggleButton1 = True Then
ToggleButton1.Caption = "GÖSTER"
Range("ALH").EntireColumn.Hidden = True
Else
ToggleButton1.Caption = "GİZLE"
Range("ALH").EntireColumn.Hidden = False
End If
End Sub

 

[ikikan]

buton oluştur aşağıdaki kodu ekle
Private Sub ToggleButton1_Click() 'GÖSTER
If ToggleButton1 = True Then
ToggleButton1.Caption = "GÖSTER"
Range("ALH").EntireColumn.Hidden = True
Else
ToggleButton1.Caption = "GİZLE"
Range("ALH").EntireColumn.Hidden = False
End If
End Sub

işe yaramadı bunu foksiyona ekliyerek yapamazmıyız ?

 

[kemalist]

örnek dosya eklermisiniz?