Schedule for temporary workers in Excel

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

If you need to buy Office 2019 follow

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.

code
Sub normal()
Dim r, c As Long
Dim cday As Date
‘regular staff
Sheet1.Activate
c = 2
r = 7

Do While c less than 90
For r = 7 To 13
If r = 7 Or r = 9 Or r = 11 Or r = 13 Then

Sheet1.Cells(r, c).Select
Range(ActiveCell, ActiveCell.Offset(0, 2)).Value = “W”
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 5)).Value = “O”

End If
If r = 8 Or r = 10 Or r = 12 Then

Sheet1.Cells(r, c).Select
Range(ActiveCell, ActiveCell.Offset(0, 2)).Value = “O”
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 5)).Value = “W”

End If
Next r

c = c + 6
Loop

End Sub

Sub temporary()
Dim r, c As Long
Dim cday As Date

Sheet1.Activate
c = 2

r = 14
For c = 2 To 90
cday = Sheet1.Cells(4, c).Value
If cday greater than= 44788 And cday less than= 44834 Then
For r = 14 To 17
If r = 14 Or r = 16 Then
Sheet1.Cells(r, c).Select
Range(ActiveCell, ActiveCell.Offset(0, 2)).Value = “W”
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 5)).Value = “O”

End If
If r = 15 Or r = 17 Then
Sheet1.Cells(r, c).Select
Range(ActiveCell, ActiveCell.Offset(0, 2)).Value = “O”
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 5)).Value = “W”

End If
Next r
c = c + 5
End If
Next c
End Sub

Watch more new videos about Excel Office | Synthesized by Mindovermetal English