Spreadsheet

[Nikiahll82]

Hello,

I am wondering how to enter the month and date on a new spread sheet that excludes sat and sun but adds tues and thur twice on the spead sheet. Can someone assst? It should look like this

Monday, June 3, 2019

Tuesday, June 4, 2019

Tuesday, June 4, 2019

Wednesday, June 5, 2019

Thursday, June 6, 2019

Thursday, June 6, 2019

Friday, June 7, 2019

Monday, June 10, 2019

Tuesday, June 11, 2019

Tuesday, June 11, 2019

Wednesday, June 12, 2019

Thursday, June 13, 2019

Thursday, June 13, 2019

Friday, June 14, 2019

<colgroup><col></colgroup><tbody>
</tbody>

 

[Repush]

given the first 7 rows are formatted excel-dates put
=A1+7
on the june 10-cell and copy down

 

[MickG]

Try this for results starting "A1"

[COLOR="Navy"]Sub[/COLOR] MG07Jun53
[COLOR="Navy"]Dim[/COLOR] Mth [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] nDt [COLOR="Navy"]As[/COLOR] Date, oDt [COLOR="Navy"]As[/COLOR] Date, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
oDt = DateAdd("d", -1, DateSerial(Year(Date), Month(Date), 1))

[COLOR="Navy"]For[/COLOR] n = 1 To 31
    nDt = DateAdd("d", n, oDt)
    [COLOR="Navy"]If[/COLOR] Month(nDt) = Month(Date) + 1 [COLOR="Navy"]Then[/COLOR] [COLOR="Navy"]Exit[/COLOR] For
        Select Case WeekdayName(Weekday(nDt), False, 1)
            [COLOR="Navy"]Case[/COLOR] "Monday", "Wednesday", "Friday"
                c = c + 1
                Cells(c, 1) = Format(nDt, "dddd, d mmm, yyyy")
            [COLOR="Navy"]Case[/COLOR] "Tuesday", "Thursday"
                c = c + 1
                Cells(c, 1) = Format(nDt, "dddd, d mmm, yyyy")
                c = c + 1
                Cells(c, 1) = Format(nDt, "dddd, d mmm, yyyy")
            [COLOR="Navy"]End[/COLOR] Select
[COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick