+- 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)
RE: Tablolarda Alt Toplam Aldırma Vba İle - ercansahiner61 - 02/03/2021
(02/03/2021, 16:54)feraz yazdı:Teşekkür ederim, hemen gönderiyorum.(02/03/2021, 16:49)ercansahiner61 yazdı: formülü değiştirdiim anca değişen oladıSon halini ekleyin akşam bakayım.Sayfada açıklama yalın abey.
Paylaşım tutarı "E10" hücresine bu formül girilmesi lazım, kodlu olup o hücreyi atladığından değiştiremiyorum
=EĞERHATA(EĞER(Paylaştırmabedeli_Paylaşım>AlacaklarToplamı_Paylaşım;Tablo81731[@[Alacak Tutarı]];Tablo81731[@[Alacak Tutarı]]*Paylaştırmabedeli_Paylaşım/AlacaklarToplamı_Paylaşım);"")
alacak toplamı paylaştırma bedelini bulana kadar "D10" hücresindeki alacak tutarının tamamı,
alacak toplamı paylaştırma bedelini bulduğunda alaccak tutarına göre paylaşım olacak (alacak tutarı*Paylaştırma bedeli/alacaklar toplamı) olacak.
ben kodlarda formülü değiştirdim ancak temizle dendiğinde yine garame_tablodaki paylaştırma bedelini alıyor.
4.satır (yani bu satır) dahil veriyi garame tablosundan alıyor
veriler temizlendiğinde alt toplam dahil siliyor ve tablo çalışmıyor, çünkü veriler 3 ad. Olabilir, 30 adette.
RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 02/03/2021
2 adet gif ekledim birisi kodu nasıl pasif yapacağınız yani formüllü hücreyi seçemediğiniz olay için.
ikinciside kodun çalıştığını gösterdim.
Tab ile alt satıra ekleme yapması için D sütununda değişiklik olması gerek.
Yani mesela D10 da veri varsa ve Tab tuşuna basarsanız eklemez O hücreye 2 kere tıklayıp Tab a basınca ekler.
RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 02/03/2021
Bu dosyada ise koddaki formül eklemeyi sildim.
Yani resimdeki gibi pasif yapıp E10 hücresine istediğiniz formülü girip tekrar tek tırmakla pasif yapılan kodu aktif edin.
RE: Tablolarda Alt Toplam Aldırma Vba İle - ercansahiner61 - 02/03/2021
Çok teşekkür ediyorum, formüller güzel olmuş, sizin belirttiğiniz gibi d10 hücresine veri girip iki kez tıkladıktan sonra TAB ile geçtiğim halde E hücresindeki formüller çalışmadığı gibi tablo da çalışmıyor alt toplamıda eklemiyor. ayrıca formülde aktif durumda
RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 02/03/2021
(02/03/2021, 21:51)ercansahiner61 yazdı: Çok teşekkür ediyorum, formüller güzel olmuş, sizin belirttiğiniz gibi d10 hücresine veri girip iki kez tıkladıktan sonra TAB ile geçtiğim halde E hücresindeki formüller çalışmadığı gibi tablo da çalışmıyor alt toplamıda eklemiyor. ayrıca formülde aktif durumdaTablonuz bozuktur yada formül hesaplama el ile olabilir abey.
(02/03/2021, 21:51)ercansahiner61 yazdı: Çok teşekkür ediyorum, formüller güzel olmuş, sizin belirttiğiniz gibi d10 hücresine veri girip iki kez tıkladıktan sonra TAB ile geçtiğim halde E hücresindeki formüller çalışmadığı gibi tablo da çalışmıyor alt toplamıda eklemiyor. ayrıca formülde aktif durumda26.mesajda çalışıyor abey.Neden sizde olmuyor anlamadım.
RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 02/03/2021
Resimdeki boyadıklarımı ekletin birde.
Application.Calculation = xlAutomatic
ActiveSheet.Calculate