excel kodlarında tl formatı satırında hata

[acar6783]

Hayırlı günler,

Kendi bilgisayarımda sorun olmayan bir durum farklı bir pcde sorun oluyor. Şöyle ki;
.List(.ListIndex, 6) * 1
buradaki değer 380 TL
380 TL ise Format(Range("A1").Value, "0.00 TL") olarak geliyor.

Anlamadığım buradaki " .List(.ListIndex, 6) * 1" sorun benim pcde yokken diğer pcde neden hata veriyor.

"380 TL" Bu değeri metin olarak görüyor olabilir mi?

 

[Orion1]

Evet o metin.

 

[acar6783]

o pcde Replace kullandım sorunu geçici olarak çözdüm ama neden benim pc metin olarak görmüyor da o pc görüyor?

 

[Orion1]

TL ibaresini kaldırın.

 

[acar6783]

Ama ben bu görünümde işlemleri yapmak istiyorum.
İşin garibi diğer pcde bulduğum çözüm benim pcde ne cevap verecek
https://yadi.sk/i/Nc_rt7Xb3aZiM7

 

[Orion1]

Nereye yazdırıyorsunuz?sayfayamı userformamı?

 

[acar6783]

Hem sayfaya hem forma yazıyorum,

Şöyle ir sorun da var ki diğer pcde deneme yaptım
Mgbox Format(Range("A1").Value, "0.00 TL")
Sonuç: 380,00 çıktı

 

[Orion1]

A2 hücresi için

Range("A2").NumberFormat = "#,##0.00 TL"

 

[Orion1]

Userformda textbox için,

TextBox2.Value = VBA.FormatCurrency(TextBox1.Value)

 

[acar6783]

textbox için type mismatch hatası alıyorum

 

[Orion1]

Örnek dosya yollayabilirseniz bakarım.

 

[acar6783]

Örnek dosya hazırlamaya çalışacağım fakat,
Olay şöyle ilerliyor. Liste sayfaya geliyor oradan userformda listboxa sıralanıyor tabi TL formatında görünüm,
değeri listboxdan farklı bir formdaki textboxa attığımda "380 TL" olarak atıyor. Sayfada da deneme yaptım aynı şekilde sanki "380 TL" metinmiş gibi geliyor. "Replace "sorunu çözüyor ama " VBA.FormatCurrency" çözmüyor. hata veriyor.
Nasıl olur da metin olarak görür şaşıyorum.