Tablolarda Alt Toplam Aldırma Vba İle

Çok Teşekkür ediyorim. Bu kez dahada güzel olmuş gibi, şimdilik çalışmayan kod mevcut değil. ilgilinize Tşk. iyi geceler

Rica ederim,kolay gelsin.
Sorun olursa yazarsınız konugu çözülmüşlere taşıyorum.
Sizede iyi geceler.

---

Bu arada şunu yazayım.
Tablo boşsa ilk önce B ve E sütunlarına formülleri giriniz.Sonra kodu eklersiniz.Çünkü E sütununa tıklarsanız direkt B sütununa atıyorsa unutmadıysam.
Tabii oda halledilir ufak bir kodla lakin zaten veri olacağı için gerek görmedim.

Worksheet_SelectionChange

Yukardaki kod içindeki 9 yerine belki 10 yazarsanızda dediğim tablo boş olayı için belki çalışabilr.Desiğim gibi sorun olursa hallederiz.

Çok teşekkür ediyorum. uğraşıyorsunuz, buda yeterli sayılır ama başka kişilerde kullanabileceğinden bilmeyen biri için aşağıdaki belirttiğim hususlar yapılabilirmi.

konu ccevaplanmış sorulara taşındığı için yeni değişiklik yaptığım ek dosyayı gönderemiyorum.

=EĞERHATA(EĞER(Paylaşım_bedeli>Alacak_Toplamı_paylaşım;D10;D10*Paylaşım_bedeli/Alacak_Toplamı_paylaşım);"")

E10 hücresine üsteki formülü girmem lazım ancak kodla çalıştığı için alt hücreye atıyor düzenleme yapamıyorum formülü girebilirmisiniz.
paylaşım tutarı toplamı D6 daki paylaşım bedelini geçmemesi lazım. Formül kodada eklenebilir ise iyi olur.

son mesajda belirttiğiniz kodları 9 olanları 10 yaptım boşlukları yinede kaldırmadı.
boş satıra veri girişi yapıldığında Altta boş satır açıyor tab tuşu ile geçildiğinde açılabilirmi? (boşluklar olmasa daha iyi görünüyor)

"Ctrlx ile" boş satır kaldırıldığında üst satırdan sonra TAB tuşu ile yeni satır eklemiyor. toplam satırına gidiyor.

ayrıca Temizle makrosu oluşturulup verilen silindikten sonra kod çalıştırılabilrirmi?

Konuyu taşıdım eki yükleyebilirsiniz.

(01/03/2021, 17:30)feraz yazdı: Konuyu taşıdım eki yükleyebilirsiniz.

feraz hocam teşekkür ederi. sanırım eki yanlışlıkla yeni konu açarak gönderdim oradan alabilirmisiniz, yada onu silin ben burdan tekrar gönderiyorum, tüşekkür ederim.