Buton İsmine Göre Kod Çalıştıma

[CrAzY_4343]

Merhabalar
Ekli dosyada da göreceğiniz üzere iki butonum var. Bu butonlar form yada activex buton olabilir farketmez. Butonların herhangi birine tıklandığında tek bir userform açılması gerekiyor. Bu userform'a doğru şifre yazılırsa ;

-Buton1 Tıklanmışsa Sayfa2
-Buton2 Tıklanmışsa Sayfa3

Görünür olması gerekiyor. Ben bu işin içinden çıkamadım ve siz üstadlarıma sormak istedim. Yardımlarınızı bekliyorum. İki Userform kullanmak istemiyorum bu arada.

 

[Necdet]

Merhaba,

Buttonları tek bir makroya yöneltin.

Buton adına göre de ilgili kodları çalıştırırsınız.

Sub FormAc()

    Application.ScreenUpdating = False
    
    If Application.Caller = "Button 1" Then
        Sheets("Sayfa2").Visible = True
        Sheets("Sayfa3").Visible = False
    Else
        Sheets("Sayfa3").Visible = True
        Sheets("Sayfa2").Visible = False
    End If
    
    Application.ScreenUpdating = True
    
    UserForm1.Show
    Sheets("Sayfa2").Visible = False
    Sheets("Sayfa3").Visible = False

End Sub

 

[Muzaffer Ali]

Merhaba

Dosyanız ekte

 

[CrAzY_4343]

Merhaba

Dosyanız ekte

Tam aradığım gibi bir cevap olmuş çok teşekkür ederim sağolun.