09-13-2023, 11:24
Merhaba arkadaşlar,
excel vba kullanarak bir aydaki tüm pazartesi ve cuma günlerini aşağıdaki kod ile listeleyebilirsiniz.
excel vba kullanarak bir aydaki tüm pazartesi ve cuma günlerini aşağıdaki kod ile listeleyebilirsiniz.
Kod:
Sub CumavePazartesiGunleriniListeleme()
Yil = InputBox("Yılı girin:")
Ay = InputBox("Ayı girin (1-12):")
Range("A1") = "Cuma ve Pazartesi Günleri"
Satir = 2
For Gun = DateSerial(Yil, Ay, 1) To DateSerial(Yil, Ay + 1, 0)
If Weekday(Gun, vbMonday) = 1 Or Weekday(Gun, vbMonday) = 5 Then
Range("A" & Satir) = Format(Gun, "dd.mm.yyyy")
Satir = Satir + 1
End If
Next
End Sub