kleur in kolom veranderen op basis van weekend

[bjornesto]

Aan de hand van volgende code die ik heb kunnen vinden op het internet en beetje aangepast heb ik een bestand en als je via de template een nummer (van de maand intypt) zal hij deze in een nieuw sheet zetten.

Dan zorgt hij ervoor dat hij de weekends in een grijze achtergrond kleur zet en dit op basis van de dag

Echter zou ik willen dat hij vervolgens de activesheet.range ("B7:AF210") ook in dezelfde kleur zet gebaseerd op de weekends van activesheet.range("B6:AF6")

Sub test()

    Dim days As Range
    Set days = ActiveSheet.Range("B6:AF6") ' Range where date numbers are stored, 1,2,...,31
    Dim month As String
    month = ActiveSheet.Name
    Dim day As Range
    Dim daynum As Long
    ' Loop over days to test for weekday
    For Each day In days
        ' Get day number, from date in format 
        daynum = Weekday(DateValue(day.Value), firstdayofweek:=vbSunday)
        If daynum = 7 Or daynum = 1 Then
            day.Interior.color = RGB(200, 200, 200)  ' Grey for saturdays or sundays
        End If
    Next day
End Sub
/CODE]

 

[AlexCEL]

Mag het niet met voorwaardelijke opmaak?

En een Excel-voorbeeldje plaatsen zal je meer brengen denk ik.