As it is difficult for me to explain, check directly the attached file.
The macro is made to manage different shift in a team.
On the start Tab, the button "Calendar" allows to create a month calendar (the other button only allows to change shifts).
All is working perfectly ... until you choose a month starting on a Monday (e.g. 10.2012 or 04.2013).
The problem is surely coming from the following part of the part of the macro:
'Copy Macro3 to Month2
Sheets("Month2").Select
Cells.Find(What:=MyStr3, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
This allows me to compare the first day of the month and use it to start the table.
Apparently, it does not like when using Monday the first ...
I thought about using a "If, else" to match MyStr3 with the cell in the table, and directly select one cell (would only be 7 lines of control), but it does not work either (not at all this time !!!).
I would really appreciate some help. I have spent 2 days on it, and get crazy !!!
Bookmarks