Aya göre süz

[polis-53]

Merhaba arkadaşlar herkese kolay gelsin ekte gönderdiğim dosyada A1 hücresine hangi ayı yazarsam o aya tekabül eden tarihleri süzsün.
yardımlarınız için teşekkür ederim

 

[KuTuKa]

merhaba
istediğin böyle birşey mi

 

[polis-53]

hayır arkadaşım A1 hücresine yazdığım ay örneğin eylül yazdığında eylül ayına denk gelen günleri filitreleyecek.

 

[asi_kral]

hayır arkadaşım A1 hücresine yazdığım ay örneğin eylül yazdığında eylül ayına denk gelen günleri filitreleyecek.

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim İLK As Date, SON As Date, DEĞER As String
Dim AY As Long, SAT As Long
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target = Empty Then
SAT = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & SAT).AutoFilter
Exit Sub
End If
SAT = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & SAT).AutoFilter
DEĞER = WorksheetFunction.Proper(Range("A1"))
Select Case DEĞER
Case "Ocak": AY = 1
Case "Şubat": AY = 2
Case "Mart": AY = 3
Case "Nisan": AY = 4
Case "Mayıs": AY = 5
Case "Haziran": AY = 6
Case "Temmuz": AY = 7
Case "Ağustos": AY = 8
Case "Eylül": AY = 9
Case "Ekim": AY = 10
Case "Kasım": AY = 11
Case "Aralık": AY = 12
End Select
İLK = DateSerial(Year(Date), AY, 1)
SON = DateSerial(Year(Date), AY + 1, 0)
Range("A2:A" & SAT).AutoFilter field:=1, Criteria1:=">=" & CDbl(İLK), _
Operator:=xlAnd, Criteria2:="<=" & CDbl(SON)
End Sub

 

[polis-53]

sayın asi bey teşekkürler A1 hücresi boş olduğu zaman tüm satırı gösrersin istiyorum.

 

[asi_kral]

sayın asi bey teşekkürler A1 hücresi boş olduğu zaman tüm satırı gösrersin istiyorum.

Üstteki kodu güncelledim.

 

[sakman26]

Merhaba,

Alternatif olarak , Formüllerle çözümlenmiş örnek ek tedir. ek i inceleyiniz..

Kolay gelsin...

 

[polis-53]

Teşekkürler arkadaşlar kalın sağlıcakla

 

[asi_kral]

Teşekkürler arkadaşlar kalın sağlıcakla

Kolay Gelsin.