Döngü ile olabilirmi ?

[angurya]

Mrb, aşağıdaki kod döngü ile yapılabilirmi?

[J7] = Textbox1
[J8] = Textbox5
[J9] = Textbox8
.
.
[J50]=Textbox127
şeklinde gidiyor.

Yardım edecek arkadaşlara şimdiden teşekkürler.

 

[angurya]

For a = 1 To 50
a = (a + 1)

For i = 1 To 132 Step 3
["J" & a] = "TextBox" & i.Text
Next i
Next a


böyle bir şey yaptım ama hata veriyor

 

[koyuk]

For a = 1 To 50
a = (a + 1)

For i = 1 To 132 Step 3
["J" & a] = "TextBox" & i.Text
Next i
Next a


böyle bir şey yaptım ama hata veriyor

Controls("TextBox" & i).text

esitligin sag tarafini yukaridaki gibi yap

 

[angurya]

["J" & a] = Controls("TextBox" & i).text satırında Object Required hatası verdi

 

[angurya]

j = 7
For i = 1 To 127 Step 3
If Controls("TextBox" & i) <> Empty Then
Cells(j, "J").Value = Controls("TextBox" & i).Text
j = j + 1
End If
Next

Bu kod ile sorun çözüldü
koyuk İlgin için teşekkür ederim.