Textboxda Çarpma ve Yüzde Alma

[yesilyurtlu]

Üstadım;
Ramazan Bayramınız Mübarek olsun

Private Sub TextBox13_Click()
TextBox13.Text = (CDbl(TextBox8) * CDbl(TextBox12)) / 100
End Sub
Amacım
TextBox8 deki sayı 1000,00
TextBox12 deki sayı "%8"
TextBox13 e TextBox8 in yüzdesini almak ve 1000,00 sayısının üzerine eklemek   yalnız TextBox12' ye % oranını girer girmez hesaplayacak
Sonuç = 1080,00 olacak
Teşekkür Ederim

[ogulcan92]

Sn:yesilyurtlu
Aşağıdaki şekilde deneyiniz ve kendi projenize uyarlarsınız.

Kod: [Seç]

Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Text = CDbl(TextBox1.Text) / 100 * CDbl(TextBox2.Text) + CDbl(TextBox1.Text)
End Sub

[assenucler]

Arşivime ekliyorum. Teşekkürler sayın ogulcan92..

[yesilyurtlu]

Sn:yesilyurtlu
Aşağıdaki şekilde deneyiniz ve kendi projenize uyarlarsınız.

Kod: [Seç]

Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Text = CDbl(TextBox1.Text) / 100 * CDbl(TextBox2.Text) + CDbl(TextBox1.Text)
End Sub

teşekkürler efendim