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
#1
Veri Girişi 2025 - 01.7z
(Dosya Boyutu: 46,63 KB | İndirme Sayısı: 3)
