ALTTOPLAM Hesaplama Fazladan Satır Açma

[baydeniro]

Merhaba Arkadaşlar,

ÖRnek dosyada H sütunundaki Proje kodlarına göre her kodun bitim satırını açar ve N sütununda o Proje kodunun toplamını alır. kod gayet güzel çalışıyor ama neden en alttaki toplamdan önce fazladan bir satır (18) açıyor. Bunu neden yapıyor olabilir acaba ?

 

[Cengiz Demir]

Ekte dosya yok. Ekleyebilirseniz kontrol edeyim.

 

[baydeniro]

çok teşekkür ederim cengizdemir72

Örnek dosya linki : http://www.dosya.tc/server17/mz9xws/ARA_TOPLAM_HESAPLAMA.xls.html

 

[Cengiz Demir]

Dosyayı indirdim kodu çalıştırınca bu satırda hata verdi. Nedeni ise E6:E65536 yerine E6:E1000000 yazmasıydı. (Excel 2013 de hata verdi)
Dosya eski formatta (Excel 2003 ve öncesi). O yüzden dosyada 65536 satır var. Kodu buna göre değiştirirseniz daha sağlıklı olur.

son = WorksheetFunction.CountA(Range("E6:E65536")) + 6


Bu iki satırda da son+1 yazıldığı için bir satır atlama yapıyor. +1 leri silerseniz sorun çözülür..

Cells(son, "n") = WorksheetFunction.Sum(Range("n" & a & ":" & "n" & son))
Cells(son, "n").Font.Bold = True

 

[baydeniro]

cengizdemir72 üstadım çok çok teşekkür ediyorum, sağlıcakla kalın

 

[Cengiz Demir]

Rica ederim siz de sağlıcakla kalın.