Sayfaları toplam sayfasında toplatma?

[assenucler]

Dostlar merhabalar;

Excel dosyamda:
Aidat
Yakıt
Demirbaş
AlacakTahsili
GecikmeTazminatı
TOPLAM

adlarında toplam 6 adet sayfa bulunmaktadır.

Yukarıda ilk 5 sayfanın C7:N7 aralığındaki değerleri, TOPLAM sayfası aynı aralığında formül ile nasıl toplayabilirim?

Yardımınız için önceden teşekkürler

 

[EXTRANET]

Merhaba,

örnek dosya eklermisiniz.

 

[Mustafa MUTLU]

Aşağıdaki Cevap daha uygun.......

 

[emrehan26]

=TOPLA(Aidat:GecikmeTazminatı!C7) yazıp sağa ve aşağı doğru çoğaltın

 

[assenucler]

İçinde veriler bulunan dosyamı ekliyorum.

Acaba zahmet olmazsa, dostlar ve üstadlardan formül, makro ya da başka yollarla çözüm varsa, ricada bulunabilir miyim?

İlginize ve katkılarınıza önceden teşekkürler.

 

[assenucler]

Dostlar farklı çözüm yolları konusunda değerli düşünce ve katkılarınızı bekliyorum...

 

[emrehan26]

yukarıdaki formül işinize yaramıyor mu?

 

[assenucler]

Sayın emrehan26,

Merhabalar, öncelikle ilginiz ve yanıtınız için teşekkürler. Formülünüz işime yaradı.

Ancak makro ile çözümü konusunu da öğrenmek arzusundayım.

 

[ressevet]

Sayın Emrehan bu formul çok iyi işleyiş mantığı bilgisini paylaşabilirmisiniz.

 

[emrehan26]

toplama işlemi bu örnekteki gibi her sayfada aynı hücreleri içeriyorsa,isimlendirdiğimiz sayfaları formül içinde kullanabiliyoruz.Yani aidat ve GecikmeTazminatı arasında kalan sayfaların c7 hücrelerini topla...

 

[assenucler]

Dostlar iyi akşamlar...

Sayfa2, Sayfa3, Sayfa4, Sayfa5 ve Sayfa6 ile Toplam Sayfasının Sütun Başlıkları A7:N7 satırında;
(A)Hane No, (B)Kullanan, C (Oca), D (Şub), E (Mar), F (Nis), G (May), H (Haz), I (Tem), J (Ağu),
K (Eyl), L (Eki), M (Kas), N (Ara)

Tüm sayfaların Satır Aralıkları A8:N90

Dairede oturanların yıl içindeki aylarda ödedikleri yukarıdaki sayfalardaki tutarlarının toplamı, makro ile “TOPLAM” sayfasındaki kendi satırlarına makro ile nasıl aktarılabilir?


Daha sonraki çalışmalarıma ışık olması ve öğrenmek amacıyla, Makro ile çözüm konusunda yardımlarınızı rica ediyorum.

 

[Mustafa MUTLU]

Sub Topla()
MM1 = 8
Range("A2:B65536").ClearContents
For MM = 8 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
Cells(MM1, "A") = Sheets("Sayfa1").Cells(MM, "A")
If Cells(MM1, "A") <> "" Then
For MM2 = 3 To 14
Cells(MM1, "B") = Cells(MM1, "B") + Sheets("Sayfa1").Cells(MM, MM2)
Next MM2
End If
MM1 = MM1 + 1
Next MM
End Sub

Verilerin olduğu sayfayı
Sayfa1 olarak yazdım siz Sayfa1 yazan kısımları değiştirebilirsiniz.
Yada Sayfanızın adını Sayfa1 olarak değiştiriniz.
Toplam sayfasına bir Bir nesne koyup Macroyu nesneye atayınız.

 

[assenucler]

Teşekkür ve bilgi istemi

Sayın Mustafa MUTLU;


İyi akşamlar. İlginiz ve yanıtınız için teşekkürler.

Verilerin bulunduğu sayfalar 2,3,4,5 ve 6... Toplamın alınacağı sayfa 8...

Kodunuzu dosyama ekledim. Aldığım hata kodu ilişikte.. Ne yapmalıyım?

 

[BAZGİRET]

sayın mustafa mutlu;


iyi akşamlar. Ilginiz ve yanıtınız için teşekkürler.

Verilerin bulunduğu sayfalar 2,3,4,5 ve 6... Toplamın alınacağı sayfa 8...

Kodunuzu dosyama ekledim. Aldığım hata kodu ilişikte.. Ne yapmalıyım?

kodların içindeki sayfa numaraları yerine sayfa adı yazınız. Düzelecektir.

 

[assenucler]

Sayın Bazgiret,


İyi geceler. İlginiz için teşekkürler.

Notunuza göre işlem yaptım. Veriler doğru şekilde sıralanmıyor. Toplam sayfasında A8 hücresinde A01 daire no gözükmüyor.

Dairede oturanların isimleri "B08:B90" aralığında listelenmiyor. Yerine tutar geliyor...
C8:C90, D890 ve E8:E90 aralığına aidat toplamları gelmiyor.

Kodlarda nasıl bir düzeltme gerekli?

Dosyayı tekrar ekliyorum.

 

[numan şamil]

Sayın Bazgiret,


İyi geceler. İlginiz için teşekkürler.

Notunuza göre işlem yaptım. Veriler doğru şekilde sıralanmıyor. Toplam sayfasında A8 hücresinde A01 daire no gözükmüyor.

Dairede oturanların isimleri "B08:B90" aralığında listelenmiyor. Yerine tutar geliyor...
C8:C90, D890 ve E8:E90 aralığına aidat toplamları gelmiyor.

Kodlarda nasıl bir düzeltme gerekli?

Dosyayı tekrar ekliyorum.

Merhaba
Ekli dosyayı incelermisiniz

 

[assenucler]

Sayın Numan Şamil,


İyi hafta sonları...

Sonuç tam benim istediğim gibi, tamamdır... Üstadım katkınız için içten teşekkürler. Sağ olun var olun.

Sevgi ve saygılar.

 

[numan şamil]

Sayın Numan Şamil,


İyi hafta sonları...

Sonuç tam benim istediğim gibi, tamamdır... Üstadım katkınız için içten teşekkürler. Sağ olun var olun.

Sevgi ve saygılar.

Kolay gelsin