Tablolarda Alt Toplam Aldırma Vba İle

1 2 3 4 5 6 7
02/03/2021, 18:51

ercansahiner61

(02/03/2021, 16:54)feraz yazdı:
(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.
Teşekkür ederim, hemen gönderiyorum.

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.
02/03/2021, 20:53

feraz

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.





02/03/2021, 21:22

feraz

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.
02/03/2021, 21:51

ercansahiner61

Ç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
02/03/2021, 22:05

feraz

(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 durumda
Tablonuz 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 durumda
26.mesajda çalışıyor abey.Neden sizde olmuyor anlamadım.
02/03/2021, 22:19

feraz

Resimdeki boyadıklarımı ekletin birde.

  Application.Calculation = xlAutomatic
  ActiveSheet.Calculate


1 2 3 4 5 6 7