Soru Sütundaki parasal değerlerin toplamı

[power468]

Ceza sayfasına yapılan kayıtların C Sütununda olan parasal değerlerin toplamlarının alınmasını ve toplam değeri de Veri Sayfasındaki B2 Hücresinde göstermesini istiyorum. Yardımcı olursanız çok sevinirim. şimdiden çok teşekkür ederim.




https://www.dosyaupload.com/ahL3

 

[Korhan Ayhan]

Kayıt kodunuz verileri sayfaya kayıt ederken metin olarak kayıt ediyor. Kayıt kodunuzu değiştirirseniz klasik TOPLA formülü ile sonuca gidebilirsiniz.

Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
        Sheets("Ceza").Range("C:C").NumberFormat = "#,##0.00"
        Son_Dolu_Satir = Sheets("Ceza").Range("A65536").End(xlUp).Row
        Bos_Satir = Son_Dolu_Satir + 1
        Sheets("Ceza").Range("A" & Bos_Satir).Value = _
                       Application.WorksheetFunction.Max(Sheets("Ceza").Range("A:A")) + 1
        Sheets("Ceza").Range("B" & Bos_Satir).Value = TextBox1.Text
        Sheets("Ceza").Range("C" & Bos_Satir).Value = CDbl(TextBox2.Text)
        Sheets("Ceza").Select
        
    Else
        MsgBox "İsim Girmeniz gerekiyor"
    End If
    
    MsgBox "Kayıt başarılı", vbApplicationModal, ""
    
    Dim del As Control
    
    For Each del In UserForm1.Controls
        If TypeName(del) = "TextBox" Or TypeName(del) = "ComboBox" Then
            del.Text = Empty
        End If
    Next del
End Sub