textboxta indirim oranı hesaplatma

[efee2000]

Merhaba arkadaşlar,

bir problemim var yardımcı olursanız sevinirim. 3 adet textboxum var.
textbox1, adı fiyat ve sheet1 den otomatik veri alıyor. textbox 2 nin adı indirim oranı ve değerim veri olarak 20, textbox3 de adı indirim oranı ve değerim de veri olarak 10.
yapmak istediğim textbox1 deki değere textbox2 değerini yüzde olarak indirim uygulatmak. cıkan sonucu bu sefer tekrar textbox3 değeriyle yüzde indirim yapmak. yani textbox1 değerim 100 ise buna textbox2 yüzde 20 indirim yapmam lazım sonuc 80 . 80 ide tekrar textbox3 yüzde 10 indirmeliyim : sonuc 72

bu işlemi kod yardımı ile nasıl yaparım..
Teşekkürler..

 

[Levent Menteşoğlu]

Textbox1 e aşağıdaki kodu yazın.

[vb:1:40bc8258b3]Private Sub TextBox1_Change()
TextBox2 = TextBox1 * 0.8
TextBox3 = TextBox2 * 0.9
End Sub
[/vb:1:40bc8258b3]

 

[Korhan Ayhan]

Selamlar,

Bende aşağıdaki kodları önerebilirim.

Private Sub TextBox1_Change()
TextBox2.Value = TextBox1.Value - (TextBox1.Value * 20 / 100)
TextBox3.Value = TextBox2.Value - (TextBox2.Value * 10 / 100)
End Sub


İyi çalışmalar dilerim.

 

[efee2000]

Arkadaşlar yardımlarınız için teşekkürler ancak sanırım ben ne yapmak istediğimi galiba iyi anlatamadım.

textbox1 değerim sayfadan veri alıyor. textbox2 ve textbox3 de değerlerim zaten var ve sabit. amacım textbox1 deki değeri indirmek. textbox2 ve txtbox3 e yeni değer vermek değil... önce textbox2 değeri neyse, textbox1 i o kadar indirimek. cıkan sonucu da textbox3 değeri neyse textbox1 i o kadar indirmek.

 

[veyselemre]

textbox1 e veriyi nasıl alıyorsunuz butonla mı yoksa form açılışıyla mı, kodları yazmazsanız yardımcı olmak zor. Sürekli döngü oluşabilir. Textbox1 e veriyi nasıl aldığınız işlemi yaptırmak için gerekli

 

[efee2000]

Private Sub TextBox9_Change()

On Error Resume Next
TextBox1 = Format(Sheets("Sheet2").Cells(Sheets("Sheet2").[b2:b65536].Find(TextBox17.Value).Row, 4).Value, "0.00")

 

[veyselemre]

Private Sub TextBox9_Change()

On Error Resume Next
TextBox1 = Format(Sheets("Sheet2").Cells(Sheets("Sheet2").[b2:b65536].Find(TextBox17.Value).Row, 4).Value, "0.00")
TextBox1 = Format(TextBox1 * (100 - TextBox2) / 100 * (100 - TextBox3) / 100, "0.00")

 

[efee2000]

verdiğiniz kodlar için teşekkürler veysel emre. ancak bu şekilde kodlar çalışmıyor. bu olayı textbox9 change olayına değil de bence textbox2 change olayına yapsak calışır gibi geldi bana. bakın uğraşmalarım sonucu bi yere vardım sadece 3 üncü textboxun indirim oranını hesaplatmam kaldı. aşağıdaki yazdığım kodlara bi göz atarsanız belki sizin de yardımınız dokunur.

On Error Resume Next
TextBox1.Value = Format(Sheets("Sheet2").Cells(Sheets("Sheet2").[b2:b65536].Find(TextBox17.Value).Row, 4).Value - (TextBox1.Value * TextBox2.Value / 100), "0.00")

bu kodlardan cıkan sonuca
aynı şekilde textbox3 deki veriyi indirim oranı olarak kullanmam için yukardaki olayı yapmamız lazım