Makro verilerin dip toplam

[isakaratastan]

Akadaşlar dosyada da görüldüğü gibi makro sayfasında olan bilgilerin dip toplamı lazım. ben kendi çabamla yaptığım formüldeki gibi olması lazım ama gelgör ki hesapla dedim mi bilgiler buhar olup ucuyorlar. bilgilerin gitmemesi için bana yardımcı olurmusunuz?
mümkünse 16 V 9514 ve 16 LBM 52 bir diğerleri bir gelsin

lütfen yardım Saygılarımla...

 

[isakaratastan]

Dosya ektedir

 

[Ömer BARAN]

Dosyanız ekte.

GÜNLÜK TAKİP sayfasındaki toplam satırlarını üst tarafa alıp bölmeyi dondurdum, böylece toplamla sayfayı kaydırdığınızda da görünür olur ve kodun baş tarafındaki;

satir = 4

kısmını;

satir = 7

olarak ve

Sheets("GÜNLÜK TAKİP").Range("B45000").ClearContents

kısmını da

Sheets("GÜNLÜK TAKİP").Range("B75000").ClearContents

olarak değiştirdim.

Sanırım düzeldi, kontrol ediniz.
Formüllerin yapısına bakmadım, sadece yerini değiştirdim.

Verileriniz sapasağlam yerinde.

 

[isakaratastan]

Kardeş sağolan üst tarafta olması güzel olmuz. ama sorunun 2 ayağı çözülmemiş. sorun ayın 11. 13 araç sevkiyata çıkmış diğer günlerde sevkyatlarda azalma ve artma olacak yani araçlar 2 turda atma olasılığı var. bu durumda altta açılacak olan plakaları baz alması lazım.

 

[Ömer BARAN]

Excel belgenizi incelemedim maalesef, siz sadece verilerim siliniyor dediğiniz için,
sadece kod tarafından silinen kısma ilişkin değişiklik yaptım.
Belgenizini yapısını veya diğer hususları incelemedim açıkçası.
Şu an ben de başka bir iş üzerinde çalışıyorum, müsait olursam bakabilirim belki.
Sağlıcakla kalınız.

 

[isakaratastan]

Yardımcı olabilecek arkadaşlar var mı?