süzme kontrolu nasıl yapılır

[atöz]

Selamlar,

Bir sütunda istenen kriterde süzme olup olmadığı makroda kontrol ettirebilir mi ? Örneğin 6. sütunda kriter "5" olarak süzme var ise çalışacak makro buna göre düzenlensin diye....

İlgilenenlere teşekkürler....

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

On Error GoTo 10
If ActiveSheet.AutoFilter.Filters.Item(6).Criteria1 = "=5" Then MsgBox "merhaba"
10 Exit Sub

 

[atöz]

ÇOK TEŞEKKÜRLER SN LEVENTM İLGİNİZDEN DOLAYI

 

[atöz]

merhaba,

Benim sayfamda 2 adet buton var. 2 butonda kendi makrosuna göre süzme yapıyor.Bir butona tıkladığımda o anda herhangi bir yerde süzme pozisyonu var ise bu süzmeyi kaldırıp kendi süzmesini yapmasını sağlamak istiyorum.O anda pozisyon diğer butonun süzmesinde kalmış olabilir yada alakasız başka bir süzmede kalmış olabilir diye bütün süzmeleri kaldırıp kendi süzmesini yapmasını istiyorum.Yukarıdaki kodu herhangi bir süzme var ise kaldır şeklinde nasıl düzenleyebiliriz.?

 

[Levent Menteşoğlu]

Butonlara ilk satır olarak aşağıdakini ilave edin.

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

[atöz]

çok çok saolun.Tamamdır.

 

[ffff7]

Sayın leventm;

bunu arayıp duruyordum.

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Çok teşekkürler ..

İyi çalışmalar....