Commanbutton renklendirme

[seddur]

Merhaba.Aşağıdaki kod ile üzerine tıklanan commandbuttonları renklendiriyorum.Ancak aynı caption'a sahip iki buton olduğundan ikisi birden renkleniyor.Sadece birini renklendirmek istesek mümkün mü?Yani commandbutton37 ile 56 arası commandbuttonlar için kod çalışamaz mı?

Private Sub CommandButton37_Click()
For Each c In Me.Controls
If TypeName(c) = "CommandButton" Then
If c.Caption = UserForm1.TextBox4.Text Then c.BackColor = RGB(255, 190, 0)
End If
Next
End sub

 

[Korhan Ayhan]

Merhaba,

Me.Controls ifadesi ile Userform üzerinde bulunan tüm kontrolleri (nesneleri) döngüye almış oluyorsunuz. Eğer formunuzun üzerinde çok fazla nesne varsa kod gereksiz yere uzun çalışmış olacaktır.

Size sadece belli nesneler lazımsa aşağıdaki döngü işinize yarayacaktır.

For X = 37 To 56
   If Me.Controls("CommandButton" & X).Caption = UserForm1.TextBox4.Text Then
      Me.Controls("CommandButton" & X).BackColor = RGB(255, 190, 0)
   End If
Next