Tarih sınırlama

[karahan61]

bu dosyayı kullanmak istiyorum ancak cumartesi-pazar günleri her satırda P yazsın makroyu bu şekilde düzenlerseniz sevinirim

 

[Necdet]

bu dosyayı kullanmak istiyorum ancak cumartesi-pazar günleri her satırda P yazsın makroyu bu şekilde düzenlerseniz sevinirim

Merhaba,

Sub Puantaj()
    Dim Sat As Long, _
        Sut As Integer, _
        Son As Long
    
    Son = Cells(Rows.Count, "A").End(3).Row
    If Son < 18 Then Son = 18
    
    Application.ScreenUpdating = False
        Range("C18:AG" & Son).ClearContents
    For Sat = 18 To Son
        Sut = 3
        If Not Cells(Sat, "B") = "" Then
            Do
                If Weekday(Cells(17, Sut), 2) [B][COLOR=red]> 5[/COLOR][/B] Then
                    Cells(Sat, Sut) = "P"
                Else
                    Cells(Sat, Sut) = "X"
                End If
                Sut = Sut + 1
            Loop While Not Cells(17, Sut) = "" And Sut < 34
        End If
    Next Sat
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır....", vbInformation, ""
End Sub

If Weekday(Cells(17, Sut), 2)= 7 Then ...

demek pazar günü ise demek, bunun yerine

If Weekday(Cells(17, Sut), 2) > 5 Then ...

dersek cumartesi ve pazar demek dolayısıyla kırmızı ile düzeltilen yeri kullanmanız yeterli olacaktır.

 

[Necdet]

Tablo dışında hücre birleştirip eklemem gereken veriler var.

Dosyayı görmeden kim nasıl yorum yapabilir ki?

 

[assenucler]

Sabrınıza hayranım sayın Necdet Yeşertener..

Sevgi ve saygılar..

 

[Necdet]

Sabrınıza hayranım sayın Necdet Yeşertener..

Sevgi ve saygılar..

Teşekkürler Sayın assenucler,

Saygı bizden