For Next Döngüsü Hakında

[ahmedummu]

Merhaba arkadaşlar, herkesin geçmiş bayramı mübarek olsun.

Soruma gelince. 25 adet textbox var. textbox44 den textbox68'e kadar. Bu textlerin değerlerini döngü ile NÖBET sayfasındaki B5-F9 aralığındaki hücrelere aldırmak istiyorum. Aşağıdaki kod ile oluyor fakat çok uzun oldu kodlar. Eminim daha kısa kodlar ile çözülebilir. Biraz uğraştım ama olmadı.

'SABAHÇILAR
Dim i As Byte
Sheets("NÖBET").Select
Range("b5").Select
For i = 44 To 48
ActiveCell.Offset(0, i - 44).Value = Controls("textbox" & i).Value
Next i

Dim A As Byte
Sheets("NÖBET").Select
Range("b6").Select
For A = 49 To 53
ActiveCell.Offset(0, A - 49).Value = Controls("textbox" & A).Value
Next A

Dim b As Byte
Sheets("NÖBET").Select
Range("b7").Select
For b = 54 To 58
ActiveCell.Offset(0, b - 54).Value = Controls("textbox" & b).Value
Next b

Dim c As Byte
Sheets("NÖBET").Select
Range("b8").Select
For c = 59 To 63
ActiveCell.Offset(0, c - 59).Value = Controls("textbox" & c).Value
Next c

Dim d As Byte
Sheets("NÖBET").Select
Range("b9").Select
For d = 64 To 68
ActiveCell.Offset(0, d - 64).Value = Controls("textbox" & d).Value
Next d

Veriler 5-6-7-8-9 satırlara yazılacak. Ben ancak her satır için ayrı ayrı döngü yaptım. Bu da çok uzun oldu. Yardımcı olursanız sevinirim.

 

[halit3]

kodları yazı yazdığınız menünün üstünde # bu işareti tıklayın

 bunun gibi iki tane mevcut deger gelecek arasına yapıştırın ekli resime bak

[CODE]Dim i As Integer
For i = 1 To 5
Sheets("NÖBET").Cells(5, i).Value = Controls("textbox" & i + 43).Value
Sheets("NÖBET").Cells(6, i).Value = Controls("textbox" & i + 48).Value
Sheets("NÖBET").Cells(7, i).Value = Controls("textbox" & i + 53).Value
Sheets("NÖBET").Cells(8, i).Value = Controls("textbox" & i + 58).Value
Sheets("NÖBET").Cells(9, i).Value = Controls("textbox" & i + 63).Value
Next i

 

[ahmedummu]

Halit bey çok teşekkür ederim. Geçmiş bayramınız mübarek olsun. # sembolünü bulamadım ama şu an kod çalışıyor.

 

[halit3]

Halit bey çok teşekkür ederim. Geçmiş bayramınız mübarek olsun. # sembolünü bulamadım ama şu an kod çalışıyor.

cevap yazdığın yerin 1-2 cm üstünde orada yazı tipi yazı boyutu da var

 

[halit3]

Ekli resimdeki kırmızı işaretlediğim bölümü bul ona tıklayacaksın

 

[ahmedummu]

Tamam Halit bey gördüm. Bundan sonra oraya yapıştırırım.