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 [TABLE="width: 229"]
<colgroup><col></colgroup><tbody>[TR]
[TD="align: right"]Monday, June 3, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Tuesday, June 4, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Tuesday, June 4, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Wednesday, June 5, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Thursday, June 6, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Thursday, June 6, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Friday, June 7, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Monday, June 10, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Tuesday, June 11, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Tuesday, June 11, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Wednesday, June 12, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Thursday, June 13, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Thursday, June 13, 2019[/TD]
[/TR]
[TR]
[TD="align: right"]Friday, June 14, 2019[/TD]
[/TR]
</tbody>[/TABLE]

 

[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