Toplama Kuruş Hane Hatası

[mekuka]

Sub BSER()
For a = 2 To [a65536].End(3).Row
t2 = tp1
If Cells(a, 3) = Label1.Caption Then
t1 = Replace(Cells(a, 13), ".", "")
tp1 = Val(t2) + Val(t1)
End If
Next a
TextBox1.Value = Format(tp1, "#,##0.00")
End Sub

t2+t1 işleminde kuruşları toplamıyor. Örneğin;
38700,25+15200,25=53900,00 YTL veriyor.
Yardım edecek arkadaşlara teşekkürler.

 

[ozgretmen]

Sorunuza ait bir örnek dosya eklerseniz yardımcı olacak bir arkadaş mutlaka çıkacaktır.Çünkü sorunuz bu haliyle yetersiz kalıyor.Saygılar

 

[hamitcan]

tp1 = cdbl(t2) + cdbl(t1) şeklinde deneyin.

 

[mekuka]

tp1 = cdbl(t2) + cdbl(t1) şeklinde deneyin.

şuan düzelmiş görünüyor. çok teşekkür ederim hamitcan
birde ekteki dosyada kaç adet olduğunu saydırabilir miyiz?

 

[hamitcan]

Dosyanızı eklememişsiniz !...

 

[mekuka]

Dosyanızı eklememişsiniz !...

4.mesajda güncelledim

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızdaki sayısal verileri düzeltirseniz bu kadar uzun kodlara gereke kalmadan işlemleri yapabilirsiniz. Örnek dosyanıza göre aşağıdaki kodları kullanabilirsiniz.

Private Sub UserForm_initialize()
    Sheets("kayıt").Select
    BSER
    CSER
    ESER
End Sub
 
Sub BSER()
    For a = 2 To [a65536].End(3).Row
    t2 = tp1
    If Cells(a, 3) = Label1.Caption Then
    t1 = Replace(Cells(a, 13), ".", "")
    tp1 = CDbl(t2) + CDbl(t1)
    Say1 = Say1 + 1
    End If
    Next a
    TextBox1.Value = Format(tp1, "#,##0.00")
    TextBox5.Value = Format(Say1, "#,##0")
End Sub
 
Sub CSER()
    For a = 2 To [a65536].End(3).Row
    t2 = tp1
    If Cells(a, 3) = Label2.Caption Then
    t1 = Replace(Cells(a, 13), ".", "")
    tp1 = CDbl(t2) + CDbl(t1)
    Say2 = Say2 + 1
    End If
    Next a
    TextBox2.Value = Format(tp1, "#,##0.00")
    TextBox6.Value = Format(Say2, "#,##0")
End Sub
 
Sub ESER()
    For a = 2 To [a65536].End(3).Row
    t2 = tp1
    If Cells(a, 3) = Label3.Caption Then
    t1 = Replace(Cells(a, 13), ".", "")
    tp1 = CDbl(t2) + CDbl(t1)
    Say3 = Say3 + 1
    End If
    Next a
    TextBox3.Value = Format(tp1, "#,##0.00")
    TextBox4.Value = Format(Say3, "#,##0")
End Sub