Hücreden textbox gelen veri - çıkarma işlemi

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
 

Ekli dosyalar

relaxim

Altın Üye
Katılım
30 Ağustos 2009
Mesajlar
574
Excel Vers. ve Dili
Ofis 2016 Tr 64 bit
Altın Üyelik Bitiş Tarihi
15.06.2027
Merhaba

İstediğiniz bu şekilde mi?
 

Ekli dosyalar

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

İstediğiniz bu şekilde mi?
ustad buda işimi görür şunu sorcam sadece form açıldığında gelen 345000 bu olayı form açıldığında direkt rakamların para birimiyle gelmesi için nasıl yaparız.örnek 345.000,00 ₺
 

relaxim

Altın Üye
Katılım
30 Ağustos 2009
Mesajlar
574
Excel Vers. ve Dili
Ofis 2016 Tr 64 bit
Altın Üyelik Bitiş Tarihi
15.06.2027
Merhaba

Şimdi oldu sanırım.
 

Ekli dosyalar

Katılım
31 Aralık 2018
Mesajlar
16
Excel Vers. ve Dili
2010 tr
Arkadaşlar aynı sorunu yaşamaktayım dosyayı indiremiyorum. Dosyayı harici olarak paylaşmanız veya kodları paylaşmanız mümkün mü
 
Üst