Togglebutton yardımı ile göster-gizle

[ilhaan]

Arkadaşlar ekli dosyada bir togglebutton yaptım.Ancak göster-gizle kodunu yazamadım. Yardımcı olursanız sevinirim.Şimdiden teşekkürler...

 

[Emir Hüseyin Çoban]

Merhaba, linkteki 3. iletideki buton kodlarını inceleyiniz.

http://www.excel.web.tr/f48/ayny-butona-farkly-i-lemler-yaptyrma-t102347.html

Gizle göster kodlarınıda makro kaydet yöntemi ile oluşturmaya çalışın.
Takıldığınız yerde tekrar yazarsınız.

 

[İhsan Tank]

Arkadaşlar ekli dosyada bir togglebutton yaptım.Ancak göster-gizle kodunu yazamadım. Yardımcı olursanız sevinirim.Şimdiden teşekkürler...

merhaba
sayfanın kod bölümüne

Option Explicit
Private Sub ToggleButton2_Click()
Dim ts
ts = "A4:A9"
If ToggleButton2.Caption = "Gizle" Then
Range(ts).EntireRow.Hidden = True
ToggleButton2.Caption = "Göster"
ElseIf ToggleButton2.Caption = "Göster" Then
Range(ts).EntireRow.Hidden = False
ToggleButton2.Caption = "Gizle"
End If
End Sub

bu kodu kopyalayın ve deneyin

 

[ilhaan]

Teşekkürler

 

[İhsan Tank]

Teşekkürler

rica ederim
:yazici: