TextBox Toplama Sorunu

[ocamsul]

Arkadaşlar ekli görüntü de görüldüğü üzre çarpma işlemi yapılıyor. Ancak çıkan sonuçların toplandığı TeztBox10 da toplanan rakamlar hatalı konu ile ilgili yardımlarınızı bekliyorum.

 

[ocamsul]

Arkadaşlar kusuruma bakmayın. Yukarıdaki mesajıma eki koymayı unutmuşum enteresan olan işlemi doğru yapıyor ancak binlik YTL. uygulaması söz konusu olduğunda yapmıyor. binlik olan TextBox u birlik rakamlar olarak algılıyor. Bu YTL. uygulamaları ile başım beleda kesin ve net bir çözüm bulmam lazım.

 

[Tankut SAZLI]

Biraz karışık olacak galiba ama şöyle birşeyler ayarlamaya çalıştım.Tüm kodlarınızı silin ve aşağıdakileri yapıştırın:

Public Function dblRoundOff(ByVal x As Double, ByVal N As Integer) As Double
                        dblRoundOff = CDbl(Int((x * 10 ^ N) + 0.5) / 10 ^ N)
                        End Function
Private Sub TextBox2_Change()
TextBox3 = ""
TextBox3 = Val(TextBox1) * Val(TextBox2)
End Sub
Private Sub TextBox5_Change()
TextBox6 = ""
TextBox6 = Val(TextBox4) * Val(TextBox5)
End Sub
Private Sub TextBox8_Change()
TextBox9 = ""
TextBox9 = Val(TextBox7) * Val(TextBox8)
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Toplama
End Sub
Sub Toplama()
t1 = Round((TextBox3 * 10000), 2) * 100
t1 = dblRoundOff(t1, 2)
t2 = Round((TextBox6 * 10000), 2) * 100
t2 = dblRoundOff(t2, 2)
t3 = Round((TextBox9 * 10000), 2) * 100
t2 = dblRoundOff(t3, 2)

t4 = Val(t1) + Val(t2) + Val(t2)
t5 = (Round((Val(t4) / 10000), 2) / 100)
t5 = dblRoundOff(t5, 2)
TextBox10.Text = t5
TextBox10.Text = Format(TextBox10.Text, "###,###.00 YTL")
TextBox3.Text = Format(TextBox3.Text, "###,###.00 YTL")
TextBox6.Text = Format(TextBox6.Text, "###,###.00 YTL")
TextBox9.Text = Format(TextBox9.Text, "###,###.00 YTL")
End Sub

 

[ocamsul]

SN: Tankut SAZLI ilginize ve yardımlarınıza teşekkür ederim. Ancak, verdiğiniz kodlarda çeşitli noktalarda hata veriyor en basitinden ilgili TextBoxlardan herhangi biri boş ise.

Arkadaşlar sorunuma köklü bir çözüm bulabilirmiyiz. Benim düzenleme mantığım olmasada olur diyorum. Sadece tutarlarım doğru çıksın yeter. İyi çalışmalar arkadaşlar.

 

[ocamsul]

Arkadaşlar ekteki örneğide farklı düzenledim ama örneğin TextBox3 ün değeri 1,098.21 gibi çıktığında sorun yine başlıyor. 999.99 a kadar hiç bir sorun yok.

 

[ocamsul]

Arkadaşlar merhabalar. Benim bu toplama işi ile ilgili sorunum hala devam etmekte Sn: Tankut SAZLI üsdadın gönderdiği örnek işimi görüyor; Ancak bu seferde bu örneği yaklaşık 100 kadar TextBox a uygulama sorunum var. bu örneğin verdiği sonuçları daha basit bir kod dizilimi ile yapmam mümkünmü?

 

[Recep İpek]

Sn.ocamsul

Textbox'da sayılarla çalışmak biraz zor olabilir.

Benim önerim biraz uzun olabilir ama ,bu textboxlardaki verileri excel sayfasına atıp, sonuçlarını tekrar geri yüklemektir.

Excel sayfasındaki gerekli hücrelere formülleri ayarlayıp sonuçları textboxlara alabilirsin.

Örnek olarak aşağıdaki linki inceleyebilirsin.

http://www.excel.web.tr/showthread.php?t=21676

 

[ocamsul]

SN: ripek, ilginize teşekkür ederim. Önerinizi denicem. Çok da mantıklı. Gerçekten TextBox lar ile işlem yapmak zor. Sağolun.

 

[ocamsul]

Sayın: ripek önerdiğiniz yöntemi denedim. Ancak; çıkan sonuç tekrar TextBox a alındığında, hücredeki değer 23.567,56 olmasına rağmen gelen değer görünümü 23567.56 oluyor. bu durumda ilgili kod da ne gibi bir düzenleme yapmam lazım)

Private Sub CommandButton5_Click()
Sheets("TASINIR_ISLEM_FISI").Select
Range("a20").Select
ActiveCell.Offset(0, 7).Value = TextBox23.Value
TextBox25.Value = ActiveCell.Offset(0, 10).Value
End Sub

 

[Recep İpek]

Ekteki örnek dosyanızı inceleyebilirsiniz.