Kod hatası

[fehdur]

Aşağıdaki kod ile listboxdaki verilerin toplamını alıyordum fakat benzer çalışmayı farklı bir sayfada yapmak istediğimde 3.satır hata veriyor burada "Val" değeri yerine başka ne yazılabilir.Niye hata veriyor anlamakta zorlanıyorum. yardımcı olursanız sevinirim.


Dim i As Long, t1 As Double
For i = 0 To Sheets("Anasayfa").ListBox3.ListCount - 1
topla = topla + Val(ListBox3.List(i, 5))
Sheets("Anasayfa").TextBox8.Value = topla
Sheets("Anasayfa").TextBox8 = Format(Sheets("Anasayfa").TextBox8, vbCrLf & "#,##0 TL")
Next i

 

[Korhan Ayhan]

Bu tarz hatalar genelde nokta-virgül karmaşasından kaynaklanır.

Excel sayfasında genellikle ondalık ayıraç virgül olarak kullanılırken VBA tarafında nokta olmalıdır.

Val yerine CDbl deneyiniz.