döngü

[udentr2002]

Merhaba arkadaşlar
aşağıdaki kodları döngü ile nasıl yazabilirim. Çünkü baya bi uzun satır olacak döngü ile yazmak daha mantıklı

Set s1 = Sheets("Proje_Maliyet")

a = s1.[a65536].End(3).Row + 1

's1.Cells(a, "h") = TextBox47.Text
's1.Cells(a, "ı") = TextBox48.Text
's1.Cells(a, "j") = TextBox49.Text
's1.Cells(a, "k") = TextBox50.Text
's1.Cells(a, "l") = TextBox51.Text
's1.Cells(a, "m") = TextBox52.Text
's1.Cells(a, "n") = TextBox53.Text
's1.Cells(a, "o") = TextBox54.Text
's1.Cells(a, "p") = TextBox55.Text
's1.Cells(a, "q") = TextBox56.Text

 

[cemal42]

böyle bir döngü yazdım ama bir deneyin işinizi görürse sevineceğim zira bu hususta ben de acemiyim. Saygılar

s = 8
For tex = 47 To 56
s1.Cells(a, s).Value = Controls("TextBox" & tex).Value
s = s + 1
Next

 

[hamitcan]

for  i = 8 to 17
s1.Cells(a, i) = controls("TextBox" & i + 39).Text
next

şeklinde deneyin.

 

[udentr2002]

Hocam teşekkürler.

Ben kolon sayısı olarak değilde kolon ismi olarak (yani a stünü gibi) düşünüp bu yüzden 2 tane döngüyü iç içe yapmaya çalıştığım için olmamış.

Elinize sağlık teşekkürler şimdi oldu