Textbox'a otomatik hesap yaptırma

[sukruyilmaz1]

Merhabalar Sayın Üstadlarım.

Ekteki örnekteki userform üzerinde, Malzeme adedi ile Malzeme birim fiyatını yazdığımda, o anda toplam tutarın hesaplanıp textbox a yazmasını istiyorum. Yani Kaydet butonuna basmadan ben yazınca o anda hesaplamasını ve textbox içine yazılmasını istiyorum.

Yardımlarınız için şimdiden çok teşekkür ederim.
Saygılarımla.

 

[Muzaffer Ali]

Merhaba.


Aşağıdaki kodları ilave edin.

Private Sub TextBox6_Change()
Topla
End Sub

Private Sub TextBox8_Change()
Topla
End Sub

Sub Topla()
    If IsNumeric(TextBox6.Text) And IsNumeric(TextBox8.Text) Then
        TextBox7.Text = TextBox6.Text * TextBox8.Text
    Else
        TextBox7.Text = ""
    End If
End Sub

 

[Orion1]

Merhabalar Sayın Üstadlarım.

Ekteki örnekteki userform üzerinde, Malzeme adedi ile Malzeme birim fiyatını yazdığımda, o anda toplam tutarın hesaplanıp textbox a yazmasını istiyorum. Yani Kaydet butonuna basmadan ben yazınca o anda hesaplamasını ve textbox içine yazılmasını istiyorum.

Yardımlarınız için şimdiden çok teşekkür ederim.
Saygılarımla.

Ekli dosyayı deneyiniz.

Private Sub TextBox8_Change()
Dim adet As Double, fiyat As Double
If IsNumeric(TextBox8.Value) Then adet = TextBox8.Value
If IsNumeric(TextBox6.Value) Then fiyat = TextBox6.Value
TextBox7.Value = Format(adet * fiyat, "#,##0.00")
End Sub

Private Sub TextBox6_Change()
Dim adet As Double, fiyat As Double
If IsNumeric(TextBox8.Value) Then adet = TextBox8.Value
If IsNumeric(TextBox6.Value) Then fiyat = TextBox6.Value
TextBox7.Value = Format(adet * fiyat, "#,##0.00")
End Sub

 

[sukruyilmaz1]

Merhaba.


Aşağıdaki kodları ilave edin.

Private Sub TextBox6_Change()
Topla
End Sub

Private Sub TextBox8_Change()
Topla
End Sub

Sub Topla()
    If IsNumeric(TextBox6.Text) And IsNumeric(TextBox8.Text) Then
        TextBox7.Text = TextBox6.Text * TextBox8.Text
    Else
        TextBox7.Text = ""
    End If
End Sub

ÇOK TEŞEKKÜR EDERİM

 

[sukruyilmaz1]

Ekli dosyayı deneyiniz.

Private Sub TextBox8_Change()
Dim adet As Double, fiyat As Double
If IsNumeric(TextBox8.Value) Then adet = TextBox8.Value
If IsNumeric(TextBox6.Value) Then fiyat = TextBox6.Value
TextBox7.Value = Format(adet * fiyat, "#,##0.00")
End Sub

Private Sub TextBox6_Change()
Dim adet As Double, fiyat As Double
If IsNumeric(TextBox8.Value) Then adet = TextBox8.Value
If IsNumeric(TextBox6.Value) Then fiyat = TextBox6.Value
TextBox7.Value = Format(adet * fiyat, "#,##0.00")
End Sub

Emeğinize sağlık Sayın Orion1 Üstadım. Peki bu değerlere "TL" simgesi koyabilir miyiz?

 

[Orion1]

Emeğinize sağlık Sayın Orion1 Üstadım. Peki bu değerlere "TL" simgesi koyabilir miyiz?

Buyurun.

Private Sub TextBox6_Change()
Dim adet As Double, fiyat As Double
If IsNumeric(TextBox8.Value) Then adet = TextBox8.Value
If IsNumeric(TextBox6.Value) Then fiyat = TextBox6.Value
TextBox7.Value = VBA.FormatCurrency(adet * fiyat, 2)
End Sub

Private Sub TextBox8_Change()
Dim adet As Double, fiyat As Double
If IsNumeric(TextBox8.Value) Then adet = TextBox8.Value
If IsNumeric(TextBox6.Value) Then fiyat = TextBox6.Value
TextBox7.Value = VBA.FormatCurrency(adet * fiyat, 2)
End Sub

 

[sukruyilmaz1]

Buyurun.

Private Sub TextBox6_Change()
Dim adet As Double, fiyat As Double
If IsNumeric(TextBox8.Value) Then adet = TextBox8.Value
If IsNumeric(TextBox6.Value) Then fiyat = TextBox6.Value
TextBox7.Value = VBA.FormatCurrency(adet * fiyat, 2)
End Sub

Private Sub TextBox8_Change()
Dim adet As Double, fiyat As Double
If IsNumeric(TextBox8.Value) Then adet = TextBox8.Value
If IsNumeric(TextBox6.Value) Then fiyat = TextBox6.Value
TextBox7.Value = VBA.FormatCurrency(adet * fiyat, 2)
End Sub

Çok Teşekkür Ederim Sayın Orion, Kusura bakmayın size zahmet Malzeme birim fiyatına da TL Simgesi koymak istiyorum

 

[Orion1]

Textbox6nın change olayına değilde afterupdate olayına yazılabilir.
Textbox6 dan çıkınca olay oluşuyor.

Private Sub TextBox6_AfterUpdate()
TextBox6.Value = VBA.FormatCurrency(TextBox6.Value, 2)
End Sub

 

[sukruyilmaz1]

Textbox6nın change olayına değilde afterupdate olayına yazılabilir.
Textbox6 dan çıkınca olay oluşuyor.

Private Sub TextBox6_AfterUpdate()
TextBox6.Value = VBA.FormatCurrency(TextBox6.Value, 2)
End Sub

Çok teşekkür ederim Sayın Orion1...Halloldu.

 

[Orion1]

Rica ederim.
İyi çalışmalar.