döngü?

[udentr2002]

merhaba arkadaşlar çok uzun bir koddan kurtulmak için döngü kurmak istiyorum. Ama bir türlü yapamadım size kodların bir kaçtanesini yazıcam belki siz bir döngü kurabilrsiniz diye kodlarımın devamı şöyle ;

with activedocument
.bookmarks("H_Adi_1").range.text=textbox218.value
.bookmarks("H_Adi_2").range.text=textbox219.value
.bookmarks("H_Adi_3").range.text=textbox220.value
...
...
...

bookmarks("H_Adi_20").range.text=textbox237.value
end with

şeklinde bunun gibi bir çok kod yazmak zorundayım buda çok zamanımı alıcak bunun için for next döngüsünü kullanmak istiyorum ama yapamadım hata veriyor yukarıdaki kodları bir döngü kurarak yazabilrmiyiz.

Şimdiden ilgilenen tüm arkadaşlarıma teşekkür ederim

 

[Zeki Gürsoy]

With activedocument
    For i = 1 To 20
    .bookmarks("H_Adi_" & i).Range.Text = Controls("TextBox" & 217 + i).Value
    Next
End With

 

[udentr2002]

çok teşekkür ederim hocam sağ olun