Beste Rudi,
Erg bedankt hier voor. Nu nog 1 laatste dan stop ik er voorlopig mee.
Ik wi lin de code nog een derde optie hebben.
Nu heb ik hem in de eerste er al bij gezet (ziek) maar hoe krijg ik die in de tweede code met ook een andere kleur ?
Erg bedankt hier voor. Nu nog 1 laatste dan stop ik er voorlopig mee.
Ik wi lin de code nog een derde optie hebben.
Code:
Sub tst()
Columns("A:D").ClearContents
Application.Goto [A1]
For i = 1 To Sheets.Count - 1
For Each cl In Sheets(i).[D6:ab200]
If cl = "Vakantie" Or cl = "Snipperdag" Or cl = "Ziek" Then
With [Verzamel!A65536].End(xlUp)
.Offset(1) = Sheets(i).[d2]
.Offset(1, 1) = DateValue(Day(cl.Offset(-1)) & "/" & Month(cl.Offset(-1)) & "/" & Year(cl.Offset(-1)))
.Offset(1, 2) = cl
.Offset(1, 3) = "=ADDRESS(MATCH(RC[-3],R6C6:R12C6,0)+5,MATCH(DAY(RC[-2]),R6C13:R6C44,0)+12)"
End With
End If
Next
Next
tst2
End Sub
Sub tst2()
With Sheets("Verzamel")
.[N7:AR12].Interior.ColorIndex = xlNone
For Each cl In .Range("D2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)
Range(cl).Interior.ColorIndex = IIf(cl.Offset(, -1) = "Vakantie", 4, 3)
Next
End With
End Sub