Texboxta Hesaplama ve para birimi hatası

[accountant80]

Merhaba işlerimde kullanmak üzere küçük bir program hazırlıyorum herşey tamam ama küçük bir sorunum kaldı.

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox9.Value = (TextBox8.Value / 100) * TextBox13.Value
End Sub
bu kod ile tb8 teki rakamın tb13 deki orana göre tb9 a KDV sini aldırıyorum.

Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox8 = Format(TextBox8, "#,##0.00 TL")
End Sub

Bu kodla ise tb8 den çıkarken TL ibaresi yazsın istiyorum.
Küsürat çıkmayan rakamlarda problem yok mesela 100 TL nin KDv sini 18.00 TL olarak yazıyor fakat küsüratlı olanlarda problem başlıyor mesela 125 Tl nin KDV si 22,50 TL olması Gerekirken 225,00 Tl çıkarıyor.

Yardım eder misiniz...

 

[accountant80]

Yardım bekliyorum

 

[mancubus]

bende problem çıkmadı.
hayal meyal bu tarz bir soru hatırlıyorum ama çıkaramadım.


not:
combo'ya verileri daha kısa bir şekilde yüklemek mümkün:

Private Sub UserForm_Initialize()

    ComboBox1.RowSource = "veriler!A1:A5000"
    For i = 1 To 12
        ComboBox2.AddItem Format(i, "00")
    Next
    For i = 2011 To 2015
        ComboBox3.AddItem Format(i, "0000")
    Next
    ComboBox4.RowSource = "veriler!C1:C5000"

End Sub

 

[accountant80]

bende problem çıkmadı.
hayal meyal bu tarz bir soru hatırlıyorum ama çıkaramadım.


not:
combo'ya verileri daha kısa bir şekilde yüklemek mümkün:

Private Sub UserForm_Initialize()

    ComboBox1.RowSource = "veriler!A1:A5000"
    For i = 1 To 12
        ComboBox2.AddItem Format(i, "00")
    Next
    For i = 2011 To 2015
        ComboBox3.AddItem Format(i, "0000")
    Next
    ComboBox4.RowSource = "veriler!C1:C5000"

End Sub

Kodlar için teşekkür ederim, ama sorunum hala devam ediyor. KDV matrahı küsüratsız olursa mesele yok ama Matrah ve KDV küsüratlı çıkınca bir virgül kaydırıyor. '22,50 olması gerekirken 225,00 çıkarıyor 0,00#,## kısmında bi problem var ama çözemedim.

 

[mancubus]

dediğim gibi, ben sorun yaşamadım....

şu bir işe yarıyor mu?

TextBox9.Value = Format(Evaluate(TextBox8.Value * TextBox13.Value / 100), "#,##0.00")

 

[Korhan Ayhan]

Merhaba,

Çalışmanızı bende denedim ve sorun yaşamadım.

Alternatif olarak aşağıdaki kodları deneyiniz.

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox8 <> "" And IsNumeric(TextBox8) Then
        If TextBox13 <> "" And IsNumeric(TextBox13) Then
            TextBox9.Value = FormatCurrency((CDbl(TextBox8.Value) / 100) * CDbl(TextBox13.Value))
        End If
    End If
End Sub
 
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox8 <> "" And IsNumeric(TextBox8) Then
        TextBox8 = FormatCurrency(TextBox8)
    End If
End Sub

 

[accountant80]

dediğim gibi, ben sorun yaşamadım....

şu bir işe yarıyor mu?

TextBox9.Value = Format(Evaluate(TextBox8.Value * TextBox13.Value / 100), "#,##0.00")

Bu kodla çözüldü teşekkür ederim...