Sayfaya otomatik filtre uygulamak

[ASLAN7410]

Merhaba herkese hayırlı akşamlar.

Ekte gönderdiğim excel dosyamda A1 ile G1 sütunları arasında filtre uyguluyorum, sayfayı her açtığımda
açık olan filtre kaldırılıyor, ya da olmayan filtreler ekleniyor. Arkadaşlar yanlışlıkla filtreleri kaldırıyorlar,
bende otomatik filtre uyguladığımda bu seferde filtreler kalkıyor.

Benim istediğim ister sayfada filtre olsun veya olmasın otomatik filtre koymasını istiyorum.

Private Sub Workbook_Open()
    On Error Resume Next
    Sheets(1).Range("A1:G1").AutoFilter
End Sub

Yardımcı olur musunuz?

 

[Ömer BARAN]

Merhaba, cep telefonundan yazıyorum.

Daha evvel, "filtre varsa uyarı" içerikli bir konunuzun varlığını hatırlıyorum.
O konusaki çözümden faydalanabilirsiniz.

 

[ASLAN7410]

Sayın Ömer Bey ilginiz için çok teşekkür ediyorum, hayırlı geceler.

Filtre butonu için mesaj başlık altında aşağıdaki linkte konuyu açmıştım,

http://www.excel.web.tr/f48/filtre-butonu-icin-mesaj-t154509.html siz de bu konuya aşağıdaki kodu yazmıştınız.

Sub FiltreTemizle()
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData: MsgBox "Filtreler açıldı"
    Else: MsgBox "Filtrelerin hepsi açık": End If
End Sub

Benim istediğim bu değil, sayfayı ilk açtığımda A1 ile G1 arasındaki sütuna otomatik olarak filtre uygulamak istiyorum.

Private Sub Workbook_Open()
    On Error Resume Next
    Sheets(1).Range("A1:G1").AutoFilter
End Sub

Yukarıdaki kodu uyguladığımda sayfayı açtığımda sütuna uygulanmış olan filtreler kalkıyor, sayfaya filtre eklemeden kaydedip çıkıp tekrar açtığımda filtre geliyor.
Sayfada filtre olsun veya olmasın her açtığımda otomatik filtre uygulamak istiyorum.

 

[Merhum İdris SERDAR]

.

Bunu deneyin.

Private Sub Workbook_Open()

  If Not ActiveSheet.AutoFilterMode Then
  Sheets(1).Range("A1:G1").AutoFilter
  End If
     
End Sub

.

 

[ASLAN7410]

Sayın İdris Bey çok teşekkür ederim, tam istediğim gibi oldu ellerinize sağlık.

Hayırlı çalışmalar hayırlı geceler diliyorum.