Boş satırları filtreleme makrosu

NADIRYILDIZ

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
235
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Arkadaşlar günaydın
userformun içindeki butona boş satırları filtreleme makro ile nasıl yapılabilir
filtreleme yapılacak alan F6:F1000 arasında olup boş satırlar formüllüdür.
butona basılınca filtrereleyip tekrar basıldığın filtre kaldırma şeklinde yapılabilirse daha iyi olur

İyi çalışmalar
 
hakki83
Satır silme ve sütun silme kodları
sitedeki firma bilgilerini excele çekme

Ekli dosyalar

Çözüm
Ömer BARAN
Son bir şeyi fark ettim.
Userform açılırken ilgili düğmenin üzerindeki METİNin de kontrol edilmesinde yarar var.
Bunun için; UserForm_Inıtalize kodunda End Sub satırının hemen üstüne şu satırları ekleyin.
Böylece userform açılırken, sayfa filtrelenmiş durumda mı değil mi durumuna göre düğmenin üzerindeki yazı değişmiş olur.


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(11 satır)
Tarihe göre sırala Oylamaya göre sırala
sayın okutkan
doğruyu söylemek gerekirse makro kaydet yöntemini çok duymama rağmen nasıl yapılır & uygulanır bilgim yok
teşekkürler
 
Oyla 0 Olumsuz oyla
Makro kaydet butonuna tıklıyorsunuz.
F sütununda boş hücreleri bir defa filtreleme yapıyorsunuz.
Makro kaydet butonuna tıklıyorsunuz.
Modül içerisine kodlarınız hazır hale geliyor. Kodu buton içerisinde kullanabilirsiniz.
 
Oyla 0 Olumsuz oyla
Makro kaydetme işlemi sırasında gereksiz işlemler yapmamanız gerekir. Sadece gerekli işlemlerinizi yapıp makro kaydını durdurmalısınız.
Sayfa üzerine buton ekledim.

Makro kaydetme işlemi.
gizle.webp
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
sayın okutkan
öncelikle makro kaydet örnek anlatımı için teşekkür ediyorum.Gayet güzel ve öğretici
benim istediğim;
boş olanları filtrelemekti sayenizde yaptım
sonrasında tekrar tıkladığımda filtreyi kaldırmak için nasıl bir ekleme yapmak gerekir

teşekkürler
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Yüklediğim dosyada, "gizle" butonuna tıkladığınızda buton ismi "göster" olarak değişir. Butona tekrar bastığınızda gizlenen satırlar gösterilir.
 
Oyla 0 Olumsuz oyla
sayın okutkan
sizde dolu satırları filtreliyor sonra boş satırlarla birlikte hepsini gösteriyor
benim yapmak istediğimde boş satırları filtrelemek..sonra tekrar boş & dolu hepsini listelemek
boş satırları filtreledim burada sorun yok
sonra tekrar filtereyi kaldırmak istiyorum bunu beceremedim

teşekkürler
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
"benim yapmak istediğimde boş satırları filtrelemek..sonra tekrar boş & dolu hepsini listelemek"
Gizle butonuna tıkladığınızda f sütununda bulunan boş hücrelere ait satırları gizliyor.
Göster butonuna tıkladığınızda f sütununda bulunan boş satırların filtresi kaldırılarak 'boş & dolu' satırların hepsi gösteriliyor.
 
Oyla 0 Olumsuz oyla
"Gizle butonuna tıkladığınızda f sütununda bulunan boş hücrelere ait satırları gizliyor."
demişsiniz
ancak ben boş hücredekileri gizlemesin aksine boş hücreleri göstersin istiyorum bunu yaptım boş alanları filtre butonuna bastığımda boş satırları gösteriyor sarı alanları yani
hepsini göster butonu ekledim oda bütün filtreyi kaldırıyor
buraya kadar güzel

tek istediğim iki kodu
boş alanları filtre butonuna eklemek tek butonda sonuç almak
sanırım anlatabildim
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
CommandButton2'ye ait kodu şöyle değiştirin (diğer düğme silinebilir)

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(14 satır)
 
Oyla 0 Olumsuz oyla
Üstad
Teşekkür ederim
örnek dosyamda sorun yok gayet güzel çalışıyor
ancak bu butonun userform içinde yer almasından kaynaklı olduğunu düşündüğüm aşağıdaki şekilde..
sonsatir hatası veriyor



Private Sub CommandButton12_Click()
With ActiveSheet
sonsatir = .Cells(Rows.Count, 2).End(3).Row
tumu = sonsatir - 5
kalan = .Range("B6:B" & sonsatir).SpecialCells(xlCellTypeVisible).Count
If kalan <> tumu Then
.Range("$A$5:$K$5000").AutoFilter Field:=6
CommandButton2.Caption = "BOŞ OLANLARI GÖSTER"
Else
.Range("$f$6:$f$5000").AutoFilter Field:=6, Criteria1:="="
CommandButton2.Caption = "TÜMÜNÜ GÖSTER"
End If
End With
End Sub
 
Oyla 0 Olumsuz oyla
Sorun daha evvel aynı userform ile ilgili başka bir konu sayfasındaki sorunla aynı.
UserForm kodlarının en tepesinde OPTION EXPLICIT satırı olmasıyla ilgili.
Kodların başında bu satır olduğunda; kodlarda kullanılan tüm değişkenlerin DIM..... satırlarıyla tür tanımlamasının yapılması gerekiyor.
Ayrıca CommandButton'un adı da farklı (2 değil 12).

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(15 satır)
 
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