Textbox toplama problemi

[quesh]

Arkadaşlar aşağıdaki kodda textbox49'dan 72ye kadar ve textbox119dan 141e kadar olan textboxların toplamını textbox 142ye yazdırıyorum. anca
butona 2 kez basınca doğru işlemi yapıyor. butona ilk tıklamamda umursamıyor, 2.kez tıkladığımda doğru hesaplamayı yapıyor. bunun nedeni ne olabilir ve nasıl çözebilirim.?

Private Sub CommandButton1_Click()

For i = 1 To 24
Sheets("Yatırım Analizi").Cells(i + 60, 2).Value = UserForm3.Controls("textbox" & i).Value
Next

For i = 73 To 95
Sheets("Yatırım Analizi").Cells(i + 12, 2).Value = UserForm3.Controls("textbox" & i).Value
Next

For i = 49 To 72
UserForm3.Controls("textbox" & i).Value = Sheets("Yatırım Analizi").Cells(i + 12, 4).Value
Next

For i = 119 To 141
UserForm3.Controls("textbox" & i).Value = Sheets("Yatırım Analizi").Cells(i - 34, 4).Value
Next

For i = 49 To 72
topla = Val(Controls("textbox" & i)) + topla
a = topla

Next
For j = 119 To 141
toplam = Val(Controls("textbox" & j)) + toplam
b = toplam
Next

TextBox142.Value = a + b

end sub

 

[Huseyinkis]

kodlarda for i kısmını birden fazla kullanmışsınız.

onları For i1 for i2 for i3 veya for a for b diye değiştiriniz.

 

[quesh]

evet ama tüm for i'lerden sonra next dediğim için bir sonraki kullandığım for i olayı yeni bir olaymış gibi başlıyor, . yalnızca toplama işlemini yapamıyorum aslında yapıyorum ama 2 kez butona tıklayınca yapabiliriyorum...

kodlarda for i kısmını birden fazla kullanmışsınız.

onları For i1 for i2 for i3 veya for a for b diye değiştiriniz.

 

[Huseyinkis]

evet ama tüm for i'lerden sonra next dediğim için bir sonraki kullandığım for i olayı yeni bir olaymış gibi başlıyor, . yalnızca toplama işlemini yapamıyorum aslında yapıyorum ama 2 kez butona tıklayınca yapabiliriyorum...

peki benim dediğimi denedinizmi.

 

[quesh]

Hayır Hüseyin Bey, çünkü çok aşırı fazla for i döngüsü mevcut buton altında. bunları tek tek düzeltmem hem karışıklığa yol açacağı gibi hem de uzun ve zahmetli bir yol olacak...

 

[quesh]

kodu tüm kodların en altına yazınca sorun çözüldü. Teşekkürler