Time sheet

[rooster05]

Hello forum

i have question which hopefully will have a quick solution
i have a time sheet for the month, this is split into up to 5 weeks starting in B6 (5 columns per week). What i would like is a macro to populate the only the weekdays of the month, however if for example 01 March 19 is Friday i would like this date to be in F6 and cells B6:E6 blank

would this be possible

thanks in advance

 

[footoo]

With a date in A1 (must be the first of the month), to get the start column and end column for the month :

Dim dte As Date, startColumn%, endColumn%
dte = [A1]
With WorksheetFunction
    startColumn = Weekday(.WorkDay(dte - 1, 1))
    endColumn = .NetworkDays(dte, .EoMonth(dte, 0)) + startColumn - 1
End With

 

[footoo]

To put the dates in the appropriate columns in B6:Z6 :

Dim dte As Date, startColumn%, endColumn%
[B6:Z6].ClearContents
With WorksheetFunction
    dte = .EoMonth([A1], -1) + 1
    startColumn = Weekday(.WorkDay(dte - 1, 1))
    endColumn = .NetworkDays(dte, .EoMonth(dte, 0)) + startColumn - 1
    Cells(6, startColumn) = .EoMonth(dte, -1) + 1 + .Choose(.Weekday(.EoMonth(dte, -1) + 1, 2), 0, 0, 0, 0, 0, 2, 1)
End With
Cells(6, startColumn).AutoFill Destination:=Cells(6, startColumn).Resize(, endColumn - startColumn + 1), Type:=xlFillWeekdays

 

[rooster05]

Footoo

apologies for not responding earlier, this is just what i need thank you