Hoi,
Ik heb een roosterbestand waar allerlei vaste gegevens automatisch in het bezettingsoverzicht worden ingevuld. Leidinggevenden kunnen via een USERFORM invullen welke medewerker wanneer afwezig is (verlof, cursus, vakantie enzovoorts). Deze gegevens worden in verschillende tabbladen opgeslagen (januari t/m december) en vanuit die tabbladen in het bezettingsoverzicht gezet.
Als er een nieuw jaar gekozen wordt, moeten de tabbladen waarin het verlof/afwezigheid van het oude jaar gewist worden. Daar gebruik ik nu deze code voor:
Ik wil hier eigenlijk een loop voor gebruiken, maar kom er niet uit hoe dat te doen, zonder dat ook andere tabbladen in het bestand geleegd worden, wat niet de bedoeling is.
Begrijp mij goed, bovenstaande code werkt prima, maar "het ziet er gewoon niet uit"
Ik heb een roosterbestand waar allerlei vaste gegevens automatisch in het bezettingsoverzicht worden ingevuld. Leidinggevenden kunnen via een USERFORM invullen welke medewerker wanneer afwezig is (verlof, cursus, vakantie enzovoorts). Deze gegevens worden in verschillende tabbladen opgeslagen (januari t/m december) en vanuit die tabbladen in het bezettingsoverzicht gezet.
Als er een nieuw jaar gekozen wordt, moeten de tabbladen waarin het verlof/afwezigheid van het oude jaar gewist worden. Daar gebruik ik nu deze code voor:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If MsgBox("Weet je het zeker? Alle verlofinformatie wordt gewist!", vbYesNo + vbQuestion, "ATTENTIE!") = vbNo Then Exit Sub
If Target.Address = "$O$1" Then Sheets("Januari").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("Februari").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("Maart").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("April").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("Mei").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("Juni").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("Juli").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("Augustus").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("September").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("Oktober").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("November").Range("B3:AF20").ClearContents
If Target.Address = "$O$1" Then Sheets("December").Range("B3:AF20").ClearContents
End Sub
Ik wil hier eigenlijk een loop voor gebruiken, maar kom er niet uit hoe dat te doen, zonder dat ook andere tabbladen in het bestand geleegd worden, wat niet de bedoeling is.
Begrijp mij goed, bovenstaande code werkt prima, maar "het ziet er gewoon niet uit"