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

[netvolxxx]

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

 

[relaxim]

Merhaba

İstediğiniz bu şekilde mi?

 

[netvolxxx]

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]

Merhaba

Şimdi oldu sanırım.

 

[netvolxxx]

Merhaba

Şimdi oldu sanırım.

eyvallah ustad çok teşekürr ederim aynen budur.....

 

[silenax]

Arkadaşlar aynı sorunu yaşamaktayım dosyayı indiremiyorum. Dosyayı harici olarak paylaşmanız veya kodları paylaşmanız mümkün mü

 

[relaxim]

FORM_HESAP.xlsm dosyasını indir - download

FORM_HESAP.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc