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.
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 Sub
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.
Dim i As Integer den sonra
Kod:
Range("C5:D50").ClearContents
Kodunu eklemeniz yeterli olacaktir
Teşekkürler emeğinize sağlık.