Buttonbox a her tıkladığımda farklı bir komutu gerçekleştirsin

[Yk1103]

VBA da buton ekledim. Mesela Bir kere tıklayınca A1 hücresi mavi olsun. Bir daha tıklayınca bu sefer B1 hücresi sarı olsun. Bunu nasıl yaparım? Her tıkladığımda başka başka komutları harekete geçirmek istiyorum.

 

[Muzaffer Ali]

Merhaba.
Rakamları istediğiniz kadar artırabilirsiniz

Private Sub CommandButton1_Click()
    Static Sira As Integer
    Sira = 1 + Sira
    
    Select Case Sira
        Case 1
            Range("A1").Interior.Color = 15773696
        Case 2
            Range("B1").Interior.Color = 65535
        Case 3
           
        Case 4
           
        Case Else
            Sira = 0
    End Select
End Sub

 

[Yk1103]

Merhaba.
Rakamları istediğiniz kadar artırabilirsiniz

Private Sub CommandButton1_Click()
    Static Sira As Integer
    Sira = 1 + Sira
   
    Select Case Sira
        Case 1
            Range("A1").Interior.Color = 15773696
        Case 2
            Range("B1").Interior.Color = 65535
        Case 3
          
        Case 4
          
        Case Else
            Sira = 0
    End Select
End Sub

Merhaba Muzaffer Bey,
Çok yardımcı oldunuz çok teşekkür ediyorum. İyi günler