Type Mismatch Hatası

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kırmızı ile renklendirilmiş kod satırında Tür Uyuşmazlığı (Type Mismatch) hatası veriyor. Yardımcı olursanız sevinirim.


Dim i As Integer
For i = 10 To 26
say = say + Val(Me.Controls("TextBox" & i).Value)
Next i
TextBox604.Value = say
TextBox606.Value = Fix(say / 2)
TextBox41.Value = Val(TextBox604.Value + Val(TextBox605.Value + Val(TextBox606.Value + Val(TextBox607.Value))))



Aşağıdaki gibi Textbox606 ve Textbox 607 yi Toplamaya dahil etmezsen bir sorun çıkmıyor.

Dim i As Integer
For i = 10 To 26
say = say + Val(Me.Controls("TextBox" & i).Value)
Next i
TextBox604.Value = say
TextBox606.Value = Fix(say / 2)
TextBox41.Value = Val(TextBox604.Value + Val(TextBox605.Value ))

 

[DoğanD]

Hata veren Textbox'lardaki değer ondalıklı yada metin içeriyor olabilir mi? Bildiğiniz gibi Excel'de ondalık işareti virgül iken, VBA'da bu nokta olarak işlev görüyor. CDBL fonksiyonu ile deneyebilir misiniz?

 

[halit3]

parantezler yanlış

TextBox41.Value = Val(TextBox604.Value) + Val(TextBox605.Value) + Val(TextBox606.Value) + Val(TextBox607.Value)

 

[ahmed_ummu]

Hata veren Textbox'lardaki değer ondalıklı yada metin içeriyor olabilir mi? Bildiğiniz gibi Excel'de ondalık işareti virgül iken, VBA'da bu nokta olarak işlev görüyor. CDBL fonksiyonu ile deneyebilir misiniz?

Tamsayı veriler içeriyor.

 

[ahmed_ummu]

parantezler yanlış

TextBox41.Value = Val(TextBox604.Value) + Val(TextBox605.Value) + Val(TextBox606.Value) + Val(TextBox607.Value)

Evet düzeldi Halit bey. Teşekkürler.