Textboxlar arası toplam hatası

[ozmacig]

Sevgili arkadaşlar;

5 adet textbox aralarında toplayıp 6 textboxa yazdırıyorum ancak vigülden sonraki kuruş hanesini göstermiyor. kodlar aşağıya verdim ilgilenirseniz sevinirim . örnek : 250,24 toplamını 250,00 olarak veriyor.

toplama:

Private Sub TextBox7_Change()
TextBox13.Value = Val(TextBox7.Value) + Val(TextBox9.Value) + Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value)
End Sub

format

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 On Error Resume Next
' TEXTBOX'A YAZILAN VERİYİ PARA FORMATINA DÖNÜŞTÜRÜR
    TextBox13.Value = Format(CDbl(TextBox13.Value * 1), "#,##0.00")
End Sub

 

[halit3]

Sevgili arkadaşlar;

5 adet textbox aralarında toplayıp 6 textboxa yazdırıyorum ancak vigülden sonraki kuruş hanesini göstermiyor. kodlar aşağıya verdim ilgilenirseniz sevinirim . örnek : 250,24 toplamını 250,00 olarak veriyor.

toplama:

Private Sub TextBox7_Change()
TextBox13.Value = Val(TextBox7.Value) + Val(TextBox9.Value) + Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value)
End Sub

format

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 On Error Resume Next
' TEXTBOX'A YAZILAN VERİYİ PARA FORMATINA DÖNÜŞTÜRÜR
    TextBox13.Value = Format(CDbl(TextBox13.Value * 1), "#,##0.00")
End Sub

böyle denermisiniz.

TextBox13.Value = Round(TextBox7.Value, 2) + Round(TextBox9.Value, 2) + Round(TextBox10.Value, 2) + Round(TextBox11.Value, 2) + Round(TextBox12.Value, 2)

 

[ozmacig]

hocam run-time error 13 hatası vermektedir...

 

[halit3]

Tool / References bölümüne bakın. Mis... ile başlayan referans varsa, kutusunu işaretsiz hale getirin.

 

[ozmacig]

Tool / References bölümüne bakın. Mis... ile başlayan referans varsa, kutusunu işaretsiz hale getirin.

Tool/References bölümünde Mis.. ile başlayan bölüm yok hocam sadece ilk baştan 6 adet kutucuk işaretli

 

[halit3]

örnek dosyanızı ekleyiniz.

 

[ozmacig]

hocam doğrudan yükleme yapamadım program büyük biraz.

indirme linki aşağıda
http://www.upload.gen.tr/d.php/s9/7ugcjgdk/ARA___PROGRAMI.7z.html

 

[halit3]

hocam doğrudan yükleme yapamadım program büyük biraz.

indirme linki aşağıda
http://www.upload.gen.tr/d.php/s9/7ugcjgdk/ARA___PROGRAMI.7z.html

bu dosya excel değil uzantısıda farklı

 

[ozmacig]

excel hocam zip ledim yani sıkıştırdım

 

[halit3]

winrar bunu açmıyor gönderdiğin dosyayı linkden bir indirirseniz görükür

 

[ozmacig]

yeniden yükledim zipsiz

http://www.upload.gen.tr/d.php/s9/iozpd61r/ARA___PROGRAMI_2010-V.0.xls.html

 

[ozmacig]

hocam hatayı bu şekilde çözdüm ancak yine kr hanesini toplamıyor.

On Error Resume Next
TextBox13.Value = Round(TextBox7.Value, 2) + Round(TextBox9.Value, 2) + Round(TextBox10.Value, 2) + Round(TextBox11.Value, 2) + Round(TextBox12.Value, 2)

 

[ozmacig]

tamam hocam çözdüm sorunu . yukarıdaki kod sorunumu çözdü ilginiz için çok sağolun

 

[Orion1]

hocam hatayı bu şekilde çözdüm ancak yine kr hanesini toplamıyor.

Val kullandığınız yerleri cdbl olarak değişitiriniz.

 

[halit3]

textbox7 ile örnek vereyim

bu kodu kaldır kullanma

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)

bunun yerine

Case Asc(",")

bunu kullan

Case Asc(".")

yani virgülleri nokta ile değiştir sorunun çözülecektir.

 

[sqrm]

Form oluşturmada üçüncü günüm tam sonlarına yaklaştım dedim bu kuruş toplama ve hücre biçimlendirme olayında takıldım. Ekli dosyaya bakıp yardımcı olandan allah razı olsun.

1. Textbox1 - 10 arası bölüme barkod okuyucu ile stok kodu giriliyor. change kullanınca sorun cıktı bende ufterupdate kullandım textboxlarda.

2. textbox 42 - 51 arasındaki yerlere iskonto oranı giriliyor ve textbox 52 ile 61 arasına bu değerler hesaplanıp yazılıyor. Buraya kadar her şey güzel

Ancak texboxt 62 ye toplam alıp yazmak istediğimde, eğer 52 ile 61 arasında ondalıklı değer var ise ondalığı yoksayıp topluyor. (Örneğin 10 , 10 ,7,5 topluyor ve 25,5 yerine 255,00 Tl olarak veriyor)

 

[sqrm]

aşağıdaki linkten sorunumu çözdüm teşekkür ederim

http://www.excel.web.tr/f48/userform-textbox-ile-yuzde-hesaplama-ve-toplama-t115023.html