çoklu döngü hk

[chakistes]

Merhaba arkadaşlar veri isimli userformda bulunan textbox kutularını isimlerini değiştirdim. Bunları döngü ile

b1.text den b20.text e kadar alt alta exceldeki e10-e29 kadar
d1.text den d20.text e kadar al alta exceldeki f10 -f29 kadar
f1.text den f20.text e kadar al alta exceldeki g10-g29 kadar aktarmak istiyorum. bu konuda yardıma ihtiyacım var
[E10] = veri.B1
[E11] = veri.B2
[E12] = veri.B3
[E13] = veri.B4
[E14] = veri.B5
[E15] = veri.B6
[E16] = veri.B7
[E17] = veri.B8
[E18] = veri.B9
[E19] = veri.B10
[E20] = veri.B11
[E21] = veri.B12
[E22] = veri.B13
[E23] = veri.B14
[E24] = veri.B15
[E25] = veri.B16
[E26] = veri.B17
[E27] = veri.B18
[E28] = veri.B19
[E29] = veri.B20
'-----------------------------------
[F10] = veri.D1
[F11] = veri.D2
[F12] = veri.D3
[F13] = veri.D4
[F14] = veri.D5
[F15] = veri.D6
[F16] = veri.D7
[F17] = veri.D8
[F18] = veri.D9
[F19] = veri.D10
[F20] = veri.D11
[F21] = veri.D12
[F22] = veri.D13
[F23] = veri.D14
[F24] = veri.D15
[F25] = veri.D16
[F26] = veri.D17
[F27] = veri.D18
[F28] = veri.D19
[F29] = veri.D20

'-----------------------------------
[G10] = veri.F1
[G11] = veri.F2
[G12] = veri.F3
[G13] = veri.F4
[G14] = veri.F5
[G15] = veri.F6
[G16] = veri.F7
[G17] = veri.F8
[G18] = veri.F9
[G19] = veri.F10
[G20] = veri.F11
[G21] = veri.F12
[G22] = veri.F13
[G23] = veri.F14
[G24] = veri.F15
[G25] = veri.F16
[G26] = veri.F17
[G27] = veri.F18
[G28] = veri.F19
[G29] = veri.F20
'--------------------------------------------

 

[muygun]

Merhaba;

Kaydet butonu için userformun kod kısmına;

Private Sub CommandButton1_Click() 'kaydet butonu
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1") 'formdaki verilerin yazılacağı sayfa
For i = 1 To 20
s1.Cells(i + 9, "e") = Controls("B" & i)
s1.Cells(i + 9, "f") = Controls("D" & i)
s1.Cells(i + 9, "g") = Controls("F" & i)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını ekleyin ve butona bağlayarak deneyin.

İyi çalışmalar.

 

[chakistes]

çok teşekkür ederim işe yaradı