Filtre varsa uyarı gelsin

[umitumit]

Merhaba arkadaşlar,

Ortak kullanılan bazı dosyalarda, bazı arkadaşlarım filtre çalıştırdıktan sonra dosyayı kaydedip çıkıyor.
Aynı dosyayı kullanan diğer arkadaşlar ise filtreli olduğunun farkına varmadan en alt satıra veri girmeye devam ediyor.
("Nasıl olur?" demeyin, iş arkadaşlarım çok yetenekli)

Dosya ilk açıldığında eğer filtreli ise ekrana uyarı gelmesini nasıl sağlarız?

"KARDEŞİM FİLTRE VAR, GÖRMÜYOR MUSUN?" gibi

 

[hamitcan]

Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_Open()
 If Worksheets("Sayfa1").AutoFilterMode Then MsgBox "KARDEŞİM FİLTRE VAR, GÖRMÜYOR MUSUN?"
End Sub

 

[umitumit]

Çok teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Bence dosya kapanırken filtre temizleme özelliği eklenirsede çözüm olabilir.

. . .

 

[senkroniz]

Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_Open()
 If Worksheets("Sayfa1").AutoFilterMode Then MsgBox "KARDEŞİM FİLTRE VAR, GÖRMÜYOR MUSUN?"
End Sub

hamitcan hocam benimde bir sorum var yazdığınız kod ile ilgili;peki 1 den fazla sayfa varsa bu çalışma kitabında ve bir veya birden fazla sayfada filitreleme varsa kodda nasıl değişiklik yapılabilir?Yani çalışma kitabını açtıktan sonra en son kaydedilen sayfada filitreleme yok fakat alt sayfa sekmelerinden diğer sayfaya geçtiğimizde bu sayfada filitreleme varsa uyarı verdirebilirmiyiz?

 

[umitumit]

Sayın hamitcan,

Dosyamda bulunan listede filtre kullanıyorum.
Aramak istediğim veriler için filtreyi açıp, seçip, sonuca ulaşıyorum.

Bazı arkadaşlarım bu filtre kullanımdayken dosyayı kaydedip çıkıyor.
Dosyayı yeni açacak olan kişiye, filtre modu kullanımdaysa uyarı gelmeli.

Sizin makronuzda filtre modu açıkken veya filtresizken farketmiyor, her defasında uyarı geliyor.

Ne yapabiliriz?

 

[Ömer BARAN]

Merhabalar.

Aşağıdaki konu sayfasındaki 3 numaralı cevabım işinize yarayacaktır.
Bir bakın isterseniz.

http://www.excel.web.tr/f48/filtre-butonu-icin-mesaj-t154509.html
.

 

[hamitcan]

Sayın hamitcan,

Dosyamda bulunan listede filtre kullanıyorum.
Aramak istediğim veriler için filtreyi açıp, seçip, sonuca ulaşıyorum.

Bazı arkadaşlarım bu filtre kullanımdayken dosyayı kaydedip çıkıyor.
Dosyayı yeni açacak olan kişiye, filtre modu kullanımdaysa uyarı gelmeli.

Sizin makronuzda filtre modu açıkken veya filtresizken farketmiyor, her defasında uyarı geliyor.

Ne yapabiliriz?

Bir de böyle deneyin.

Private Sub Workbook_Open()
    ' If Worksheets("Sayfa1").AutoFilterMode Then MsgBox "KARDEŞİM FİLTRE VAR, GÖRMÜYOR MUSUN?"
    With Worksheets("Sayfa1")
        If .AutoFilterMode Then
        For i = 1 To Range("a1:a100").End(xlToRight).Column
            With .AutoFilter.Filters(i)
                If .On Then MsgBox "KARDEŞİM FİLTRE VAR, GÖRMÜYOR MUSUN?" 'c1 = .Criteria1
            End With
         Next
        End If
    End With
End Sub

 

[hamitcan]

hamitcan hocam benimde bir sorum var yazdığınız kod ile ilgili;peki 1 den fazla sayfa varsa bu çalışma kitabında ve bir veya birden fazla sayfada filitreleme varsa kodda nasıl değişiklik yapılabilir?Yani çalışma kitabını açtıktan sonra en son kaydedilen sayfada filitreleme yok fakat alt sayfa sekmelerinden diğer sayfaya geçtiğimizde bu sayfada filitreleme varsa uyarı verdirebilirmiyiz?

Böyle deneyin.

Private Sub Workbook_Open()
Dim sht As Worksheet
    ' If Worksheets("Sayfa1").AutoFilterMode Then MsgBox "KARDEŞİM FİLTRE VAR, GÖRMÜYOR MUSUN?"
    For Each sht In Worksheets
    With sht
        If .AutoFilterMode Then
        MsgBox sht.Name
        For i = 1 To Range("a1:a100").End(xlToRight).Column
            With .AutoFilter.Filters(i)
                If .On Then MsgBox "KARDEŞİM FİLTRE VAR, GÖRMÜYOR MUSUN?" 'c1 = .Criteria1
            End With
         Next
        End If
    End With
    Next
End Sub