Filtre Uygulama ve Toplam Alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

1903emre34

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,

250 filtre kodu çalıştırdğım zaman, toplamların alınması için koda ilave yapabilir miyiz, istenen sayfada yapılmıştır.
 

Ekli dosyalar

Çözüm
ExcelDepo

ExcelDepo

Merhaba, aşağıdaki kod Sınıf sütununa 250 filtresini uygular ve filtrelenen satırların toplamını listenin hemen altına yazar. Mevcut MAKRO255 kodunun yerine yapıştırılması yeterlidir.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (15 satır). Giriş Yap
Tarihe göre sırala Oylamaya göre sırala
@1903emre34

Böyle durumlarda; listenin altına toplam almak yerine en üste toplam alınması daha pratik/kullanışlıdır.
Bunun için başlık satırı dahil tüm tablonuzu bir satır aşağı taşıyın (veya en üste yeni/boş bir satır ekleyin), ardından da
H1 hücresine TOPLAM: yazın,
I1 (Önc.Yıl.Devir) hücresine =ALTTOPLAM(9;I$3:I$5) formülü uygulayıp bu formülü sağa doğru kopyalayın.

Artık bu satırda sadece filtrelenen satırların toplamlarını görebilirsiniz.
Formüldeki 5 sayısı son veri satırının satır numarasıdır, gerçek verilerinizin durumuna göre bu sayıyı değiştirirsiniz.
 
Oyla 0 Olumsuz oyla
Merhaba, aşağıdaki kod Sınıf sütununa 250 filtresini uygular ve filtrelenen satırların toplamını listenin hemen altına yazar. Mevcut MAKRO255 kodunun yerine yapıştırılması yeterlidir.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (30 satır). Giriş Yap

Kod nasıl çalışır?
  1. Varsa önceki filtreyi kaldırır ve H sütununda TOPLAM yazan eski toplam satırını temizler. Böylece kod tekrar çalıştırıldığında toplam çoğalmaz.
  2. Son veri satırını B sütunundan bulur. 250 kaydı yoksa uyarı verip durur.
  3. Filtreyi 1. satır başlık olacak şekilde A:O aralığına uygular.
  4. Son veri satırının altına TOPLAM yazar. I:N sütunlarına filtre sonucunda görünen satırları toplayan ALTTOPLAM (SUBTOTAL) formülünü ekler ve veri satırlarının sayı biçimini uygular.

Notlar
  • Önceki kod A2:O2 seçimiyle filtre kurduğu için 2. satırı başlık sayıyordu; bu satır filtrelenmeden görünür kalıyordu. Yeni kodda bu durum düzeltildi.
  • İSTENEN sayfasında Cari Amortis. toplamı 1000 olarak pozitif gösterildiği için L sütununda mutlak değer alınır. Toplamın işaretiyle görünmesi istenirse L sütunu için eklenen .Cells(1, "L").Formula satırı silinebilir.
  • Filtre elle değiştirilirse veya yeniden uygulanırsa toplam satırı filtreye girip gizlenebilir. Bu durumda makronun yeniden çalıştırılması yeterlidir.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst