textbox hücredeki ondalıklı sayıyı farklı algılıyor.

[harziyan]

Private Sub aktarma_Click()
    Sheets("verisorgula").Select
    Range("a1").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    elmaalan.Value = Sheets("verisorgula").Range("k4").Value * 1
    kirazalan.Value = Sheets("verisorgula").Range("k7").Value * 1
    cevizalan.Value = Sheets("verisorgula").Range("k8").Value * 1
    armutalan.Value = Sheets("verisorgula").Range("k9").Value * 1
    erikalan.Value = Sheets("verisorgula").Range("k10").Value * 1
    üzümalan.Value = Sheets("verisorgula").Range("k16").Value * 1
 End Sub

Yukarıdaki textboxlara veri aldığım örneğin k4 hücresini; sayı olarak ve ondalık basamak sayısı 2 olacak şekilde biçimlendirdim. Ancak textboxlara veriyi aldırdığımda misal 23,32 saysısını 2332 şeklinde algılıyor. Acaba neden böyle oluyor ve ne yapılabilir?

 

[öğrtm]

mrb

hemen birkaç konu altta evren beyin textbox formatla ilgili güzel bir çözüm var inceleyin derim.
TextBox1_Change() olayına textbox un sayı formatını girerseniz sorunun düzelmesi lazım.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız nesne metin kutusu özelliğini taşımaktadır. Sayısal verilerde de kullanabilirsiniz. Fakat verileri bu nesneye yüklerken biçimlendirmeniz gerekmektedir. Aşağıdaki kod yapısını kullanabilirsiniz.

TextBox1 = Format(Range("A1") , "#,##0.00")

 

[harziyan]

Sn : Korhan Ayhan Hocam yardımlarınız için çok teşekkür ederim, ben de bu arada boş durmadım forumu dolaştım ve textboxlara veriyi aşağıdaki şekilde aldırdım, sorun çözüldü...

Val(Replace(elmaalan, ",", "."))