Break down a schedule to individual calendars in Excel. Free templates and templates with code are available for purchase for $50 USD
www.easyexcelanswers.com/temp...
additional templates are available on request easyexcelanswers@gmail.com to inquire
Click this link to check out my one-on-one training www.calendly.com/easyexcelanswers
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 www.calendly.com/easyexcelanswers
Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click sqlspreads.com/?pid=barbhende... to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.
I am able to provide online help on your computer at a reasonable rate.
www.amazon.com/shop/barbhende...
I use a Blue condenser Microphone to record my videos, here is the link
amzn.to/37gyyGa
Check out Crowdcast for creating your webinars
app.linkmink.com/a/crowdcast/83
I use Tube Buddy to help promote my videos
Check them out
www.Tubebuddy.com/easyexcelan...
Follow me on Facebook
/ easyexcel.answers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
kzitem.info_cs_p...
*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.
How to insert VBA code in Excel • How to insert VBA code...
Sub copytocalender()
Dim daynum As Long
Dim dname As String
Dim r, rown As Long
Dim c, col As Long
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("month")
Dim sch As Worksheet: Set sch = ThisWorkbook.Worksheets("Schedule")
dname = ActiveCell.Value
r = ActiveCell.Row
'copy the month
With ThisWorkbook
ws.Copy ThisWorkbook.Sheets(Sheets.Count)
ActiveSheet.name = dname
End With
'make the start date for the month the same as the schedule
ActiveSheet.Range("B1").Value = sch.Range("A4").Value
'enter the employee name on the calendar
ActiveSheet.Range("C1").Value = dname
c = 2
rown = 5
daynum = sch.Cells(3, c).Value
Do While daynum less than or= 7
For col = 1 To 7
daynum = sch.Cells(3, c).Value
'if the day number matches the day on the calendar
If daynum = ActiveSheet.Cells(3, col).Value Then
ActiveSheet.Cells(rown, col).Value = sch.Cells(r, c).Value
c = c + 1
End If
Next col
rown = rown + 2
col = 1
If cgreater than 32 Then GoTo ende
Loop
ende:
End Sub
Function idate(rng As Range) As Boolean
idate = IsDate(rng)
End Function
Негізгі бет Break down a schedule to individual calendars in Excel
Пікірлер