Toplama işlemi

[enboy81]

Textbox2 ve textbox3 e yazılan rakamları otomatik toplayacak makro kodlar için yardım edebilir misiniz? Dosya ekte ve açıklama icinde
https://dosya.co/dlx0l6xfplz4/21.xlsm.html

 

[relaxim]

Merhaba,

Formun click olayı yerine Textbox3 change olayına yazmayı denediniz mi?

 

[Ziynettin]

Satıs formu için bu şekilde yapınız. Diğer formu siz uyarlama yaparsınız.

Satıs formunda şağıdaki kodu silin.

Private Sub UserForm_Click()
TextBox4.Text = TextBox2.Text * TextBox3.Text
End Sub

Aşağıdaki kodu yeni mudule yazın.

Sub sonuc_al()
    If Satıs.TextBox2 <> "" And Satıs.TextBox3 <> "" Then
        If IsNumeric(Satıs.TextBox2) And IsNumeric(Satıs.TextBox3) Then
            snc = Satıs.TextBox2 * Satıs.TextBox3
        End If
    End If
    Satıs.TextBox4.Value = Format(snc, "#,##0.00")
End Sub

Textbox2 için;

Private Sub TextBox2_Change()
Call sonuc_al
End Sub

Textbox3 için;

Private Sub TextBox3_Change()
Call sonuc_al
End Sub

 

[enboy81]

Satıs formu için bu şekilde yapınız. Diğer formu siz uyarlama yaparsınız.

Satıs formunda şağıdaki kodu silin.

Private Sub UserForm_Click()
TextBox4.Text = TextBox2.Text * TextBox3.Text
End Sub

Aşağıdaki kodu yeni mudule yazın.

Sub sonuc_al()
    If Satıs.TextBox2 <> "" And Satıs.TextBox3 <> "" Then
        If IsNumeric(Satıs.TextBox2) And IsNumeric(Satıs.TextBox3) Then
            snc = Satıs.TextBox2 * Satıs.TextBox3
        End If
    End If
    Satıs.TextBox4.Value = Format(snc, "#,##0.00")
End Sub

Textbox2 için;

Private Sub TextBox2_Change()
Call sonuc_al
End Sub

Textbox3 için;

Private Sub TextBox3_Change()
Call sonuc_al
End Sub

Çok teşekkürler ellerinize sağlık.