For Each döngüsü ve userform

[seddur]

Merhaba.Aşağıda yazılı kodu aktif sayfa için değilde userformdaki bir nesne için(commandbutton)nasıl yazabiliriz.?Yani tıklanmış olan commandbutton adına göre(caption) commandbuttonun rengini değiştirmek istiyorum.
Private Sub CommandButton68_Click()

For Each i In ActiveSheet.OLEObjects
If TypeName(i.Object) = "CommandButton" Then
If i.Object.Caption = [a1].Text Then i.Object.BackColor = RGB(0, 102, 102)
end sub

 

[seddur]

Dosya üzerinden anlatmak daha kolay olacak.Userformdaki rengi değiştirmek istenen herhangi bir commandbuttona tıklanacak daha sonra ikinci numara girilecek sonuçta ilk tıklanan butonun rengi mavi sonra girilen butonun rengi sarı olacak.Userform açıp kapatıldıktan sonra renkler olduğu gibi kalacak.Yardımcı olabilirseniz sevinirim.

 

[bmutlu966]

Tam ne yapmak istediğinizi anlamasam da belki bu yaptığım yardımcı olur size. İnceleyin.

 

[seddur]

Soruyu şu şekilde değiştirmek istiyorum.Ekli dosyada userformdaki textbox'a 1 ile 20 arasında herhangi bir sayı girilecek örneğin 3 sayısı girilmişse bu sayıyı A sutununda 3.satıra kaydetecek ve 3 yazan commandbuttonun rengi sarı olacak.Toplamda 20 sayı için uygulama çalışacak.Umarım anlaşılır olmuştur.