Sıralı tarihte hafta sonunu renklendirme

[kayburcak]

Değerli arkadaşlar
örnek dosyada belirttim birleştirilmiş hücrelerde sıralı tarih var.Bu tarihlerde tarih değiştiğinde de pazar günlerinin 25.satıra kadar renklenmesini istiyorum.İlgilenirseniz sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 kod bölümüme

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "B3" Then Exit Sub
    Range("C3:CQ25").Interior.Pattern = xlNone
    For i = 3 To 93 Step 3
        If Format(Cells(3, i), "dddd") = "Pazar" Then
            Range(Cells(3, i), Cells(25, i + 2)).Interior.Color = 65535
        End If
    Next i
End Sub

. . .

 

[kayburcak]

Hüseyin Bey
Kodu bir modüle yükledim çalışıyor.Ellerine sağlık.Çok teşekkür ederim.

 

[YUSUF44]

Kodun modüle değil sayfanın kod bölümüne yapıştırılması gerekir, Hüseyin Bey de öyle belirtmiş zaten.

 

[kayburcak]

Yusuf bey haklısınız ben hem sayfaya hem modüle yüklemiştim.Şimdi modülü sildim
Uyarınız için teşekkür ederim.