Textbox value nokta virgül sorunu

[CILEKESH]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(ListBox1.ListIndex + 2, 1).Select


TextBox20.Value = Cells(ActiveCell.Row, "a")
TextBox1.Value = Cells(ActiveCell.Row, "c")
TextBox5.Value = Cells(ActiveCell.Row, "d")

Listbox ın çift tıklama olayı ile textlere hücrelerden veri çekiyorum,
Bu hücrelere değerler yine aynı textler aracılığıyla gidiyor.

Sorunum; Textbox5 D hücresindeki 71,08 (virgüllü)olan sayıyı 71.08 olarak (Noktalı) olarak çekiyor. Sonrasında textler kendi içersinde 4 işlem yaparken 71.08 olan yazıyı 7108 olarak algılayıp bu doğrultuda tepki veriyor.

Value fonksiyonunu CDbl olarak yazmaya çalıştım başaramadım,

Yardımlarınızı rica ederim.,,
Teşekkürler

 

[Orion1]

Örnek

TextBox5.Value = cdbl(Cells(ActiveCell.Row, "d"))

 

[drkdrk]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(ListBox1.ListIndex + 2, 1).Select


TextBox20.Value = Cells(ActiveCell.Row, "a")
TextBox1.Value = Cells(ActiveCell.Row, "c")
[COLOR="Red"]TextBox5.Value *1 = Cells(ActiveCell.Row, "d")[/COLOR]

kırmızı satır gibi denediniz mi?

 

[CILEKESH]

Sanırım iki textin arasındaki farkı aldığım şu kodda hata var,

TextBox11 = Format(CDbl(TextBox5) - CDbl(TextBox10), "#,##0.00")

Hatanın resmini ve dosyayıda ekliyorum

 

[Orion1]

Bende hata gözükmüyor.

 

[CILEKESH]

listbox a cift tikladiginizda brut ten dara cikarildiginda hatali sonuc veriyor

 

[Orion1]

listbox a cift tikladiginizda brut ten dara cikarildiginda hatali sonuc veriyor

Dosyanız ektedir.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(ListBox1.ListIndex + 2, 1).Select


TextBox20.Value = Cells(ActiveCell.Row, "a")
ComboBox1.Text = Cells(ActiveCell.Row, "b")
TextBox1.Text = Cells(ActiveCell.Row, "c")
[B][COLOR="Red"]TextBox5.Value = Format(Cells(ActiveCell.Row, "d"), "#,##0.00")
TextBox10.Value = Format(Cells(ActiveCell.Row, "e"), "#,##0.00")
TextBox11.Value = Format(Cells(ActiveCell.Row, "f"), "#,##0.00")[/COLOR][/B]

 

[CILEKESH]

Orion1 Hocam Teşekkür ederim, Dosyamdaki buna benzer tüm hataları düzelttim.

Sayın drkdrk sizede ilginiz için teşekkür ederim.

Kolay gelsin.