textbox for-next

[quesh]

Merhaba arkadaşlar.
Ekteki dosyada bir userform ve üzerinde textboxlar mevcut. Textbox taki değerlerin sayfadaki hücrelere aktarılmasını istiyorum. sırasıyla

textbox1 i B2 hücresine
textbox2 yi C2
textbox3 ü D2
textbox4 b3
textbox5 c3
textbox6 d3
.......
bunun için şu kodu yazdım:

 Private Sub TextBox1_Change()

 For i = 1 To 15
 For j = 2 To 4
 For a = 2 To 6
  Sheets("a").Cells(a, j).Value = UserForm1.Controls("textbox" & i).Value
 Next
 Next
 Next
 
End Sub

i ; textbox
j: sütun
a : satır

ancak bu kod işe yaramıyor. nerede yanlışlık yapıyorum ,veya kodu yanlış yere mi yazıyorum, yardımcı olabilir misiniz?

Teşekkürler

 

[Husgvarna]

Merhaba.

Bir "Buton" ekleyip veya "textbox15" altına:

Private Sub TextBox15_Change()
For a = 2 To 6
 For j = 2 To 4
 i = i + 1
  Sheets("a").Cells(a, j).Value = UserForm1.Controls("textbox" & i).Value
 Next
 Next
End Sub

Şeklinde deneyin.

 

[quesh]

Teşekkür ederim fakat bir de şöyle bir sorunum var.
Textboxlarım textbox6 dan textbox18 'e kadar ;
textbox6, textbox9,textbox12...... textbox18 şeklinde devam ederken. textbox3 ün değeri sayfa1'in a15 hücresinden başlamak kaydıyla şu kodu yazdım. bunda ne gibi bi hata mevcut?

Private Sub UserForm_Initialize()
  For i = 6 To 18
   i=i+3
  For j=15 to 20
    Controls("textbox" & i).value = Sheets("Sayfa1").Cells(j,1).Value
  Next 
  Next
End Sub

Merhaba.

Bir "Buton" ekleyip veya "textbox15" altına:

Private Sub TextBox15_Change()
For a = 2 To 6
 For j = 2 To 4
 i = i + 1
  Sheets("a").Cells(a, j).Value = UserForm1.Controls("textbox" & i).Value
 Next
 Next
End Sub

Şeklinde deneyin.

 

[Husgvarna]

Teşekkür ederim fakat bir de şöyle bir sorunum var.
Textboxlarım textbox6 dan textbox18 'e kadar ;
textbox6, textbox9,textbox12...... textbox18 şeklinde devam ederken. textbox3 ün değeri sayfa1'in a15 hücresinden başlamak kaydıyla şu kodu yazdım. bunda ne gibi bi hata mevcut?

Private Sub UserForm_Initialize()
  For i = 6 To 18
   i=i+3
  For j=15 to 20
    Controls("textbox" & i).value = Sheets("Sayfa1").Cells(j,1).Value
  Next 
  Next
End Sub

Kodlarınıza göre aşağıdaki gibi olabilir.

Private Sub UserForm_Initialize()
c = 3
For j = 15 To 19
 c = c + 3
    Controls("textbox" & c).Value = Sheets("Sayfa1").Cells(j, 1).Value
  Next
End Sub