ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[vuranoglu]

Merhaba
ekli userform üzerinden yapmış olduğum tabloda metal para girişinde (kuruşlu giriş)ve toplam hatalı çalışıyor.Nasıl bir düzeltme gerekiyor?
İlgilenen arkadaşlara şimdiden teşekkürler.

[halily]

metin kutularında TL ibaresi olduğu zaman hata veriyor galiba
o nedenle içinde TL olan metin kutularını val() içine almayı deneyebilirsiniz
Val(TextBox1)
Val(TextBox3)
Val(TextBox5)
Val(TextBox7)
Val(TextBox9)
Val(TextBox11)
ayrıca hesap fonksiyonunda kullandığınız a = Controls("TextBox" & i).Value ifadesinde de val kullanılmalı
a = Val(Controls("TextBox" & i).Value)
bunun dışında ne hatalar var bilmiyorum

[halily]

bu arada kuruşlu girişten kast ettiğiniz ne sadece kuruş mu yoksa 1,25 gibi 1 lira 25 kuruş mu?

[vuranoglu]

Merhaba
1.25 -- 2.34 şeklinde giriş yapılacak

[halily]

hesap fonksiyonunu aşağıdaki gibi düzenleyip dener misiniz?
virgül kullanıldığından val fonksiyonu ifadeden virgül ve sonrasını almıyor virgülü replace ile nokta olarak değiştirince sonuç düzeldi gibi

Kod: Tümünü seç

Sub hesap()
topla = Empty
TextBox20.Value = ""
    For i = 13 To 19
        If Controls("TextBox" & i) <> "" Then
            a = Val(Replace(Controls("TextBox" & i).Value, ",", "."))
            topla = topla + CCur(a)
            Controls("TextBox" & i).Value = Format(Replace(Controls("TextBox" & i).Value, " TL", ""), "#,##0.00") & " TL"
        End If
    Next i
TextBox20.Value = Format(topla, "#,##0.00") & " TL"
End Sub


[vuranoglu]

Teşekkürler .
Emeğine sağlık.

[halily]

rica ederim)
iyi çalışmalar