TextBox1 deki miktar Sayfa1.[A1] deki para il çarpılıp yüzdesi TextBox2 ye yazılacak.

[kelkitli]

Değerli Dostlar Selamlar,
UserForm1.TextBox1 de bilet miktarı yazılı,
Sayfa1.[A1] de Biletin birim fiyatı (1,70 1 lira yetmiş kuruş) var. Bu değerlerin çarpım sonucunun %12 sini UserForm1.TextBox2 ye 10,25 şeklinde yazdırmak istiyorum. Nasıl bir kod eklemeliyim.

 

[janveljan]

bu kodu textbox1 in change olayına yazmanız lazım
Userform1.textbox2.value=userform1.textbox1.value*Sheets("sayfa1").[A1].Value*0,12

 

[Orion1]

Kod aşağıda.

Private Sub TextBox1_Change()
TextBox2.Text = Format(0, "#,##0.00")
On Error Resume Next
TextBox2.Text = Format(TextBox1.Text * Sheets("Sayfa1").Range("A1").Value * 0.12, "#,##0.00")
End Sub

 

[kelkitli]

Sayın janveljan ve Sayın Evren Hocam,
Cevaplarınız için teşekkür ederim. İşlem ziyadesi ile tamamlanmıştır.

 

[Orion1]

Sayın janveljan ve Sayın Evren Hocam,
Cevaplarınız için teşekkür ederim. İşlem ziyadesi ile tamamlanmıştır.

Rica ederim.
iyi çalışmalar.