Döngü ile Toplatma da Hata Veriyor

[ahmedummu]

Merhaba arkadaşlar.

Dim gun1 As Byte, say, say1 As Integer
For gun1 = 10 To 26
say = CDbl(Val(Controls("userform1.textbox" & gun1).Value))
'say = CDbl(Val(Controls("userform1" & "." & "textbox" & gun1).Value))
say1 = say1 + say
Next gun1
ActiveCell.Offset(0, 3).Value = say1

Yukarıdaki kodda "controls" kelimesini seçili hale getirip "Sub or function for defined" diye hata veriyor. Bu kodlar modüle içinde. Yardımcı olursanız sevinirim.

 

[ahmedummu]

Merhaba arkadaşlar.

İlk sorduğum soruyu çözdüm fakat aşağıdaki kodlarda 10-26 textlerin toplamını döngü ile doğru buluyor. 27-40 textlerin ise toplamını yanlış topluyor. sonuç 40 çıkması gerekirken 56 çıkartıyor.

10-26 textlerin 11 tanesine 4 değeri giriliyor. 27-20 textlerin 10 tanesine 4 değeri giriliyor.

Dim gun1 As Byte, say, say1 As Long
For gun1 = 10 To 26
say = CDbl(Val(Controls("textbox" & gun1).Value))
say1 = say1 + say
Next gun1
ActiveCell.Offset(0, 3).Value = say1


Dim gun2 As Byte, sayy, say2 As Long
For gun2 = 27 To 40
sayy = CDbl(Val(Controls("textbox" & gun1).Value))
say2 = say2 + sayy
Next gun2
ActiveCell.Offset(0, 4).Value = say2

Yardımcı olursanız sevinirim.

 

[ahmedummu]

Tamam arkadaşlar buda çözüldü.