makro da hata

[raprens]

arkadaşlar aşağıdaki makro da for - next döngüsünde hata alıyorum. sorun nerede acaba
Private Sub UserForm_Initialize()
TextBox1.Text = Format(Sheets("TOPLAM").[e1], "mmmm yyyy")
TextBox5.Text = Format(Sheets("TOPLAM").[c3], "##,##0")
TextBox4.Text = Format(Sheets("TOPLAM").[c4], "##,##0")
TextBox3.Text = Format(Sheets("TOPLAM").[c5], "##,##0")
TextBox2.Text = Format(Sheets("TOPLAM").[c6], "##,##0")
TextBox14.Text = Format(Sheets("TOPLAM").[c7], "##,##0")
TextBox15.Text = Format(Sheets("TOPLAM").[C8], "##,##0")

Buton_Adı = Array("Veri", "Yem Sevk Miktarı", "Sayfaları Yazdır", "Tablo")

For X = 1 To UBound(Buton_Adı())
With UserForm2
.Controls("CommandButton" & X).Caption = Buton_Adı(X)
.Controls("CommandButton" & X).Font.Size = 12
.Controls("CommandButton" & X).Font.Bold = True
.Controls("CommandButton" & X).ForeColor = vbRed
End With
Next
End Sub

 

[Ferhat Pazarçevirdi]

Merhabalar,

Döngü başlangıç satırında parantezler fazla ...

For X = 1 To UBound(Buton_Adı[COLOR="Red"][B]()[/B][/COLOR])

Kırmızı ile belirttiğim parantezleri siliniz.

Not: Variant diziniz; "4" eleman barındırmasına rağmen, UBound fonksiyonu "3" değerini döndürebilir. (Option Base'e bağlı) ...

Bunun için x=0'dan başlatmanız dizinin tüm elemanlarını taramanızı sağlayacaktır.

.

 

[raprens]

teşekkür

çok teşekkür ederim. Hata düzeldi.