hoe autolatisch een vorm leggen op een bepaalde dag voor gans het jaar.

[glda19]

Hi

Iemand werkt in het 4/5 stelsel en is op woensdag thuis.
In het programma moet hij nu al aanduiden dat hij 4/5 werkt. Dit i.v.m. Met ziekte en vermindering van bepaalde dagen.

Ik zou willen dat er dan automatisch op alle woensdagen die een datum bevatten de volgende code word toegepast die staat in de module MmenuRibbon in de select case 4/5.

Mijn probleem is hoe vind ik alle woensdagen terug op de kalender en die enkel een datum bevatten .

In bijlage het volledige programma.

 

[VenA]

En het gaat maar door...

Waarschijnlijk al wel vaker geadviseerd: https://michaelaustinfu.files.wordpress.com/2013/03/excel-vba-for-dummies-3rd-edition.pdf

 

[cow18]

als je zo alle mogelijke varianten zal moeten voorzien, dan wordt dat een onoverzichtelijk kluwen ...
Die "MmenuRibbon " is voor jou

Sub Woensdagen()
   Dim c       As Range
   For Each c In Sheets("2019").Range("B5:Q45").Cells                'gans je agenda
      If IsDate(c) And Not c.MergeCells Then                         'cel bevat een datum en is geen samengevoegde cel
         If Weekday(c, vbMonday) = 3 Then Inkleuren c                'het is een woensdag, dan naar die andere macro springen
      End If
   Next

End Sub

Sub Inkleuren(c As Range)
   c.Interior.ColorIndex = 3 'als stom voorbeeld, de achtergrondkleur veranderen
End Sub

 

[glda19]

Wat bedoel je die MmeuRibbon is voor mij?
Maar hoe die sub woensdagen aanroepen.
maar hoe de code aanpassen zo dat elke weekdag kan gekozen worden

 

[cow18]

..

 

[glda19]

Wat is de bedoeling van ...