Soru Textbox para birimi type mismatch hatası

[sefa044]

Arkadaşlar ekteki kodla texbox tan hücreye kayıt yapıyorum. Bu değerle de işlem yapıyor excel. Win7 kullanıyorum. Kod sorunsuz hata vermeden çalışıyor.
Excel dosyasını flash bellekle başka bir bilgisayara (win 8 yada win 10) kopyalayıp çalıştırdığımda kıdun cdbl satırında error 13 yani type mismatch hatası veriyor.
Ne önerirsiniz. Teşekkürler.

 

[Ömer BARAN]

Merhaba.
Yanlış düşünmüyorsam; aşağıdaki yöntemlerden birini tercih edebilirsiniz.
-- Kod'daki ilgili satırı [G1] = CDbl(TextBox1.Text) şeklinde değiştirip G1 hücresinen biçimini "#.##0,00 TL" olarak ayarlamak.
-- Ya da kod'daki ilgili satırı; biçimlendirmeyi de kod ile yaptırarak [G1] = CDbl( TextBox1.Text ) : [G1].NumberFormat = "#,##0.00 TL" şeklinde değiştirmek.

 

[Orion1]

İlgili satırı aşağıdaki ile değiştirin.

Range("G1").value = cdbl(textbox1.value)

 

[Orion1]

-- Ya da kod'daki ilgili satırı; biçimlendirmeyi de kod ile yaptırarak [G1] = TextBox1.Text: [G1].NumberFormat = "#,##0.00 TL" şeklinde değiştmek.

Burada g1 hücresi metin olarak kaydedilir.

 

[Ömer BARAN]

Eyvallah, sağ olunuz Sayın GİZLEN, dikkatimden kaçmış demekki.
2 numaralı cevabımı buna göre güncelledim.

 

[sefa044]

Sorunu çözdüm arkadaşlar.
Win7 ve win8 de sorunsuz çalışıyor.
Userform Activate olayı: textbox1=format(range("a1"), "#, ##0.00")
TextBox1_Exit olayı: textbox1=format(TextBox1, "#, ##0.00")
Hücreye kayıt olayı: range("a1")=cdbl(format(TextBox1, "#, ##0.00"))

 

[Orion1]

Hücreye kayıt olayı: range("a1")=cdbl(format(TextBox1, "#, ##0.00"))

Doğrusu şöyle,

 range("a1").value=cdbl(TextBox1.value)
range("A1").numberformat = "#, ##0.00"