netvolxxx
Altın Üye
- Katılım
- 29 Ağustos 2023
- Mesajlar
- 174
- Excel Vers. ve Dili
- 2013 Türkçe
- Altın Üyelik Bitiş Tarihi
- 07-03-2025
merhaba userform üzerinde 3 adet textbox var bunlara çalışma sayfasından veriler geliyor
örnek:
c2:toplam 1500 ₺
c5:indirim 500 ₺
c8:g.toplam 1000 ₺
userform açıldığında indirim rakam girip buton ile kaydet dediğimde textbox 3 doğru rakamı bi türlü alamadım ayrıca para birimi ₺ bunu kullanmak istediğim de rakamı ₺ bundan sonra yazıyor textbox üzerinde tl olarak ayarladım yine olmadı örnek dosya ekte yükedim. yardımcı olacak arkadaş....
private Sub CommandButton1_Click()
On Local Error Resume Next
Sheets("Sayfa1").Range("c5") = TextBox2.Value
End Sub
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "currency")
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "currency")
End Sub
Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2.Value, "currency")
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = Format(TextBox2.Value, "currency")
End Sub
Private Sub TextBox3_Change()
TextBox3.Value = Format(TextBox3.Value, "currency")
End Sub
Private Sub TextBox3_Enter()
TextBox3 = Val(TextBox1) - Val(TextBox2)
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format(TextBox3.Value, "currency")
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
On Local Error Resume Next
TextBox1 = Sayfa1.Range("C2")
TextBox2 = Sayfa1.Range("C5")
TextBox3 = Sayfa1.Range("C8")
End Sub
örnek:
c2:toplam 1500 ₺
c5:indirim 500 ₺
c8:g.toplam 1000 ₺
userform açıldığında indirim rakam girip buton ile kaydet dediğimde textbox 3 doğru rakamı bi türlü alamadım ayrıca para birimi ₺ bunu kullanmak istediğim de rakamı ₺ bundan sonra yazıyor textbox üzerinde tl olarak ayarladım yine olmadı örnek dosya ekte yükedim. yardımcı olacak arkadaş....
private Sub CommandButton1_Click()
On Local Error Resume Next
Sheets("Sayfa1").Range("c5") = TextBox2.Value
End Sub
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "currency")
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "currency")
End Sub
Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2.Value, "currency")
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = Format(TextBox2.Value, "currency")
End Sub
Private Sub TextBox3_Change()
TextBox3.Value = Format(TextBox3.Value, "currency")
End Sub
Private Sub TextBox3_Enter()
TextBox3 = Val(TextBox1) - Val(TextBox2)
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format(TextBox3.Value, "currency")
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
On Local Error Resume Next
TextBox1 = Sayfa1.Range("C2")
TextBox2 = Sayfa1.Range("C5")
TextBox3 = Sayfa1.Range("C8")
End Sub
Ekli dosyalar
-
19.4 KB Görüntüleme: 3