Boş satırları filtreleme makrosu

[NADIRYILDIZ]

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

 

Satır silme ve sütun silme kodları

sitedeki firma bilgilerini excele çekme

[okutkan]

Makro kaydet yöntemiyle yapmayı denediniz mi?

 

[NADIRYILDIZ]

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

 

[okutkan]

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.

 

[NADIRYILDIZ]

Sayın Okutkan
Bişeyler yaptı ama sonuç alamadım.
eksik & fazla bişey var anlaşılan

 

[okutkan]

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.

 

[NADIRYILDIZ]

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

 

[okutkan]

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.

 

[NADIRYILDIZ]

sayın okutkan benim kaçırdığım bişey var sanırım

ben boş olan sarı alanları filtresin istiyorum bunu yaptım
+ yapmak istediğim tekrar bütün satırları göstermesi denedim ancak sonuç alamadım

iyi çalışmalar

 

[okutkan]

Sizde Bu şekilde işlem yapmıyor mu?

 

[NADIRYILDIZ]

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

 

[okutkan]

"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.

 

[NADIRYILDIZ]

"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

 

[Ömer BARAN]

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

Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)

 

[NADIRYILDIZ]

Ü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

 

[Ömer BARAN]

Sorunlu belgeyi görmek lazım.
Hep söyleriz: "örnek belge önemli".

 

[NADIRYILDIZ]

Üstad kontrol paneli butonuna basıldığında açılan userformda

en üstte boş satırları filtrele butonuna bastığımda yukarıdaki hatayı veriyor

teşekkürler

 

[NADIRYILDIZ]

Sorunlu belgeyi görmek lazım.
Hep söyleriz: "örnek belge önemli".

evet haklısınız üstad

 

[Ömer BARAN]

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).

Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)

 

[NADIRYILDIZ]

Üstad
herzamanki gibi yine yetiştiniz imdadıma

çok çok teşekkürler

iyi çalışmalar