Calendar Not Displaying Correct Number of Rows

[Statto]

I've made a dynamic calendar that uses just one formula. It works almost perfectly, except there are issues with some of the months. For example, February, March and November 2021 all contain the last week of the previous month, despite the start day being Tuesday. It should only display weeks where there is a day belonging to the active month.

=LET(MonthYear,$F$4&$D$4,

SEQUENCE(
ROUNDUP((DAY(EOMONTH(MonthYear,0))+WEEKDAY(MonthYear,B5))/7,0),
7,
(MonthYear)-WEEKDAY(MonthYear,B5),
1
)

)

Please download the workbook at https://easyupload.io/r6n9xy.

 

[Fluff]

How about

=LET(MonthYear,$F$4&$D$4,Start,IF(TEXT(MonthYear+1,"dddd")=B4,0,WEEKDAY(MonthYear,B5)),SEQUENCE(ROUNDUP((DAY(EOMONTH(MonthYear,0))+Start)/7,0),7,(MonthYear)-Start,1))

 

[Statto]

Unfortunately, I just realised your solution is pushing dates back by one day. For example, today is Wednesday 15th December 2021, but the calendar is showing it as Thursday.

When I add +1 to the [start] argument, the dates correctly align, but certain months still start or finish with an extra week.

https://easyupload.io/pgvmhe

 

[Fluff]

How about
In B5

=SWITCH(B4,"Monday",1,"Tuesday",2,"Wednesday",3,"Thursday",4,"Friday",5,"Saturday",6,"Sunday",7)

and in C7

=LET(Start,DATE(D4,F5,1),FirstDay,WEEKDAY(Start,2),StartDay,IF(FirstDay>=B5,B5-FirstDay,B5-7-FirstDay),s,SEQUENCE(ROUNDUP((DAY(EOMONTH(Start,0))+ABS(StartDay))/7,0),7,Start+StartDay,1),s)

 

[Fluff]

You can also replace the formula in C6 with

=LEFT(TEXT(C7:I7,"ddd"))