Filtre kaldırma makrosu

[hopeful]

Merhaba,
A--D kolonları arası filtrelidir.

Makro ile, eğer daha önce bir filtre ile herhangi bir kolonda seçim yapılmışsa tüm seçili filtreleri temizlemek, sonrasında da D kolonunda "Ali" seçeneğini filtreleme yapmak istiyorum.

Hazırladağım makro, ikinci kısmı yapıyor. Ancak ilk durumda herhangi bir filtre seçimi yapılmamışsa, kaldırılacak filtre bulamadığından hata veriyor.

Bu problemi nasıl giderebilirim.

İyi çalışmalar

 

[EmrExcel16]

Merhaba , hata veren satırın üstüne aşağıdaki kodu ekleyin.

On Error Resume Next

 

[AdemCan]

Merhaba,
Alternatif olarak aşağıdaki kodları da kullanabilirsiniz.
*D100 olarak belirttiğim hücre aralığını çalışmanıza göre değiştiriniz.

On Error Resume Next
Application.ScreenUpdating = False
ShowAllData
Range("$A$1:$D$100").AutoFilter Field:=4, Criteria1:="Ali"
Application.ScreenUpdating = True

Not: Kodları modül içerisinden çalıştırıyorsanız, ShowAllData ve Range satırının öncesinde sayfa isimlerini yazınız.
Örnek: Sayfa1.ShowAllData , Sayfa1.Range("$A$1:$D$100")...

 

[hopeful]

Merhaba , hata veren satırın üstüne aşağıdaki kodu ekleyin.

On Error Resume Next

Teşekkürler

 

[EmrExcel16]

Teşekkürler

Rica ederim , iyi çalışmalar.

 

[hopeful]

Merhaba,
Alternatif olarak aşağıdaki kodları da kullanabilirsiniz.
*D100 olarak belirttiğim hücre aralığını çalışmanıza göre değiştiriniz.

On Error Resume Next
Application.ScreenUpdating = False
ShowAllData
Range("$A$1:$D$100").AutoFilter Field:=4, Criteria1:="Ali"
Application.ScreenUpdating = True

Not: Kodları modül içerisinden çalıştırıyorsanız, ShowAllData ve Range satırının öncesinde sayfa isimlerini yazınız.
Örnek: Sayfa1.ShowAllData , Sayfa1.Range("$A$1:$D$100")...

Teşekkürler

 

[AdemCan]

Rica ederim, kolay gelsin. İyi çalışmalar.