- Katılım
- 27 Temmuz 2006
- Mesajlar
- 54
- Excel Vers. ve Dili
- Excel 2010 - TR
Merhaba Arkadaşlar,
Textbox3 de girmiş olduğum veriyi sayfadaki ilgili hücreye TL olarak,
Textbox4 de girmiş olduğum veriyi sayfadaki ilgili hücreye $ olarak,
Textbox5 de girmiş olduğum veriyi sayfadaki ilgili hücreye dolar kuru olarak,örnek (1,7988)
aktarmasını istiyorum, girdiğim verileri hücrelere yazıyor ancak metin olarak aktardığından elle düzeltmem gerekiyor, verileri direk bu formatlarda nasıl aktarabilirim? Aşağıda ki kodlarda ne şekilde bir düzeltme yapmam gerekiyor? Yardımcı olabilir misiniz
-----------------------------------------------------------------
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox3.Value = Format(TextBox3.Value, "Currency")
End Sub
-----------------------------------------------------------------
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox4.Value = Format(TextBox4.Value, "##,##0.00") - {$ olarak yazmıyor}
End Sub
-----------------------------------------------------------------
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox5.Value = Format(TextBox5.Value, "0.0000")
End Sub
Textbox3 de girmiş olduğum veriyi sayfadaki ilgili hücreye TL olarak,
Textbox4 de girmiş olduğum veriyi sayfadaki ilgili hücreye $ olarak,
Textbox5 de girmiş olduğum veriyi sayfadaki ilgili hücreye dolar kuru olarak,örnek (1,7988)
aktarmasını istiyorum, girdiğim verileri hücrelere yazıyor ancak metin olarak aktardığından elle düzeltmem gerekiyor, verileri direk bu formatlarda nasıl aktarabilirim? Aşağıda ki kodlarda ne şekilde bir düzeltme yapmam gerekiyor? Yardımcı olabilir misiniz
-----------------------------------------------------------------
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox3.Value = Format(TextBox3.Value, "Currency")
End Sub
-----------------------------------------------------------------
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox4.Value = Format(TextBox4.Value, "##,##0.00") - {$ olarak yazmıyor}
End Sub
-----------------------------------------------------------------
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox5.Value = Format(TextBox5.Value, "0.0000")
End Sub
