Soru Boş satırları filtreleme makrosu

[NADİR YILDIZ]

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

iyi çalışmalar

 

[ÖmerFaruk]

Makro Kaydet yöntemiyle rahatlıkla yapabilirsiniz.
İlk satır boş olanları filtreler
İkincisi hepsini gösterir.

ActiveSheet.Range("$F$6:$F$1000").AutoFilter Field:=1, Criteria1:="<>"
ActiveSheet.Range("$F$6:$F$1000").AutoFilter Field:=1

 

[NADİR YILDIZ]

Ömer bey
benim ilave ettiğim kodda gizleme yapıyor tekrar göstermiyor.ekledim ancak eksik bişey yapıyorum sanırım

teşekkürler

 

[ÖmerFaruk]

Önce Excel sayfasından AutoFilter kısmını iptal edin.
Sonrasında kodlarınızı aşağıdakiyle değiştirip kullanın.

Private Sub CommandButton2_Click()
    ActiveSheet.Range("$A$5:$K$5000").AutoFilter Field:=6
    Range("H4").Select
    End Sub

Private Sub CommandButton3_Click()
    ActiveSheet.Range("$A$5:$K$5000").AutoFilter Field:=6, Criteria1:="<>"
End Sub

 

[NADİR YILDIZ]

Sayın ömer faruk
sizin kodları uyguladığımda dolu alanlar filtreleniyor
benim kodda ise boş olanlar filtreniyor.
sadece benim aynı butonda boşları filtreleyip kontrolümü yaptıktan sonra
filtreyi kaldırıp boş dolu olarak listelesin..ama aynı buton içinde
kısaca boşları filtrele sonra hepsini göster ama aynı butonda olacak şekilde

teşekkürler

 

[ÖmerFaruk]

Sayfada filtre varsa temizler ve işlemi sonlandırır.
Yoksa A6:K5000 arasındaki F sütunundaki boşları gösterir ve işlemi sonlandırır

Sub Boşlar_GösterGizle()
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilterMode = False
    Else
        ActiveSheet.Range("$A$5:$K$5000").AutoFilter Field:=6, Criteria1:="="
    End If
End Sub