Text box ile ondalık sayı girişi

[milhanalp]

Merhaba arkadaşlar,
Text box ile ondalık sayı girişi yapmaya çalışıyorum. Numara tuşlarının bulunduğuyerdeki nokta tuşunu kullanınca, sayı hücreye, "metin biçiminde saklanan sayı" biçiminde yazılıyor. Dolayısıyla matematik işlemler yapılmıyor. Bu tuşu nasıl kullanırsam sayı olarak hücreye yazdırabilirim? ( Lütfen örnek dosyaya bakınız)
Selamlar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denerseniz olabilir...

Sheets("sayfa1").Range("A1").Value = TextBox1.Value * 1

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:47a11e7902]Sheets("sayfa1").Range("A1").Value = CDbl(Replace(TextBox1.Value, ".", ","))
[/vb:1:47a11e7902]

 

[milhanalp]

Sayın COST_CONTROL,
İlginiz için teşekkür ediyorum. Kodunuzu denedim. (Type mismatch) Hata uyarısı veriyor.
Sayın leventm,
Sizin kodlarınızla doğru sonuç aldım. Çok teşekkür ederim.
Selamlar