Çözüldü Vba İle Resmi Tatilleri ve Hafta Sonları Renklendirme

[Gata]

Merhabalar Arkadaşlar Takvim isimli sayfada makro kodları ile dinamik takvim yapılmış olup
Command Butuna tıklandığında hafta sonu ve resmi tatilleri renklendirmek makro kodları yazarmisiniz
Command buton içinde resmi tatilleri ve hafta sonları renklendirmek için makro kodları var fakat çalışmıyor yardımcı olur musunuz

 

[htsumer]

Bne denedim renklenio

 

[Gata]

Fazla hücreleri de renklendiriyor çözüm bulabilir misiniz selamlar ilginize teşekkür edeim

 

[htsumer]

Butonu Tasarım modu ile aç kodu bul bununla değiştir

Private Sub CommandButton2_Click()
    Dim Hücre As Range
    Dim TakvimAraligi As Range
    Dim HücreDeğeri As Variant
    
    ' Sadece tarih hücrelerini kapsayan aralık (F7 dahil değil)
    Set TakvimAraligi = Range("A2:G6")
    
    ' Önce eski renkleri temizle
    TakvimAraligi.Interior.ColorIndex = xlNone
    TakvimAraligi.Font.Color = RGB(0, 0, 0)
    
    For Each Hücre In TakvimAraligi
        HücreDeğeri = Hücre.Value
        
        ' Hücre boş değil ve tarih tipinde ise kontrol et
        If Not IsEmpty(HücreDeğeri) Then
            If VarType(HücreDeğeri) = vbDate Then
                ' Hafta sonu kontrolü (vbMonday ile 6=Cumartesi, 7=Pazar)
                If Weekday(HücreDeğeri, vbMonday) >= 6 Then
                    Hücre.Interior.Color = RGB(255, 199, 206) ' Açık Kırmızı
                    Hücre.Font.Color = RGB(156, 0, 6) ' Koyu Kırmızı
                End If
            End If
        End If
    Next Hücre
    
    MsgBox "Hafta sonları renklendirildi!", vbInformation
End Sub

 

[Gata]

Butonu Tasarım modu ile aç kodu bul bununla değiştir

Private Sub CommandButton2_Click()
    Dim Hücre As Range
    Dim TakvimAraligi As Range
    Dim HücreDeğeri As Variant
   
    ' Sadece tarih hücrelerini kapsayan aralık (F7 dahil değil)
    Set TakvimAraligi = Range("A2:G6")
   
    ' Önce eski renkleri temizle
    TakvimAraligi.Interior.ColorIndex = xlNone
    TakvimAraligi.Font.Color = RGB(0, 0, 0)
   
    For Each Hücre In TakvimAraligi
        HücreDeğeri = Hücre.Value
       
        ' Hücre boş değil ve tarih tipinde ise kontrol et
        If Not IsEmpty(HücreDeğeri) Then
            If VarType(HücreDeğeri) = vbDate Then
                ' Hafta sonu kontrolü (vbMonday ile 6=Cumartesi, 7=Pazar)
                If Weekday(HücreDeğeri, vbMonday) >= 6 Then
                    Hücre.Interior.Color = RGB(255, 199, 206) ' Açık Kırmızı
                    Hücre.Font.Color = RGB(156, 0, 6) ' Koyu Kırmızı
                End If
            End If
        End If
    Next Hücre
   
    MsgBox "Hafta sonları renklendirildi!", vbInformation
End Sub

Teşekkür ederim hocam PC ye geçince denerim selamlar Allah'a emanet olun