Labellara döngü ile ulaşmak

[oguzka]

Merhabalar;

Döngü içerisinde sayfadaki bilgileri labellara hızlı yazdırmak için aşağıdaki kodu kullandım ancak label(a) kısmında hata veriyor. Nasıl kullanmam gerekiyor yardımcı olurmusunuz?

for a = 4 to 84
label(a). caption = Sayfa1.cells( i, a-4 ).value
next a

Burada i değeri ile herhangi bir sorun yok onun döngüsü sorunsuz ancak label(a) biçimi vba tarafından desteklenmiyor sanırım.

 

[Korhan Ayhan]

Selamlar,

Sanıyorum "Label" nesneleri UserForm üzerinde bulunuyor. Aşağıdaki şekilde deneyin.

Me.Controls("Label" & a).Caption = Sayfa1.cells( i, a-4 ).Value

 

[oguzka]

Teşekkür ederim Korhan Bey.

 

[Orion1]

[B][COLOR="Red"]Sayfa1[/COLOR][/B].cells( i, a-4 ).value

Bunlardan ayrı olarak.
Yukarıdaki kırmızı satırı aşğaıdaki şekilde kullanırsanız ingilizce versiyonlarda hata yaşamazsınız.

[B][B][COLOR="red"]sheets("Sayfa1").[/COLOR][/B]cells( i, a-4 ).value[/B]