Merhaba arkadaşlar,
eklediğim örnekteki gibi bir puantaj yapmak istedim,
malesef yapamadım,
puantaj önceki ayın 15 ile bu ayın 14 arası yapılıyor
hafta içindeki günlere "X" yazması cumartesine "C" pazar gününe "P" harfi atması gerekiyor.
yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım.

Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Dim GTarih As Date

Dim GGecenAy, GBuAy, x, y As Integer



GTarih = Date



GGecenAy = DateSerial(Year(GTarih), Month(GTarih) - 1, 1)

GBuAy = DateSerial(Year(GTarih), Month(GTarih), 1)



Me.Metin125 = MonthName(Format(GGecenAy, "mm"))

Me.Metin127 = MonthName(Format(GBuAy, "mm"))



For x = 15 To 31



    If Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 1 Then

        Controls("a" & x) = "P"

    ElseIf Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 7 Then

        Controls("a" & x) = "C"

    Else

        Controls("a" & x) = "X"

    End If



Next x





For y = 1 To 14



    If Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 1 Then

        Controls("a" & y) = "P"

    ElseIf Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 7 Then

        Controls("a" & y) = "C"

    Else

        Controls("a" & y) = "X"

    End If



Next y

Sayın ozan hocam öncelikle elinize sağlık,
1 sorun çıktı geçen ay 30 çekince hata veriyor

If Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 1 Then
bu satırda. ne yapabilirim.?

Kodu aşağıdaki ile değiştirerek deneyiniz.

Dim GTarih As Date

Dim GGecenAy, GBuAy, x, y As Integer



GTarih = Date



GGecenAy = DateSerial(Year(GTarih), Month(GTarih) - 1, 1)

GBuAy = DateSerial(Year(GTarih), Month(GTarih), 1)



Me.Metin125 = MonthName(Format(GGecenAy, "mm"))

Me.Metin127 = MonthName(Format(GBuAy, "mm"))



For x = 15 To 31



    Controls("a" & x) = ""

    

    If IsDate(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = True Then

        If Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 1 Then

            Controls("a" & x) = "P"

        ElseIf Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 7 Then

            Controls("a" & x) = "C"

        Else

            Controls("a" & x) = "X"

        End If

    End If

Next x





For y = 1 To 14

    

    Controls("a" & y) = ""

    

    If IsDate(y & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = True Then

        If Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 1 Then

            Controls("a" & y) = "P"

        ElseIf Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 7 Then

            Controls("a" & y) = "C"

        Else

            Controls("a" & y) = "X"

        End If

    End If



Next y

Çok çok teşekkür ederim ozan hocam tam istediğim gibi ellerinize sağlık...

tekrar dosyayı paylaşırmısınız.