• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Verzamel staat maken

Status
Niet open voor verdere reacties.
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.
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
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 ?
 
Code:
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 = Switch(cl.Offset(, -1) = "Vakantie", 4, cl.Offset(, -1) = "Snipperdag", 3, cl.Offset(, -1) = "Ziek", 6)
    Next
End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan