Sayıya çevirme

[mtbi00]

Merhaba,

Excel vba ile başka bir sayfadan başka bir sayfaya sayısal değer çekmeye çalıştığımda metin biçiminde saklanan sayı olarak kaydediyor. Daha öncesinde böyle bir şey olmuyordu. Komut aşağıdaki gibi. Kaynaktan aldığı sayıyı hedefe metin biçiminde sayı olarak kaydediyor. Yardımcı olursanız sevinirim. (Bu arada kaynaktaki değer formülle üretiliyor)

Sheets("data").Cells(sat1, "h") = Format(Sheets("gecikme").Cells(i, sutung), "#,####0.00")

 

[Orion1]

Böyle deneyiniz.
Sheets("data").cells(sat1,"H").value = sheets("gecikme").cells(i,sutung).value
sheets("data").cells(sat1,"H").numberformat="#,####0.00"

 

[mtbi00]

Böyle deneyiniz.
Sheets("data").cells(sat1,"H").value = sheets("gecikme").cells(i,sutung).value
sheets("data").cells(sat1,"H").numberformat="#,####0.00"

Tamamdır. Çok teşekkür ederim.