Makroda Filtreli Alan Satır Saydırıp Yazdırma

  • Konuyu başlatan Konuyu başlatan SeydaNur
  • Başlangıç tarihi Başlangıç tarihi

SeydaNur

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
5
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Excel makroda filtrelediğim bir sütundaki satır sayısını alıp, başka bir excelde bir hücreye yazdıracağım. Ancak cells.(Rows.count,”C”). End(3) kodu filtreli alanımı almıyor tüm varolan satırları sayıyor. Ben ise sadece filtreli alandakileri saydırmak istiyorum. Rica etsem bunu nasıl makroda yazabilirim yardımcı olabilir misiniz?
 
A Sütunundaki Boş Satırları Gizleme
VBADA BOŞ SATIRI BULMA KODU HATA
VBADA BOŞ SATIRI BULMA KODU HATA
Tarihe göre sırala Oylamaya göre sırala
@SeydaNur , forumumuza hoşgeldiniz.

Sorularınızı, cevabımın altındaki İMZA bölümündeki açıklamalar (okuyunuz) doğrultusunda hazırlayacağınız,
özel bilgi içermeyen örnek belgeler üzerinden sorarsanız daha hızlı sonuca ulaşmanız kolaylaşır.

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@SeydaNur , forumumuza hoşgeldiniz.

Sorularınızı, cevabımın altındaki İMZA bölümündeki açıklamalar (okuyunuz) doğrultusunda hazırlayacağınız,
özel bilgi içermeyen örnek belgeler üzerinden sorarsanız daha hızlı sonuca ulaşmanız kolaylaşır.

.
Genişletmek için tıklayın ...

Teşekkürler.

Ekli dosyada kodun açık hali bulunuyor. Filtreledikten sonra kalan satır sayısını alıp yazdırmak istiyorum.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
@SeydaNur
Eklediğiniz PDF belgenin çok anlamı yok aslında. Soruların excel belgesi üzerinden sorulması gerekiyor.
Herneyse; koddan anladığım belgenizin 1'inci satırı başlık satırı ve A:AD sütun aralığında ve
P sütununda filtre uyguluyorsunuz.

-- Sadece P sütununda (sütun no 16) bu sütunda filtre uygulanıyorsa aslında filtre uygulamadan da;
Satırsay = WorksheetFunction.Countif(Range("P2 : P3721"), "Kadın")
-- Yok eğer genel anlamda filtre sonucunda (aynı anda 1'den fazla sütunda da filtre olabilir) kalan satır sayısı öğrenilmek isteniyorsa;
Satırsay = ActiveSheet.Range("A2:A3721").SpecialCells(xlCellTypeVisible).Rows.Count

gibi sonuç alınabilir. Elbette başka seçenekler de bulunabilir.

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@SeydaNur
Eklediğiniz PDF belgenin çok anlamı yok aslında. Soruların excel belgesi üzerinden sorulması gerekiyor.
Herneyse; koddan anladığım belgenizin 1'inci satırı başlık satırı ve A:AD sütun aralığında ve
P sütununda filtre uyguluyorsunuz.

-- Sadece P sütununda (sütun no 16) bu sütunda filtre uygulanıyorsa aslında filtre uygulamadan da;
Satırsay = WorksheetFunction.Countif(Range("P2 : P3721"), "Kadın")
-- Yok eğer genel anlamda filtre sonucunda (aynı anda 1'den fazla sütunda da filtre olabilir) kalan satır sayısı öğrenilmek isteniyorsa;
Satırsay = ActiveSheet.Range("A2:A3721").SpecialCells(xlCellTypeVisible).Rows.Count

gibi sonuç alınabilir. Elbette başka seçenekler de bulunabilir.

.
Genişletmek için tıklayın ...

Tekrar merhaba zaman ayırdığınız için teşekkür ederim. Söylediğiniz yöntemi denedim. Ancak yine istediğime ulaşamadım. Excel hazırlayıp makro kodu da yazdım. Rica etsem tekrar bakabilir misiniz? Umarım şimdi daha açık olmuştur.

1621800019154.webp
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt