Tablolarda Alt Toplam Aldırma Vba İle - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Tablolarda Alt Toplam Aldırma Vba İle (/konu-tablolarda-alt-toplam-aldirma-vba-ile--88108.html) |
Tablolarda Alt Toplam Aldırma Vba İle - ercansahiner61 - 25/02/2021 TABLO OLARAK HAZIRLANMIŞTIR. "Tablodaki veriler eksilip artabilmektedir. Bu nedenle; örnek verecek olursak; veriler 2 sırada bittiğinde Alacak tutarının ve paylaşım tutarının ALT T OPLAMI, 7 sırada bittiğinde Alacak tutarının ve paylaşım tutarının ALT T OPLAMI, GİBİ VERİLER EKSİLİP ÇOĞALABİLİR. alt toplamı alıyor ancak ""D6"" hücresindeki alacaklar toplamına ALTTOPLAM da dahil edildiğinde hesaplama yanlış oluyor Garame Tablo 2 de alt toplamı elle yaptırdım yeni bir veri gibi görmeden alta alıyor. ancak paylaşım tablosunda Vba kodu ile yapmaya çalıştım sadece son veri altına toplamıı alıyor bunuda "D2" hücresindeki toplama eklediğinde yanlış oluyor. 2 katına çıkıyor. Birde alacaklar toplamını tablo altındaki altoplam dahil edilmeden nasıl aldırabiliriz. değişken olduğu için Vba oluşturamıyorum. " RE: Tablolarda Alt Toplam Aldırma Vba İle - atoykan - 25/02/2021 Konunuzu örnek uygulamalar altında da aynen açmışsınız. Oradakini sildim buradan devam edin, konu açarken daha dikkatli olalım lütfen. RE: Tablolarda Alt Toplam Aldırma Vba İle - ercansahiner61 - 26/02/2021 Değerli arkadailar konı ile ilgilecek biri yokmu RE: Tablolarda Alt Toplam Aldırma Vba İle - boolean_ - 26/02/2021 Tablonuzun B kolonuna sıra no verdiğinizi düşünerek toplamı B kolonundaki hücre dolu ise topla şeklinde yapılabilir. örnek olarak kudunuzda toplam = CDbl(WorksheetFunction.SumIf([b9:b100], ">0", [alan])) şeklinde bir düzenleme yapabilirsiniz. RE: Tablolarda Alt Toplam Aldırma Vba İle - berduş - 26/02/2021 D6ya aşağıdaki kodu yazıp dener misiniz?
RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 27/02/2021 Merhaba. İlgili kodu alttaki ile değiştiriniz.Sadece kodunuzdaki Kod:
satır = sh.Range("B" & Rows.Count).End(3).Row
|