Textbox daki Değeri Hüceye 0 Yazıyor

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Aşağıdak kod ile Textbox3'ün değeri hücreye Textbox'a yazıldığı gibi yazılırken, Textbox4 ve 5'in değerleri hücreye 0,000000 olarak yazılıyor.

ActiveCell.Offset(0, 2).Value = CDbl(Format(TextBox3.Value, "#,#0.000000"))
ActiveCell.Offset(0, 3).Value = CDbl(Format(TextBox4.Value, "#,##00.000000"))
ActiveCell.Offset(0, 4).Value = CDbl(Format(TextBox5.Value, "#,##0.000000"))

Yardımcı olursanız sevinirim.

 

[RBozkurt]

Deneyiniz,

ActiveCell.Offset(0, 2).Value = CDbl(TextBox3.Value)
ActiveCell.Offset(0, 2).NumberFormat = "#,##0.000000"
ActiveCell.Offset(0, 3).Value = CDbl(TextBox4.Value)
ActiveCell.Offset(0, 3).NumberFormat = "#,##0.000000"
ActiveCell.Offset(0, 4).Value = CDbl(TextBox5.Value)
ActiveCell.Offset(0, 4).NumberFormat = "#,##0.000000"

 

[ahmed_ummu]

Deneyiniz,

ActiveCell.Offset(0, 2).Value = CDbl(TextBox3.Value)
ActiveCell.Offset(0, 2).NumberFormat = "#,##0.000000"
ActiveCell.Offset(0, 3).Value = CDbl(TextBox4.Value)
ActiveCell.Offset(0, 3).NumberFormat = "#,##0.000000"
ActiveCell.Offset(0, 4).Value = CDbl(TextBox5.Value)
ActiveCell.Offset(0, 4).NumberFormat = "#,##0.000000"

Kod için teşekürler sayın RBozkurt ama sonuç yine 0,000000 çıktı

 

[Korhan Ayhan]

Nokta-virgül sorunu yaşıyor olabilirsiniz.

Sayısal değerler varken formunuzun bir görselini paylaşırsanız çözüm için faydalı olabilir.

 

[ahmed_ummu]

Nokta-virgül sorunu yaşıyor olabilirsiniz.

Sayısal değerler varken formunuzun bir görselini paylaşırsanız çözüm için faydalı olabilir.

Sayın Korhan bey görsel olarak ne istediğinizi bilmediğim için Excel sayfasının görselini ekledim.

Adsız1 görselindeki kare içine alınmış değerleri, Adsız görselindeki dosyaya daha önce gönderilen kodlar ile yazacak. Kodlar formun İnitialize yordamında.

 

[ahmed_ummu]

Sorun çözüldü arkadaşlar, çok teşekkürler.