CommandButton tıklandıkça Renklensin

[1Al2Ver]

Merhaba,

Bir UserForm'da 1 den fazla Commandbutton ( 1,2,..8) var,

İsteğim ; Bunlardan herhangi birisi tıklandığında, tıklanan butonun kırmızı olması, bir diğeri tıklandığında öncekinin (kırmızı olan) orj.rengine dönmesi,

Amacım, UserForm üzerinde, o an hangi Commandbutton'un aktif olduğunu anlayabilmek,

Teşekkür ederim.

Kullandığım kod örneği ;

Private Sub CommandButton3_Click()
For Each Sayfa In Worksheets
        If Sayfa.Name <> "VERİLER" Then
            Sayfa.Visible = xlVeryHidden
        End If
        If Sayfa.Name = "KAYIT" Then
           Sayfa.Visible = True
       
Next
Sheets("KAYIT").Select
End Sub

 

[EmrExcel16]

Merhaba ilgili kod işinizi görür mü acaba.

Private Sub CommandButton1_Click()
Call Emr
CommandButton1.BackColor = &HFF&
End Sub
Private Sub CommandButton2_Click()
Call Emr
CommandButton2.BackColor = &HFF&
End Sub
Private Sub CommandButton3_Click()
Call Emr
CommandButton3.BackColor = &HFF&
End Sub
Private Sub CommandButton4_Click()
Call Emr
CommandButton4.BackColor = &HFF&
End Sub
Private Sub CommandButton5_Click()
Call Emr
CommandButton5.BackColor = &HFF&
End Sub
Private Sub CommandButton6_Click()
Call Emr
CommandButton6.BackColor = &HFF&
End Sub
Private Sub CommandButton7_Click()
Call Emr
CommandButton7.BackColor = &HFF&
End Sub
Private Sub CommandButton8_Click()
Call Emr
CommandButton8.BackColor = &HFF&
End Sub
Sub Emr()

For i = 1 To 8
    If Me.Controls("CommandButton" & i).BackColor = &HFF& Then
        Me.Controls("CommandButton" & i).BackColor = &H8000000F
    End If
Next

End Sub

 

[1Al2Ver]

Sayın EmrExcel16 merhaba,

Sorunum sayenizde çözülmüştür,

Zahmetleriniz ve duyarlığınız için teşekkür ederim,

Saygılarımla.

 

[EmrExcel16]

Rica ederim ,
İyi çalışmalar.