Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 11 Eylül 2010, 18:57:43

Başlık: Textboxda Çarpma ve Yüzde Alma
Gönderen: yesilyurtlu - 11 Eylül 2010, 18:57:43

Ü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 :duvar
Sonuç = 1080,00 olacak
Teşekkür Ederim

Başlık: Ynt: Textboxda Çarpma ve Yüzde Alma
Gönderen: ogulcan92 - 13 Eylül 2010, 20:30:34

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

Başlık: Ynt: Textboxda Çarpma ve Yüzde Alma
Gönderen: assenucler - 14 Eylül 2010, 08:08:11

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

Başlık: Ynt: Textboxda Çarpma ve Yüzde Alma
Gönderen: yesilyurtlu - 15 Eylül 2010, 20:38:07

Alıntı yapılan: ogulcan92 - 13 Eylül 2010, 20:30:34

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