Sayı formatlanınca niçin çarpma toplama vs. hata veriyor

[sender]

Arkadaşlar mrb. format problemi başlığında bu soruya değindim ama galiba anlaşılmadı yada yeni bir başlık açmam gerekiyordu. O yüzden özür diliyorum ve sorumu burada soruyorum.

Sayı formatlanınca niçin çarpma toplama vs. hata veriyor. Daha dğrusu niye noktadan sonrasını almıyor.

textbox1 de 100.000
textbox2 200.000

textbox3tede otomatikmen 300.000 olması gerekirken 300 var.

hesaplama kodlarım şöyle;
textbox3.value = val(textbox1.value) + val(textbox2.value)
bu kodu her üç textboxsada yazıyorum ki otomatik toplasın.

ama sonuç 300 niye böyle oluyor.

textboxlarımın formatı

textbox...= format( texbox...,"###,0") şeklinde..

yardımcı olursanız sevinirim kolay gelsin.

 

[ALPEN]

TextBox.. = Format(TextBox.., "#,##0")

 

[sender]

...
ları soruyorsanız eğer üç tane yazmayayım diye ... koymuştum yanlış anlaşıldıysa özür dilerim

textbox1.value= format(textbox1,"###,0")
textbox2.value= format(textbox2,"###,0")
textbox3.value= format(textbox3,"###,0")

 

[ALPEN]

hayır yanlış anlama yok

format a dikkatedersen biraz değişik.
TextBox.. = Format(TextBox.., "#,##0")

 

[sender]

çok afedersiniz ben yanlış gördüşüm.
Böyle yaparsam düzelelirmi.
Þuan deneme imkanı yok sayın alpen.

yani herhangi bir butona basmadan textbox3 textbox1 ve textbox2 ye girlen değerleri kendi otomatik toplarmı...

100.000+200.000=300.000
çıkartırmı..??

çok teşekkür ediyorum..

 

[ALPEN]

ben denedim çıkıyor : )

 

[sender]

çok saolun bende hemen deneyeceğim kolay gelsin.

 

[sender]

allah allah ben cevap yamıştım ama ne oldu bilmiyorum.

sayın alpen sonuç tam olarak olmadı.

yani 100 ile 100 çarptırımca 1.000 oluyorda
fakat 1.000 ile 5.000
çarptırınca

5 oluyor sonuç

yani bu şudemek

texbox1 ve 2 ye 100 katları şeklinde sayı girdiğimizde sonuç hatalı oluyor.

 

[ALPEN]

TextBox1 = Format(TextBox1, "#,##0")
TextBox2 = Format(TextBox2, "#,##0")
TextBox3 = TextBox1 * TextBox2
TextBox3 = Format(TextBox3, "#,##0")

 

[sender]

sayın alpen
Evet bende böyle giriyorum ve ilk denemem şuydu

tex1 e 2.500
text2 ye 300.000
text3= oldu 750 ye

 

[Hüseyin]

Sayın sender,
konuyu tam takip edemedim ama, bölgesel ayarlarınızdan kaynaklanıyor olabilirmi sorununuz?

 

[ALPEN]

Private Sub CommandButton1_Click()
TextBox3 = TextBox1 * TextBox2
TextBox3.Value = Format(TextBox3, "#,##0")
End Sub

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "#,##0")
End Sub

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2, "#,##0")
End Sub

araçlar> seçenekler> uluslararası(farklı olabilir bendeki excel ingilizce) ondalık ayracı ile binlik ayracı ne olarak görünüyor sizde?

 

[sender]

sayın alpen ben texbox 3 otomatik toplam alıyorum yani buton kullanmıyorum...
kod ları her texboxsada yazıyorum

texbox3= texbox1*textbox2

 

[ALPEN]

araçlar> seçenekler> uluslararası(farklı olabilir bendeki excel ingilizce) ondalık ayracı ile binlik ayracı ne olarak görünüyor sizde?

 

[sender]

syın alpen ondalık ayraç , binlik ayraç .
onlarla ilgili bir problem yok.

sadece aramızda bir iletişimm bozukluğu oldu galiba.

bu kodları bir butona atayınca tamam oluyor ama
t3 kendi toplasın diyorum ben. butona basmadan.

 

[ALPEN]

harbiden koptu iletişim.

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "#,##0")
If IsNumeric(TextBox1) = True And IsNumeric(TextBox2) = True Then
TextBox3 = TextBox1 * TextBox2
TextBox3.Value = Format(TextBox3, "#,##0")
End If
End Sub

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2, "#,##0")
If IsNumeric(TextBox1) = True And IsNumeric(TextBox2) = True Then
TextBox3 = TextBox1 * TextBox2
TextBox3.Value = Format(TextBox3, "#,##0")
End If
End Sub

 

[sender]

sayın alpen cevaplarınız için çok teşekkür ediyorum...
E hocam neolcak Bu kadar çok excel bilgisine sahip olursanız cevap vermek için ordan oraya koşarsanız üyelerin sorduğu soruları karıştırırsınız.. :mrgreen: :mrgreen: :mrgreen: :mrgreen:

 

[BeyazGölge]

Arkadaşlar Sayın ALPEN'nin verdiği kodu çalıştırdım sorunsuz çalışıyor.

Fakat çarpımın yapıldığı textboxları toplamaya kalkdığımız zaman sayı gibi (2 + 2 = 4) üstüste toplama yerine birleştiriyor ( 2 + 2 = 22).

Bu sorunu halledebilirmiyiz. Ben kafayı yedim bir türlü çözemedim.. :kafa:

 

[Levent Menteşoğlu]

sorunuzun cevabı aşağıdaki linkte mevcuttur.

http://www.excel.web.tr/viewtopic.php?p=5190&highlight=#5190

selamlar

 

[BeyazGölge]

Teşekkür ederim. İşe yarar bir bilgi.