Tatil günlerini otomatik işaretleme

[rızay]

Merhaba arkadaşlar,benim size sorum şu: Ekte gönderdiğim dosyanın sayfalarında sütunlarda tatil günlerini elle gri renkte yapıyorum.Bunun otomotik olarak yapılma şekli var mıdır?.İlgili dosyada yaparak tarafıma göndermenizi ve yardımcı olacağınızı bekliyorum.Hepinize başarılar dilerim.

 

[Ömer]

Merhaba,

Eğer tatil gününden kastınız cumartesi ve pazar ise,

B5:B24 arasını fare ile seçerek Biçim / Koşullu biçimlendirmeden Formül bölümüne,

=YADA(HAFTANINGÜNÜ(B5)=1;HAFTANINGÜNÜ(B5)=7)

Formülü yazınız ve biçimden istediğiniz renk biçimini seçiniz..

 

[rızay]

Merhaba espiyonajı size çok teşekkür ederim.Sorunu çözdünüz sağolun.Bu işi vba koduna ilgili sayfalarda ct pz ve bayram günleri için yaptırabilirmiyiz.Selamlar.

 

[Necdet]

Merhaba,

Tatiller adlı bir sayfa oluşturdum.

Yazdır makrosunu düzelttim.

Sub Düğme2_Tıklat()
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Tatiller" Then
        Sheets(i).PrintOut Preview:=True
    End If
Next i
    End Sub

Aşağıdaki kodlarda Haftasonu ve Resmi Tatil Günlerini renklendirir. İncelerseniz sevinirim. Özelikle Resmi Tatil Günlerini kontrol edemedim.

Sub TatilGünleri()
Dim i, Son As Integer
Dim TatilMi As Boolean
For i = 1 To Sheets.Count
    
    If Sheets(i).Name <> "Tatiller" Then
        Son = Sheets(i).[B65536].End(3).Row
        Sheets(i).Range("B5:I" & Son).Interior.ColorIndex = xlNone
        
        For j = 5 To Son Step 2
            TatilMi = False
            If Weekday(Sheets(i).Cells(j, "B"), vbMonday) > 5 Then
                TatilMi = True
            Else
                Set Bul = Sheets("Tatiller").Columns(4).Find(Sheets(i).Cells(j, "B"))
                If Not Bul Is Nothing Then TatilMi = True
            End If
            
            If TatilMi = True Then Sheets(i).Range("B" & j & ":I" & j + 1).Interior.ColorIndex = 19
        Next j
    End If
Next i
End Sub