Soru Çok İşlevli Buton Yapmak

[Kwothe7]

İyi Forumlar,
Şekile makro atayarak seçili bir hücreye 2 farklı değer yazdırmak istiyorum. Butona her tıklandığında değerler arasında sıralı bir döngünün olmasını nasıl sağlarım?

 

[çıtır]

Şekle atıyarak deneyiniz.Değer yazan yerleri ve sayfa adlarını,hücreyi ayarlayınız.

Sub değerata()
If Sheets("Sayfa1").Range("A1") = "" Or Sheets("Sayfa1").Range("A1") = "Değer2" Then
Sheets("Sayfa1").Range("A1") = "Değer1"
Else
Sheets("Sayfa1").Range("A1") = "Değer2"
End If
End Sub

 

[Kwothe7]

Elinize sağlık, teşekkür ederim.

 

[çıtır]

Elinize sağlık, teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.