"," ü "." ya dönüştürme

[onurdogan]

Merhaba arkadaşlar,

içine para miktarları girdiğim bir textbox ım var ve içine 3,4 girip bir butona bastığımda hücreye 3.40 TL olarak atamasını istiyorum ama bir türlü yapamadım. buradaki noktaya dönüştürme işini çözemedim. bi el atar mısınız halledelim şu problemi.

 

[İhsan Tank]

Merhaba arkadaşlar,

içine para miktarları girdiğim bir textbox ım var ve içine 3,4 girip bir butona bastığımda hücreye 3.40 TL olarak atamasını istiyorum ama bir türlü yapamadım. buradaki noktaya dönüştürme işini çözemedim. bi el atar mısınız halledelim şu problemi.

merhaba

Private Sub CommandButton1_Click()
TextBox1 = Replace(TextBox1, ",", ".")
End Sub

bu kod işinizi görür sanırım

 

[onurdogan]

hocam çok sağol yine yetiştin imdadıma bu kadar kolay olduğunu bilemedim ben mid fonksiyonunu kullanıp yapmaya çalışıyorum ne zamandır. parçalıyorum seçiyorum değiştirmeye çalışıyorum işin karmaşıklığı artınca yanlışlar da çoğalıyo tabi.
Allah razı olsun teşekkür ederim

 

[İhsan Tank]

hocam çok sağol yine yetiştin imdadıma bu kadar kolay olduğunu bilemedim ben mid fonksiyonunu kullanıp yapmaya çalışıyorum ne zamandır. parçalıyorum seçiyorum değiştirmeye çalışıyorum işin karmaşıklığı artınca yanlışlar da çoğalıyo tabi.
Allah razı olsun teşekkür ederim

Allah Hepimizden Razı Olsun
rica ederim
:yazici: