Aynı Kısayol Tuşuna Birden Fazla Makto Atamak

[tirEdsOuL]

Merhabalar,

Sub Ondalik()
    Selection.NumberFormat = "#,##0.00"
End Sub

Sub Ondalik_Kapat()
Selection.NumberFormat = "0"
End Sub

Sub auto_open()
Application.OnKey "^{ğ}", "Ondalik"
End Sub

Sub auto_close()
Application.OnKey "^{ğ}"
End Sub

Yukarıdkai gibi ufak bir makroya kısayol atatım, sormak istediğim ise; aynı kısayol tuşuna yani CTRL+Ğ kombinasyonuna tekrar bastığımda, aşağıdaki kodu aktif etmesini istiyorum. Yani aynı kısayol tuşuna sıralama yaptırarak, ilk bastığımda şu kodu çalıştır, ikinci bastığımda şu kodu çalıştır, üçüncü bastığımda şu kodu çalıştır gibi birşey mümkün müdür?

Sub Ondalik_Kapat()
Selection.NumberFormat = "0"
End Sub

 

[askm]

Hücrenin birine 0 değeri verirsiniz;
İlk tıklamada bu hücreyi bir artırır 1 kodu çalıştırır.
2. tıklamada bir daha artırır 2. kodu çalıştırırsınız.
3. tıklamada da 1 daha artırır 3. kodu çalıştırırsınız.
En başına da hücre değeri 3 ise 1yap dersiniz. Yoksa 1 atrır derseniz olur.

 

[tirEdsOuL]

Maalesef bunu yapamam, çünkü makroyu eklenti haline getirip tüm çalışma kitaplarında kullanıyorum bu kısayolu. Nasıl ki, Ctrl+K varsayılan kısayolu bold yapıp tekrar Ctrl+K yaptığımda boldu kaldırıyorsa bende aynı işlemi yapmak istiyorum.

 

[askm]

ToggleButton button şeklinde arama yaparsanız örnek bulabilirsiniz. Ya da örnek dosyanızı eklerseniz yardımcı olalım.

 

[tirEdsOuL]

ToggleButton button şeklinde arama yaparsanız örnek bulabilirsiniz. Ya da örnek dosyanızı eklerseniz yardımcı olalım.

örnek dosya ektedir..

 

[askm]

Kodlarınızı aşağıdaki şekilde revize edin.

Sub Ondalik()
If Selection.NumberFormat = "#,##0.00" Then
    Selection.NumberFormat = "0"
Else
    Selection.NumberFormat = "#,##0.00"
End If

End Sub

'Sub Ondalik_Kapat()
'    Selection.NumberFormat = "0"
'End Sub

Sub auto_open()
Application.OnKey "^{ğ}", "Ondalik"
'Application.OnKey "^{ü}", "Ondalik_Kapat"
End Sub

Sub auto_close()
Application.OnKey "^{ğ}"
'Application.OnKey "^{ü}"
End Sub

 

[tirEdsOuL]

Teşekkürler sayın askm, istediğim tam olarak buydu. Peki bunu 3. kod, 4. kod gibi arttırmamız mümkün müdür?
Örneğin, 3. kez bastığımda CTRL+ğ'ye "Selection.NumberFormat = "#,##0"" kodunu çalıştırsın gibi..

 

[askm]

Aşağıdaki bulokda else if yaparak ilave edebilirsiniz.

Sub Ondalik()
If Selection.NumberFormat = "#,##0.00" Then
    Selection.NumberFormat = "0"
Elseif Selection.NumberFormat = "#,##0" Then
     'işlem
else
    Selection.NumberFormat = "#,##0.00"
End If

End Sub

 

[tirEdsOuL]

İlginiz için çok teşekkür ederim.

 

[askm]

Rica ederim. Kolay gelsin.