• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

toplama işlemine yardım lütfen

Z

zulfuernek

Altın Üye
Katılım
24 Haziran 2017
Mesajlar
761
Excel Vers. ve Dili
türkçe
http://dosya.co/mepd9amdb2c8/ZLF_-_Kopya_-_Kopya.xlsm.html


yukarıdaki linkte dosyayı paylaştım.

balya para, perakende para. parça para toplamlarını alt kısımlarında kendi içinde toplamı veriyor. sol tarafta genel toplamlarda gösteriyor. sorun yok

gişematik ve gişeler bölümünde ise yine toplama yaıpuyor ama genel toplamda kendi bölümünde gösteriyor fakat genel toplama eklemiiyor. label 86 ve label 87 ye toplaması lazım. ne yapmalıyım. lütfen çözelim şunu artık. ne yaptıysam malesf olmuyor.

saol taraftan tarih seçip değerleri girince farkedeceksiniz.
 
Son düzenleme:
Merhaba.

Yanlış görmüyorsam; Label86 ile TextBox22'den TextBox39'a kadarki Textboxlar arasında bir bağantı görünmüyor.

TextBox22'den TextBox39'a kadarki TextBoxların Change kodlarında,
tıpkı TextBox1_Change 'den TextBox21_Change koduna kadarki kısımda olduğu gibi
aşağıdaki kısımların olmasını sağlamalısınız.
.
Kod: 
Label86.Caption = Val(TextBox1.Value) * Val(Label9.Caption) * 1000 + _
                  Val(TextBox2.Value) * Val(Label10.Caption) * 1000 + _
                  Val(TextBox3.Value) * Val(Label11.Caption) * 1000 + _
                  Val(TextBox4.Value) * Val(Label12.Caption) * 1000 + _
                  Val(TextBox5.Value) * Val(Label13.Caption) * 1000 + _
                  [COLOR="Red"]............................[/COLOR]
                  [COLOR="red"]............................[/COLOR]
 
ömer hcam doğru görmüşsünüz. dediğiniz gibi bir bağlantı görünmüyor.

aslında bu kod tüm textboxlrda mevcut fakat bu kodun devamına aynı şekilde
Val(Textbox22) + _
Val(Textbox23) + _
Val(Textbox24) + _
................

diye yazdığımda hata veriyor. yani satır hatası sanırım daha fazla ekleyemzsiniz gibi
 
Label86.Caption = Val(TextBox1.Value) * Val(Label9.Caption) * 1000 + _
Val(TextBox2.Value) * Val(Label10.Caption) * 1000 + _
Val(TextBox3.Value) * Val(Label11.Caption) * 1000 + _
Val(TextBox4.Value) * Val(Label12.Caption) * 1000 + _
Val(TextBox5.Value) * Val(Label13.Caption) * 1000 + _
Val(TextBox6.Value) * Val(Label14.Caption) * 1000 + _
Val(TextBox7.Value) * Val(Label15.Caption) * 1000 + _
Val(TextBox8.Value) * Val(Label16.Caption) * 100 + _
Val(TextBox9.Value) * Val(Label17.Caption) * 100 + _
Val(TextBox10.Value) * Val(Label18.Caption) * 100 + _
Val(TextBox11.Value) * Val(Label19.Caption) * 100 + _
Val(TextBox12.Value) * Val(Label20.Caption) * 100 + _
Val(TextBox13.Value) * Val(Label21.Caption) * 100 + _
Val(TextBox14.Value) * Val(Label22.Caption) * 100 + _
Val(TextBox15.Value) * Val(Label23.Caption) + _
Val(TextBox16.Value) * Val(Label24.Caption) + _
Val(TextBox17.Value) * Val(Label25.Caption) + _
Val(TextBox18.Value) * Val(Label26.Caption) + _
Val(TextBox19.Value) * Val(Label27.Caption) + _
Val(TextBox20.Value) * Val(Label28.Caption) + _
Val(TextBox21.Value) * Val(Label29.Caption) + _
Val(TextBox22.Value) + Val(TextBox23.Value) + Val(TextBox24.Value) + Val(TextBox25.Value) + Val(TextBox26.Value) + Val(TextBox27.Value) + Val(TextBox28.Value) + _
Val(TextBox29.Value) + Val(TextBox30.Value) + Val(TextBox31.Value) + Val(TextBox32.Value) + Val(TextBox33.Value) + Val(TextBox34.Value) + Val(TextBox35.Value) + Val(TextBox36.Value) + Val(TextBox37.Value) + Val(TextBox38.Value) + Val(TextBox39.Value)
 
ömer hocam size yazarken bi fikir canlandı zihnimde satır uyarısı verdi bende yanyana yazınca oldu
tek bir eksiği ile ama

label 86 da toplamı gösterdi ancak kuruşları göstermedi neden acaba
 
labellerin sonundaki tl ibarelerini sildim dediğiniz gibi
kuruşta geldi ancak şu şekilde hocam

mesela ben 2.854.28 yazıyorum fakat sistem 28.54 algılıyor ilk dört haneyi yani
 
Bilgisayar başında değilim, Sayın Osma'nın belirttiği Cdbl yöntemini deneyin, o da olmazsa (boş olma seçeneğini unutmadan) 1×..... yöntemini denersiniz.
Ayrıca uzun uzun nesne adlarını yazmak yerine Control(...) şeklinde For...Next döngüsüyle halledebilirdiniz diye düşünüyorum.
 
hocam fornext konusunda henüz acemiyim bi t
rl
beceremiyorum onu.

osma hocamın dediği cdbl yazınca yapınca hata verdi. fakat dediğiniz gibi 1x dögüsünü deneyecem şimdi umarım olur.
 
ömer hocam hallettim. emeğinize sağlık. hiç bi şekilde olmayınca labelleri textboxa çevirdim ve textboxlarda işlem oldu.

bi sitede okudum textboxlarda value yazınca ve sonuna para değeri ekleyince toplamada hata olduğunu gördüm value de yuvarlama gibi bir şey olduğu için labelleri devre dışı bırakıp textboxa çevirdim.

:) emeğinize sağlık
 
Eklediğim belgede sorun yok.

Userform'un yapısına sadık kalındı.
1* ve Replace üzerinden, hem de kodları kısaltarak çözüm elde edildi.
.
 
ömer hocam henüz altın üye olamadığım için dosyayı indiremedi. sizin yardımlarınızdan zerre kuşkum olamaz zaten. bu yüzden sık kullanılanlara kaydettim ve altın üye olunca dosyayı hemen indireceğim. emeğinize sağlık.


dosyam bitti sayılır ufak tefek eksiği kaldı bunun için forumda paylaştım yeni bir konuyu.

saygılarımla ömer hocam
 
Önceki cevabımda "Dosyaya buradan da erişebilirsiniz." cümlesindeki buradan kelimesine fareyle tıklayın.
Harci erişim bu kelime üzerinden.
.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst