Kalender in excel automatisch aanpassen

[rob91]

Hallo,

Ik heb een excelsheet met een kalender voor het invullen van verlofuren.
Is er een mogelijkheid om de weekenddagen bij een nieuw jaar automatisch de juiste kleur te geven? Dus als ik op het tabblad instellingen het jaar aanpas dat de kalender mee veranderd?

Alvast bedankt voor het meedenken.

 

[richard1970]

Beste Rob91,

Dat kan met Opmaak > Voorwaardelijke opmaak > Formule. In de bijlage worden de zaterdagen en zondagen van januari blauw gemaakt. Die kun je aanpassen.
Let er vooral op dat je de $ in de formule goed zet.

Groeten en fijne zondag,
Richard

 

[rob91]

Richard1970,

bedankt voor je reactie......alleen heb ik een probleem met zip-files.
Deze krijg ik op een of andere manier niet geopend op mijn pc.
Zou je het bestandje als xls.bestand kunnen bijvoegen??

bvd

Rob

 

[Ad Becude]

Hoi Rob,

Ik heb ook met voorwaardelijke opmaak gewerkt.

Voor de feestdagen kijk ik ook nog

 

[dnties]

Installeer 7zip als oplossing van je .zip probleem. Gratis software, en het werkt goed.

Succes,

Tijs.

 

[richard1970]

Bijna dezelfde oplossing als Ad. Uit gewoonte zip ik de files.

 

[rob91]

Richard, Ad

het werkt helemaal super. Nu zal ik inderdaad nog wat voor de feestdagen moeten verzinnen. suggesties uiteraard erg welkom.

groetjes, Rob
:thumb:

 

[richard1970]

Beste Rob,

Dat kan met een tabelletje waarin je de feestdagen zet en een tweede Voorwaarde. Die tabel moet dan op hetzelfde tabblad gezet worden, of je moet het een naam geven zoals in de bijlage. Het bereik met de feestdagen heet 'feestdagen'. Hoe origineel.

Richard

 

[rob91]

Richard,

Ik vind je oplossing geweldig. Dit is goed toe te passen.
Dus erg bedankt,
:thumb:

Rob:

 

[Ad Becude]

Hoi Rob,

Ondanks dat het draadje op opgelost staat, toch nog eens een reactie.
Ik heb de VWOpmaak aangepast voor feestdagen, met op Blad "data" de feestdagen.
Er staan feestdagen op die niet van toepassing zijn, maar die moet je maar verwijderen door de hele rij te verwijderen. Ook het schrikkeljaar heeft een vwopmaak.

 

[rob91]

Ad,

Toch ook weer bedankt, want ik zat nog even te knoeien met het schrikkeljaar.
Ik had er als voorw.opmaak ingezet [als jaar<>2012 dan zwart].met de wetenschap dat ik dan voorlopig goed zat,maar het was naturrlijk niet de mooiste oplossing
:thumb:
groetjes, Rob

 

[yaramazzz]

Ik vind je oplossing geweldig. dankjewel :thumb:

 

[robdgr]

[als jaar<>2012 dan zwart].

Rob,

Pas toe

=Rest(jaar;4)=0

een schrikkeljaar kun je namelijk door vier delen. Het verbaast me ook dat je in de kalender wel een verlofdag kunt invullen, maar dat je kennelijk kiest voor witte letters, dus in de telling wordt hij meegenomen, maar het is niet zichtbaar welke dag je verlof hebt.

 

[Ad Becude]

Hoi Rob,

Bedoel je niet:

=Rest(jaar;4)<>0

De vwopmaak is zwart.

 

[rob91]

Ik heb de kaart intussen doorontwikkeld en voor de schrikkeljaren de volgende formule in de voorwaardelijke opmaak staan:

=MAAND(DATUM(Jaar;2;29))>MAAND(DATUM(Jaar;2;1)) dan grijsgestippeld

Voor de verlofuren heb ik bij invullen een kleur bruin/oranje gekozen.

Bij ziekmelding wordt de celrood gekleurd en ZM erin gezet
voor de vervolg ziektedagen alleen rood gekleurd.
Dit omdat de eerste ziektedag voor rekening van de werknemer is (met max van 4 dagen aftrek)

Alleen de knop emailwerkt nog niet; ik wil eerst zorgen dat er een pdf gemaakt wordt en deze dan automatisch verstuurd wordt naar het emailadres zoals op de kaart vermeld.

Maar dat is denk ik nog een hele toer;ik lees er veel over maar snap er nog weinig van......
Suggesties/oplossingen dus altijd meer dan welkom.

RvG

 

[robdgr]

Bedoel je niet:

=Rest(jaar;4)<>0

.

Ad,

Dat bedoelde ik inderdaad niet: een schrikkeljaar is deelbaar door vier met rest 0.

 

[AnnaLotte]

excel en email

Ik heb de kaart intussen doorontwikkeld en voor de schrikkeljaren de volgende formule in de voorwaardelijke opmaak staan:

=MAAND(DATUM(Jaar;2;29))>MAAND(DATUM(Jaar;2;1)) dan grijsgestippeld

Voor de verlofuren heb ik bij invullen een kleur bruin/oranje gekozen.

Bij ziekmelding wordt de celrood gekleurd en ZM erin gezet
voor de vervolg ziektedagen alleen rood gekleurd.
Dit omdat de eerste ziektedag voor rekening van de werknemer is (met max van 4 dagen aftrek)

Alleen de knop emailwerkt nog niet; ik wil eerst zorgen dat er een pdf gemaakt wordt en deze dan automatisch verstuurd wordt naar het emailadres zoals op de kaart vermeld.

Maar dat is denk ik nog een hele toer;ik lees er veel over maar snap er nog weinig van......
Suggesties/oplossingen dus altijd meer dan welkom.

RvG

Hoi,

Heb jij inmiddels dat probleem voor de email opgelost? ik zou dat namelijk ook graag gebruiken bij de verlofkaarten.
Laat me het aub even weten.

groet,
anna

 

[rob91]

Hallo Anna,

Ja, ik heb 2 oplossingen:

eerst maakte ik een pdf met PDFCreator en verzond deze via dat programma, waarbij ik nog wel zelf het emailadres in moet geven.

Sub PDFMaken()
'
' PDFMaken Macro
' De macro is opgenomen op 30-12-2008 door Rob
' Maken van een PDF en mailen naar kaarthouder
'
'
Application.ActivePrinter = "PDFCreator op Ne00:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, _
ActivePrinter:="PDFCreator op Ne00:", Collate:=True
End Sub


Maar de mensen wilde toch liever een excelbestand, want die kunnen ze dan zelf bewerken/bewaren.

Dus nu verstuur ik de sheet direct naar het emailadres op de kaart:

Sub verzenden()
'
' verzenden Macro
' De macro is opgenomen op 07-01-2009 door ROB
' Excelbestand mailen naar mailadres op kaart

ActiveSheet.Unprotect Password:="1234"
mailadres = Range("S17")

Dim wb As Workbook
Dim Strdate As String
Strdate = Format(Now, " dd-mm-yy h:mm ")
Application.ScreenUpdating = False
Sheets("Kalender").Copy
Set wb = ActiveWorkbook
With wb
.SendMail (mailadres), _
"Verlofkaart" & Strdate & " "
.Close False
End With
Application.ScreenUpdating = True

MsgBox "Verlofkaart is verzonden, een kopie van het formulier vindt u in de map Verzonden Items"

Application.DisplayAlerts = False

ActiveSheet.Protect Password:="1234"
ActiveWorkbook.Close

End Sub

De beveiliging van de kaart moet er even af ander werkt het emailadres niet, want die cel is ook beveiligd.

Succes ermee,

Rob