+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Sayfasından Tarihlerin Filtre Edilmesi (/konu-veri-sayfasindan-tarihlerin-filtre-edilmesi.html)
Veri Sayfasından Tarihlerin Filtre Edilmesi - yyhy - 14/02/2025
Veri sayfasından ayı değiştirdiğimde tarihlerin filtre edilmesini istiyorum.
Filtre formülü kullanmak istiyorum ama uğraşlarım netice vermedi. Yardımcı olabilecek arkadaşlara teşekkür ederim.
RE: Veri Sayfasından Tarihlerin Filtre Edilmesi - boolean_ - 14/02/2025
Merhabalar,
Eğer bu işi makro ile yapmak isterseniz kullandığınız değer değiştirme düğmesine makro atayım ve bu kodu ekleyin.
Kod:
Sub TarihYaz()
Dim Ay As String
Dim IlkTarih As Date
Dim Gun As Date
Dim Satir As Long
Dim AyIndex As Integer
Dim Yil As Integer
Dim i As Integer
Ay = Range("D3").Value
Yil = Year(Date)
AyIndex = Application.Match(Ay, Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık"), 0)
IlkTarih = DateSerial(Yil, AyIndex, 1)
Satir = 5
Gun = IlkTarih
Do While Month(Gun) = AyIndex
If Weekday(Gun, vbSunday) <> 1 Then
Cells(Satir, 3).Value = Gun
Cells(Satir, 4).Value = Format(Gun, "dddd")
Satir = Satir + 1
End If
Gun = Gun + 1
Loop
End SubRE: Veri Sayfasından Tarihlerin Filtre Edilmesi - yyhy - 14/02/2025
Sayın @boolean_ ilginiz için teşekkür ederim. Gayet güzel çalışıyor. Ancak Şubat 29 çekti 29'dan sonra ocak ayından kalan 2-3 satır tarih kalıyor. Makro önce tarih ve gün hücrelerini silip çalışır hale gelse çok güzel olacak. Eğer zahmet olmaz ise. Emeğinize sağlık.
RE: Veri Sayfasından Tarihlerin Filtre Edilmesi - boolean_ - 15/02/2025
Dim i As Integer den sonra
Kod:
Range("C5:D50").ClearContentsRE: Veri Sayfasından Tarihlerin Filtre Edilmesi - yyhy - 15/02/2025
Teşekkürler emeğinize sağlık.