ListBox kayıtlarını sayfaya aktarmada format sorunu

[Usyk]

Merhaba,

Excel sayfasından ListBox'a verileri alırken ilgili sütunu şu kodlarla alıyorum:
ListBox1.List(s, 6) = Format(Cells(Sat, "s"), "0.000")
Sonuç;
0,250
2,990
1,080
....... şeklinde devam ediyor.

Aynı ListBox tan da verileri yeni sayfaya şu kodlar ile kopyalıyorum:
Range("a2:h" & ListBox1.ListCount + 1) = ListBox1.List
Sonuç:
0,250 (Binde 250) 'Doğru
2.990 (2 bin 990) 'Yanlış 2,990 olması gerekir)
1.080 (Bin 80) 'Yanlış 1,080 olması gerekir)
....... şeklinde devam ediyor.

Yani 1'in altındaki değerleri doğru, üstündeki değerleri (.) nokta ile yani 1000 ile çarpmış gibi bir sonuç veriyor.
Mutlaka basit bir hatam vardır ama kaç saattir kafa kalmadı artık. İlgilerinseniz sevinirim.

 

[PLİNT]

Merhaba
İlgili sütunu"Listbox" a alan kod satırını aşağıdaki şekillerde değiştirip denermisiniz?

ListBox1.List(s, 6) = Format(Cells(Sat, "s"), "#,##0.00")

veya

ListBox1.List(s, 6) = CDbl(Format(Cells(Sat, "s"), "#,##0.00"))

 

[Usyk]

Merhaba
İlgili sütunu"Listbox" a alan kod satırını aşağıdaki şekillerde değiştirip denermisiniz?

ListBox1.List(s, 6) = Format(Cells(Sat, "s"), "#,##0.00")

veya

ListBox1.List(s, 6) = CDbl(Format(Cells(Sat, "s"), "#,##0.00"))

Sayın PLİNT çok teşekkür ederim. Sorun çözüldü.