Nesneleri Döngüye Getirmek

[HASAN40]

Merhaba;
Bir userform üzerinde belli bir diziye göre yerleştirilmiş etiket nesnelerim var (a1,a2,a3,a4 ... b1,b2,b3,b4... vs.). Bu etiketlere de excel sayfasından değer atamak istiyorum bunun için de aşağıdaki döngüyü kullanmaya çalışıyorum ;

 for j = 2 to worksheetfunction.counta(b.range("b:b"))
                 userform4.a& j = b.cells(j,2)
          next j

Acaba nerede hata yapıyorum?

Not : Bunu listbox ile de çözebilirm ancak listbox un transparan backcolor özelliği olmadığı için işime yaramıyor çünkü userformun arkasında bir resim taslağı mevcut :/

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya ile destekleyip detaylı açıklarmısınız.

Not: Teknik bir sorundan dolayı sıkıştırılmamış dosyaları açamıyorum. Dosyayı .rar yada .zip ile sıkıştırarak eklemenizi rica ederim.

 

[HASAN40]

Merhaba Sayın Ömer;

Örnek olması açısından bir dosya ekledim, dediğim gibi listbox kullanabilirim ancak çalışmalarımda arkaplan resimleri olduğu ve listbox ın transparan backstyle özelliği olmadığı için işime yaramıyor.
Listboxa bu özelliği verebilmemiz mümkün ise bu daha çok işime yarar

 

[Korhan Ayhan]

Merhaba,

Sayfadaki butonunuzda sadece formu açan kod kalsın.

Aşağıdaki kodu formunuzun kod bölümüne uygulayın.

Private Sub UserForm_Initialize()
    Dim X, S1
    
    Set S1 = Sheets("Sayfa1")
    
    For X = 1 To 4
        Controls("sn" & X).Caption = S1.Cells(X, 1)
        Controls("ad" & X).Caption = S1.Cells(X, 2)
        Controls("sad" & X).Caption = S1.Cells(X, 3)
        Controls("seh" & X).Caption = S1.Cells(X, 4)
    Next
End Sub

 

[HASAN40]

Merhaba Sayın Korhan Ayhan ;
Verdiğiniz kodlar sayesinde " .Controls " olayını da öğrenmiş oldum. Çok teşekkür ederim.
İyi çalışmalar. . .