userform üzerinde toplamada hata

[fedeal]

userform üzerinde toplama işlemi yaptırıyorum toplamada hata yok sorun küsuratlı sayılarda örnegin 179,5 1795 gibi topluyor aslında sayıyı sayfadan alırken aradaki , karakterini . gibi algılıyor yardım ve ilginiz için şimdiden teşekkürler.(combobox üzerinden tarih secip denerseniz daha iyi analrsınız.)

 

[fedeal]

fikri olan kimse yokmu?

 

[fedeal]

sayın hocalarım bir ilgilenseniz olmuyacak gibiyse silip başka cözüm arayacagım

 

[talatcd]

kuruş ayracını (.) nokta kullanmışsın. (,) virgül kullanırsan sorun kalmaz.

 

[fedeal]

userformun sayıları aldığı hücreleri dikkat ederseniz hep "," kulanılmış bu formun üzerinde "." olarak algılanıyor.

 

[fedeal]

acaba bu aktarım kotlarında hata olabilirmi cünkü hücrede "," olan textbox a "." olarak yansıyor.bu kotlara altarnatif kod varmı?

Private Sub ComboBox1_Change()
s = ComboBox1.ListIndex + 2
TextBox1 = Cells(s, 2)
TextBox2 = Cells(s, 3)
TextBox3 = Cells(s, 4)
TextBox4 = Cells(s, 5)
TextBox5 = Cells(s, 6)
TextBox6 = Cells(s, 7)
TextBox7 = Cells(s, 8)
TextBox8 = Cells(s, 9)
TextBox9 = Cells(s, 10)
TextBox10 = Cells(s, 11)

 

[meslan]

Mehaba,
kodları;
TextBox1 = cdbl(Cells(s, 2))
şeklinde deneyin.

 

[fedeal]

sayın meslan sonuç degişmedi ilginiz için teşekkürler iki gündür ezberledim kodların hepsini biyerde hata var ama bulamıyorum.

 

[meslan]

Merhaba,
şu şekilde denyiniz. Ben denedim oldu.
TextBox15 = Format(Cells(s, 16), "#,##0.00")
Kolay gelsin.

 

[fedeal]

büyüksün meslam hocam

size çok teşekkür ederim emeginize sağlık