sayfalardaki filitrelemeyi kaldırmak

[yavuz829]

Merhaba arkadaşkar çalışma kitabımı kapattığım zaman bütün sayfalardaki filitreler kalksın istiyorum. Birde sayfalara tıkladığım zaman açılan sayfada filitreme varsa açtığım zaman otomotikmen filitreme kalksın. Bu konuda yardım ederseniz sevinirim.

 

[Orion1]

Yeni sayfa seçildiğinde ondaki autofilter kalkıyor.
Kodlar thisworkbook modülüne yazıldı.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.AutoFilterMode Then [B][COLOR="Blue"]ActiveSheet.Range("A1").AutoFilter field:=1[/COLOR][/B]
End Sub

dosya ilk açıldığında bütün sayfalardaki autofilterleri kaldırıyor.
Kodlar standart modüle auto_close prosedürüne yazıldı.

Sub auto_close()
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.AutoFilterMode Then [B][COLOR="Red"]sh.range("A1").autofilter field:=1[/COLOR][/B]
Next
End Sub

 

[yavuz829]

Çok teşekürler hocam. Hocam hilitrelemeyi kaldırdığı zaman ok işaretindeti filitreleme butonlarını da kaldıriyor. Filitreleme butonlarını kaldırmadan ayı işlemi yaparsa daha iyi olur eğer oluyorsa.

 

[Orion1]

Çok teşekürler hocam. Hocam hilitrelemeyi kaldırdığı zaman ok işaretindeti filitreleme butonlarını da kaldıriyor. Filitreleme butonlarını kaldırmadan ayı işlemi yaparsa daha iyi olur eğer oluyorsa.

2 numaralı mesajda gerekli değişikliği yaptım.ötekileri silip oradaki yeni yazdıklarımı deneyiniz.

 

[yavuz829]

Çok teşekürler hocam. Hocam yeni sayfayı seçtiğim zaman yine okları siliyor.

 

[Orion1]

Çok teşekürler hocam ellerinize sağlık.

önceki verdiğim istediğinizi yapmadı.
Tekrardan düzenledim.
Şimdi istediğinizi yapacaktır.
Önceki yerden tekrar alın kodları.

 

[yavuz829]

Hocam hata veriyor.

 

[Orion1]

Hocam hata veriyor.

tekrar düzenledim.Ayni yerden o kodları alıp tekrar deneyiniz.

 

[yavuz829]

Şimdi oldu çok, çok teşekürler hocam.

 

[Orion1]

Şimdi oldu çok, çok teşekürler hocam.

Rica ederim.
İyiçalışmalar.