How to create weekly schedules in Excel. Free templates and templates with code are available for purchase for $50 USD [ Ссылка ]
Check out my online training www.easyexcelanswers.com/courses.html

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.

Templates with code are available for purchase for $50 USD
email: easyexcelanswers@gmail.com to arrange purchase


The code is free

How to insert VBA code in Excel
[ Ссылка ]

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

свернуть