İki tarih arası filtreleme makrosuz

[e-egeli]

Kolay gelsin.
M3 ve N3 hücrelerine hangi tarih yazılırsa o iki tarih arasındaki verileri diğer sayfalarda otomatik olarak filtreleme yapabilmek için formülleme yapmak istiyorum. Tarihleri değiştirdiğimde yine otomatik olarak o tarihleri filtrelesin. Tarhi değiştiğinde o tarihe göre filtre yapsın.
Ben Tarih filtresinden arasında filtresini kullanmaya çalıştım ama bir türlü olmadı. Her seferinde tarih filtresinde arasında filtresine gidip tüm tablolarda tekrar düzeltme yapmak zorunda kalıyorum. Daha kolay bir yolu varsa iyi olur. Makrosuz olarak, formülle yapabilme şansımız varsa iyi olur. Resmi kurum bilgisayarı olduğu için makroya izin vermeyebilir… Office 2013 kullanıyoruz.
Şimdiden yardımcı olan herkese Teşekkür ederim. Emeğinize sağlık……
Örnek Filtreleme

 

[Korhan Ayhan]

Dosyanızı erişime açmalısınız.

 

[e-egeli]

Dosyanızı erişime açmalısınız.

kusura bakmayın açıldı

 

[Merhum İdris SERDAR]

.

Konsolide ile Tablolar Ys sayfasında birleştirilmiştir. Formül de bu sayfada uygulanmıştır.

Dosyanız burada.

İndir Örnek Filtreleme (1)

Dosyayı indir Örnek Filtreleme (1)

dosya.co

.

 

[Korhan Ayhan]

Alternatif;

Bilgi

Bilgi

dosyam.org

 

[e-egeli]

kusura bakmayın anlatmak istediğimi yanlış anlatmışım. sizleri yordum. yeni dosyayı ekte gönderdim.

örnek filtreleme2

 

[Korhan Ayhan]

Formüllerle paylaştığımız şekilde yapabilirsiniz.

Direkt sayfada filtre işlemi için makro kullanmak gerekir.

 

[ibere]

Formüllerle paylaştığımız şekilde yapabilirsiniz.

Direkt sayfada filtre işlemi için makro kullanmak gerekir.

Meraktan kodu incelemek istedim, kodu görünce beynim yandı . Teşekkürler

 

[e-egeli]

Makro ile nasıl yapabiliriz acaba

 

[Korhan Ayhan]

Öncelikle Toplam sayfasının sekme adı üzerinde sağ tıklayıp KOD GÖRÜNTÜLE komutunu seçtikten sonra açılan beyaz pencereye aşağıdaki kodu uygulayınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("M3:N3")) Is Nothing Then Exit Sub
    Call All_Sheets_Update_AutoFilter
End Sub

Sonra aynı beyaz pencere açıkken üstten INSERT-MODULE menüsünü kullanarak boş bir modüle ekleyip aşağıdaki kodu yapıştırınız.

Option Explicit

Sub All_Sheets_Update_AutoFilter()
    Dim Sh As Worksheet, Tarih_1 As Date, Tarih_2 As Date
    
    Tarih_1 = Sheets("Toplam").Range("M3").Value
    Tarih_2 = Sheets("Toplam").Range("N3").Value
    
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "Toplam" Then
            Sh.Range("A2:F12").AutoFilter 1, ">=" & _
            CLng(Tarih_1), xlAnd, "<=" & CLng(Tarih_2)
        End If
    Next
End Sub

En son dosyanızı MAKRO İÇEREBİLEN EXCEL ÇALIŞMA KİTABI biçiminde kayıt ediniz.

M3 ve N3 hücrelerine tarih girip deneyiniz.