Me Control Hatası

[seddur]

Merhaba.Aşağıda yazılı kod userformda çalışırken sayfa olayına yazıldığında koyu kısım(Me.controls) hata veriyor.Acaba sayfada kullanabilmek için bunun yerine nasıl bir komut yazabiliriz.?Teşekkür ederim.

Dim i As Integer
For i = 4 To 19
Me.Controls("CommandButton" & i).BackColor = RGB(255, 165, 0)
Me.Controls("CommandButton" & i).ForeColor = RGB(0, 0, 0)
Next

 

[seddur]

Burada yapılan commandbutton4 ile commandbutton9 arasındaki bütün butonların rengini değiştirmektir.Ancak bu commandbuttonlar userformda değil sayfadadır.O yüzden kod hata vermektedir.Alternatif kodu yazabilirseniz sevinirim.

 

[dEdE]

Merhaba,
Dener misiniz?

Dim i As Integer
For i = 4 To 19
    Me.OLEObjects("CommandButton" & i).Object.BackColor = RGB(255, 165, 0)
    Me.OLEObjects("CommandButton" & i).Object.ForeColor = RGB(0, 0, 0)
Next

 

[seddur]

Tamam,çalıştı.Teşekkür ederim.