How to create weekly schedules in Excel. Check out my online courses www.easyexcelanswers.com/courses.html
All my courses include online support and a user manual
Let me teach you the VBA that I have learn in my five years of consulting
Let’s take the frustration out of user forms
Become an Affiliate and earn 25% on Course Sales
For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.
Contact me regarding customizing this template for your needs.
Click for online Excel Consulting
I am able to provide online help on your computer at a reasonable rate.
I use a Blue condenser Microphone to record my videos, here is the link
Check out Crowdcast for creating your webinars
I use Tube Buddy to help promote my videos
Check them out
Follow me on Facebook
TWEET THIS VIDEO
Follow me on twitter
easyexcelanswers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I’ve used or have experience with.
Template with code are available for $50 USD
The code is free
Sub scheveryweek()
Dim nextdate As Date
Dim cnt As Long
Dim days As Integer
Dim sdate As Date
days = 7
Worksheets(“Sheet1”).Range(“A1”).Select
Worksheets(“Sheet1”).Range(“A1”).NumberFormat = (“dd-mmm-yyyy”)
sdate = Worksheets(“Sheet1”).Range(“A1”).Value
nextdate = sdate + days
cnt = 0
Do While cnt(less than) 10
‘copy the current sheet to the end of the sheets
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Range(“A1”).NumberFormat = (“dd-mmm”)
ActiveSheet.Range(“A1”).Value = nextdate
‘specified the column width for each sheet
Range(“A1”).ColumnWidth = 20
Range(“B1:H1”).ColumnWidth = 15
ActiveSheet.Name = Format(nextdate, “dd-mmm”)
nextdate = nextdate + days
cnt = cnt + 1
Loop
End Sub
Watch more new videos about Excel Office | Synthesized by Mindovermetal English
