textboxa döngü ile veri alma

[xxihsidxx]

herkese kolay gelsin
ekli dosyada örneğini verdiğim userform üzerinde textboxlar var(735 adet)
çalışma sayfasından verileri döngü ile textboxa almak istiyorum.veriler hep aynı satırda olsa sorun yok ama veriler alt alta 35 satırda olduğu için yapamadım.ekli dosya incelendiğinde mesele daha iyi anlaşılacaktır. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[hsayar]

bence listwiew kullanmanız daha iyi olacaktır 21 satırdan 25 satıra çıktyığınız zamanda soruın çıkartmaz size

 

[xxihsidxx]

Sayın hsayar,
ilgin için teşekkür ederim.Listviewi hiç kullanmadım.Textboxları aynı zamanda kayıt için kullanacağım.Listviewde o imkan varmı bilmiyorum.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
Dim t As Integer, veri As Range
For Each veri In Range("D4:I7")
    t = t + 1
    Controls("TextBox" & t).Value = veri.Value
Next
End Sub

 

[xxihsidxx]

Sayın Orion2 çok teşekkür ederim.

 

[Orion1]

Sayın Orion2 çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[iskandil55]

:hey: Merhaba Orion1, mesaj tarihine bakılırsa biraz geç fakat ben yeni gördüm, olsun. 4. mesajdaki kod için çok teşekkür ederim. Yoksa CheckBox1, CheckBox2 ......, CheckBox110 gibi bir kod yazmaya çalışıyordum. :tongue: Küçük bir değişiklikle istediğimi yapabildim. Sizin yeni kodunuz bu hale geldi.

Dim t As Integer, y As Integer, veri As Range
y = ActiveCell.Row
For Each veri In Range("I" & y, "ES" & y)
t = t + 1
Controls("CheckBox" & t).Value = veri.Value
Next
--------
Tekrar teşekkürler...