Bir butona 2 makro

[mavi674]

Selam arkadaşlar,
Tabloma bir buton koydum.
Butona basınca A makrosu
tekrar aynı butona basınca B makrosu çalışması lazım
Yani butona her tıklandığında A ile B makrosu arasında dögü yapsın.
Teşekkürler....

 

[dEdE]

Buraya bakmak lazım.

 

[Haluk]

Dim myCheck As Boolean
'
Sub Test()
    myCheck = Not myCheck
    
    If myCheck = True Then
        Call MacroA
    Else
        Call MacroB
    End If
End Sub

Sub MacroA()
    MsgBox "A"
End Sub

Sub MacroB()
    MsgBox "B"
End Sub

.

 

[mavi674]

Haluk hocam
kodu denedim her tıklamada A veriyor . Oysa ilk tıklama A ikinci tıklamada da B olması lazım
ve yine aynı döngü devam edecek...
Yanlış bir şey mi yaptım, yoksa ben mi anlatamadım bilemedim
Teşekkürler

 

[Gungor_Alkan]

Tablonuza koyduğunuz buton muhtemelen "Düğme (Form Düğmesi)"
Bunun yerine "Onay Kutusu (Form Denetimi)" yani "Check" butonu koyup,
Haluk Hocanın Test() makrosunu atarsanız istediğiniz olacaktır.

 

[Korhan Ayhan]

Büyük ihtimalle Haluk beyin önerdiği kod da "Dim..." ile başlayan deklarasyon satırını hatalı kullanmış olabilirsiniz.

Haluk beyin kodunu boş temiz bir modüle uyguladıktan sonra butona tanımlayıp denerseniz çalıştığını görebilirsiniz.

Yine de alternatif olarak kodu aşağıdaki gibi revize edip deneyebilirsiniz..

Option Explicit

Sub Test()
    Static myCheck As Boolean
    
    myCheck = Not myCheck
    
    If myCheck = True Then
        Call MacroA
    Else
        Call MacroB
    End If
End Sub

Sub MacroA()
    MsgBox "A"
End Sub

Sub MacroB()
    MsgBox "B"
End Sub

 

[Haluk]

Benim kodda,

Dim myCheck as ....

satiri, modulun en ustunde olmasi lazim. Unuttunuz mu acaba?

.

 

[Necdet]

Merak ettim. Sayfada bir buton daha koyacak yer mi kalmadı?

 

[mavi674]

Korhan Ayhan ve Haluk Hocam
sizlere ayrı ayrı teşekkürlerimi sunarım.
Tavsiyeleriniz üzerine yeniden yapılandırdım.
verdiğiniz kodlar artık sorunsuz çalışıyor Sizlere minnettarım, iyi ki varsınız...

 

[mavi674]

Necdet hocam
tek butonla 2 fonksiyonun çalışması güzel olmaz mı
Bence çok güzel oldu sizlerin sayenizde
Tekrar çok teşekkürler....

 

[Necdet]

Merhaba,
Ya arka arkaya aynı makroyu çalıştırmanız gerekirse?
Yoksa iki ayrı makro değil istediğiniz kadar makroyu tek butona bağlamanız olası.
O yüzden

 

[Cengiz Demir]

Sorun çözülmüş. Ama toggle butonu bu işlem için kullanılabilir miydi ?

 

[Korhan Ayhan]

Sorun çözülmüş. Ama toggle butonu bu işlem için kullanılabilir miydi ?

Elbette..