Soru togglebutton'a bir kriter daha eklenebilir mi?

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Private Sub ToggleButton1_Click()
ToggleButton1.Caption = "Giriş"
If ToggleButton1.Value = True Then
Frame1.Visible = True
Frame2.Visible = False
Else
ToggleButton1.Caption = "Çıkış"
Frame1.Visible = False
Frame2.Visible = True
End If
End Sub

üçüncü kriter her iki framenin de visible değerini FALSE yapması
Eklenme ihtimali var ise yardımcı olabilir misiniz?
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
ToggleButton ile denemedim ama, normal butonla yapılabilir, kendinize uyarlayınız.

If Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "1.Eylem" Then
MsgBox "1.Eylem"
Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "2.Eylem"
ElseIf Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "2.Eylem" Then
MsgBox "2.Eylem"
Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "3.Eylem"
ElseIf Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "3.Eylem" Then
MsgBox "3.Eylem"
Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "1.Eylem"
End If
 

Ekli dosyalar

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Seyit abi
örnek dosyayı harici linkte paylaşabilir misiniz?
 
Üst