De code komt uit volgende post https://www.helpmij.nl/forum/showthread.php/949700-hoe-autolatisch-een-vorm-leggen-op-een-bepaalde-dag-voor-gans-het-jaar
Hoe zou ik onderstaande code kunnen wijzigen dat ik geen 5 of 7 x de zelfde code moet schrijven.
Dus de gebruiker kan op een bepaalde cel bv aa9 uit een lijst de dag selecteren
Hoe kan ik nu zorgen dat het getal 3 een variabele word en het juiste nummer krijgt afhankelijk van de gekozen dag uit de lijst
Hoe zou ik onderstaande code kunnen wijzigen dat ik geen 5 of 7 x de zelfde code moet schrijven.
Dus de gebruiker kan op een bepaalde cel bv aa9 uit een lijst de dag selecteren
Hoe kan ik nu zorgen dat het getal 3 een variabele word en het juiste nummer krijgt afhankelijk van de gekozen dag uit de lijst
Code:
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
Laatst bewerkt: