for döngüsü ile textboxlara değer atamak

[excellcan]

Forumda emeği geçen herkese merhaba. UserForm1 üzerinde 5 adet textbox var.
Sayfa1 de A6:A10 aralığındaki verileri for döngüsü ile UserForm1 deki textboxlara yazdırmak istiyorum. Aşağıdaki kodu denedim ama textboxların hepsine A10 daki değeri yazıyor. İlgilenen arkadaşlara şimdiden teşekkürler.





On Error Resume Next

For i = 1 To 5
For b = 6 To 10

Controls("TextBox" & i).Text = Cells(b, "A")

Next b
Next i

 

[Orion1]

aşağıdaki gibi deneyiniz.

For i = 1 To 5
       Controls("TextBox" & i).Text = Cells(i+5, "A").text

 

[dj_iso06]

Sn. Orion1;

bir konu açtım yardımcı olabilirmisiniz?
iki gün içerisinde çalışmamı tamamlamam lazım.

 

[excellcan]

aşağıdaki gibi deneyiniz.

For i = 1 To 5
       Controls("TextBox" & i).Text = Cells(i+5, "A").text

Hocam ilginiz ve emeğiniz için çok teşekkürler. Kod bu şekliyle işimi gördü. Ama yine de beni huzursuz eden bir husu var. Sizin vermiş olduğunuz koddan esinlenerek TextBox lardaki verileri D2 hücresinden itibaren D sütununa atamak istedim. Ama sonuç vermedi. Yazmış olduğum kod aşağıdaki gibi. Yanlış mı esinlendim acaba ?

Controls("TextBox" & i).Text = Cells(i + 5, "A").Text
Cells(i + 1, "D").Text = Controls("TextBox" & i).Text

 

[dj_iso06]

aşağıdaki gibi deneyiniz.

For i = 1 To 5
       Controls("TextBox" & i).Text = Cells(i+5, "A").text

hocam bu forum böyle değildi aradığım cevabı hemen bulurdum yada biri mutlaka yardım ederdi evi taşıdım iki aydır girmedim sanki çok şey değişmiş neden kimse yardımcı olmuyo?

 

[excellcan]

hocam bu forum böyle değildi aradığım cevabı hemen bulurdum yada biri mutlaka yardım ederdi evi taşıdım iki aydır girmedim sanki çok şey değişmiş neden kimse yardımcı olmuyo?

Sanırım yanlış yere yanlış soru soruyorsunuz.

 

[dj_iso06]

Sanırım yanlış yere yanlış soru soruyorsunuz.

emin olun ki sormadığım yer kalmadı artık son baktıkları yere mesajlar atmaya başladım ne yapayım başka..

 

[excellcan]

Hocam kendi yazmış olduğum kodda Cells(i + 1, "D").Text = Controls("TextBox" & i).Text .Text kısmını kaldırdım oldu. İlginiz ve emeğiniz için tekrar teşekkürler. Bu arada size de kolay gelsin

 

[İhsan Tank]

emin olun ki sormadığım yer kalmadı artık son baktıkları yere mesajlar atmaya başladım ne yapayım başka..

Biraz önce uyardım sizi bir daha yapmayın. Konunuza da baktım bir de siz bakın isterseniz. Lütfen kendi konu başlığında yardım isteyin

 

[dj_iso06]

Biraz önce uyardım sizi bir daha yapmayın. Konunuza da baktım bir de siz bakın isterseniz. Lütfen kendi konu başlığında yardım isteyin

haklısınız hocam kusura bakmayın hayırlı akşamlar..