Soru CommamdButton dinamik isim tanımlama

[bulentkars]

Arkadaşlar Merhaba

excelde sayfa 1 de commandbuton ekledim. Burada yapmak istediğim görünen ad göster tıkladığımda caption gizle olsun ve göster makrosu çalışsın. Tekrar tıkladığımda gizle makrosu çalışsın.
Caption göster gözükmesini istiyorum. Yardımcı olabilirseniz sevinirim.

 

[Muzaffer Ali]

Merhaba.

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "Göster" Then
        Goster
        CommandButton1.Caption = "Gizle"
    Else
        Gizle
        CommandButton1.Caption = "Göster"
    End If
End Sub

Sub Goster()
    MsgBox "Goster Çalıştı"
End Sub

Sub Gizle()
    MsgBox "Gizle çalıştı"
End Sub

 

[AdemCan]

Merhaba,
Örnek kodlar, açıklama yazdığım yerlere ilgili kodları yazabilirsiniz.

Private Sub CommandButton1_Click()

If CommandButton1.Caption = "Göster" Then
    CommandButton1.Caption = "Gizle"
    ' Göster kodlarını buraya yazınız...
    
ElseIf CommandButton1.Caption = "Gizle" Then
    CommandButton1.Caption = "Göster"
    'Gizle kodlarını buraya yazınız..
End If

End Sub

 

[kulomer46]

Merhaba

Alternatif bir çalışmada Ek 'tedir.

Selamlar...

 

[bulentkars]

Çok teşekkürler tam istediğim gibi olmuş. Elinize emeğinize sağlık.

 

[kulomer46]

Çok teşekkürler tam istediğim gibi olmuş. Elinize emeğinize sağlık.

Selamlar...