Print sequential dates skipping certain days

[pete2583]

Hello all,

I have created a production spreadsheet for work and and have set it to automatically print everyday of the month. The below is the macro that I used for this (stolen from Google)

Sub meddaydate()
Dim d1 As Date
    Dim d As Date
    Application.ScreenUpdating = False
    d1 = Range("E3").Value
    For d = DateSerial(Year(d1), Month(d1), 1) To DateSerial(Year(d1), Month(d1) + 1, 0)
        Range("E3").Value = d
        ActiveSheet.PrintOut
    Next d
    Application.ScreenUpdating = True
End Sub

However, I need to create another sheet for a different department who only work Mon-Thur So only need to print out paperwork for every Mon-Thur. Is there a way to adapt the above macro to skip the 3 days I don't require?

Thanks, in advance for any help that you can give.

 

[RoryA]

Welcome to the forum.

You can test the weekday of each date - e.g.

Sub meddaydate()
Dim d1 As Date
Dim d As Date
Application.ScreenUpdating = False
d1 = Range("E3").Value
For d = DateSerial(Year(d1), Month(d1), 1) To DateSerial(Year(d1), Month(d1) + 1, 0)
select case weekday(d, vbmonday)
case 1 to 4
Range("E3").Value = d
ActiveSheet.PrintOut
end select
 Next d
Application.ScreenUpdating = True
End Sub

 

[pete2583]

Wow. Thank you so much. I'm really new to Macro/VBA and it's quite a steep learning curve. This is great though.

 

[RoryA]

it's quite a steep learning curve

Yes it is - very powerful though!

Glad we could help.