aylık filtre (seçilen aya göre)

[ex48]

aylık filtre yapılabilirmi(seçilen aya göre)

Merhaba
D kolonunda D3den itibaren yazılmış tarihleri
I1 de seçilecek aya göre, sayfada aylık filtreleyecek kodlara ihtiyacım var.
Forumda arama yaptım, iki tarih arası verilerek hazırlanmış örnekler var.
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[uzmanamele]

Merhaba
D kolonunda D3den itibaren yazılmış tarihleri
I1 de seçilecek aya göre, sayfada aylık filtreleyecek kodlara ihtiyacım var.
Forumda arama yaptım, iki tarih arası verilerek hazırlanmış örnekler var.
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

merhaba
siteden örnek dosya bulduğunuzu söylüyorsunuz.
o dosyada 2 tarih arasını filtreliyorsa sizin sorunuzdan farklı değil ki.
siz aya göre listeleyecekseniz, bu 01.10.2009 ile 31.10.2009 tarihleri arası değil mi?
bulduğunuz örneği bu doğrultuda kullanmayı deneyiniz.

 

[ex48]

merhaba
siteden örnek dosya bulduğunuzu söylüyorsunuz.
o dosyada 2 tarih arasını filtreliyorsa sizin sorunuzdan farklı değil ki.
siz aya göre listeleyecekseniz, bu 01.10.2009 ile 31.10.2009 tarihleri arası değil mi?
bulduğunuz örneği bu doğrultuda kullanmayı deneyiniz.

Teşekkür ederim, sayın Uzmanamele.
süzülecek ayın ilk ve son günlerini girmek zorunda kalmadan, hücrede seçili olan aya göre süzülse daha pratik olur diye düşünmüştüm. Kullanıcının x ayı 30 ile mi 31 ile mi bitiyor olayını karıştırabileceği sebebiyle vs.
Saygılar.

 

[Korhan Ayhan]

Selamlar,

Aşaıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim HÜCRE As Range
 
    If Intersect(Target, [I1]) Is Nothing Then Exit Sub
 
    Application.ScreenUpdating = False
 
    Cells.EntireRow.Hidden = False
 
    If IsDate(Target) Then
 
    For Each HÜCRE In Range("D3:D" & Range("D65536").End(3).Row)
        If Format(HÜCRE.Value, "mmmm") <> Format(Target, "mmmm") Or Year(HÜCRE.Value) <> Year(Target) Then
            HÜCRE.EntireRow.Hidden = True
        End If
    Next
    End If
 
    Application.ScreenUpdating = True
End Sub

 

[uzmanamele]

Teşekkür ederim, sayın Uzmanamele.
süzülecek ayın ilk ve son günlerini girmek zorunda kalmadan, hücrede seçili olan aya göre süzülse daha pratik olur diye düşünmüştüm. Kullanıcının x ayı 30 ile mi 31 ile mi bitiyor olayını karıştırabileceği sebebiyle vs.
Saygılar.

merhaba
syn Korhan Ayhan istediğiniz çözümü vermiş olmalı.
bir tarih girdiğinizde başka bir hücrede o ayın son gününü yazmak gerekmez.
A1 de tarih yazılmışsa, B1 hücrede o ayın son gününü bulursunuz, 29 şubat olsa bile.

=TARİH(YIL(A1);AY(A1)+1;1)-1

 

[ex48]

Selamlar,

Aşaıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim HÜCRE As Range
 
    If Intersect(Target, [I1]) Is Nothing Then Exit Sub
 
    Application.ScreenUpdating = False
 
    Cells.EntireRow.Hidden = False
 
    If IsDate(Target) Then
 
    For Each HÜCRE In Range("D3:D" & Range("D65536").End(3).Row)
        If Format(HÜCRE.Value, "mmmm") = Format(Target, "mmmm") Then
            If Year(HÜCRE.Value) = Year(Target) Then
                HÜCRE.EntireRow.Hidden = True
            End If
        End If
    Next
    End If
 
    Application.ScreenUpdating = True
End Sub

Korhan Bey;
Öncelikle teşekkür ederim, Sağolun.
Denedim fakat seçilen aya ait satırları gizliyor,diğer ayları gösteriyor. Mümkünse tersini yapacak şekilde düzeltebilirmisiniz. Ben kodları kurcaladım başaramadım.

 

[Korhan Ayhan]

Selamlar,

Haklısınız. Mantığı ters kurmuşum. Üstteki mesajımdaki kodu ve dosyayı güncelledim. İncelemisiniz.

 

[ex48]

Çalışıyor.
Teşekkür ederim Korhan Bey.
İyi günler dilerim.