for next döngüsü hatası

[GUERRA]

selam ,ustalar için çok basit bir kaç saniyelik bir konu ama ben yapamadım .


TextBox9 = Range("f2") * 1 + Range("f3") * 1 + Range("f4") * 1 + Range("f5") * 1 + Range("f6") * 1

olayının for next olarak döngüsünü kuramadım yardım lütfenn. f250 ye kadar veya sona kadar gitmesini istiyorum.

 

[veyselemre]

Merhaba,

Şöyle deneyin daha kısa olur,

TextBox9 = WorksheetFunction.Sum([f2:f250])

 

[GUERRA]

For Next Hatasi

Teşekkürler fakat , bu şekilde kod çalışmıyor çünkü bu sütundaki verileri user form aracılığı ile kaydediyorum ve number format ta değil text formatta kaydediyor ,numbera çevirince textboxlardaki rakamlar sapıtıyor bu sebeple her değeri 1 le çarpıp tek tek toplamam gerekiyor.

 

[veyselemre]

Bu şekilde kodlamanın doğrusu, formdan sayfaya verilerinizi aşağıdaki gibi atmaktır. Bu şekilde atarsanız, ilk yazdığım formülle verilerinizi toplatabilirsiniz.
[f2] = Val(TextBox1)
[f3] = Val(TextBox2)
[f4] = Val(TextBox3)
[f5] = Val(TextBox4)


İllaki for next ile istiyorsanız,

TextBox9 = 0
For x = 2 To 250
    TextBox9 = TextBox9 + Val(Cells(x, "F"))
Next x

şeklinde kullanabilirsiniz.