Determine break times for shift 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 breaks()

Dim cnt As Long
‘shift 1
Sheet1.Cells(4, 2).Select
Do While cnt (less than) 9
ActiveCell.Offset(0, 1).Value = “9:15 A.M.”
ActiveCell.Offset(0, 2).Value = “11:00 A.M.”
ActiveCell.Offset(0, 3).Value = “1:00 P.M.”
ActiveCell.Offset(1, 1).Value = “9:30 A.M.”
ActiveCell.Offset(1, 2).Value = “11:30 A.M.”
ActiveCell.Offset(1, 3).Value = “1:15 P.M.”
ActiveCell.Offset(2, 1).Value = “9:45 A.M.”
ActiveCell.Offset(2, 2).Value = “12:00 P.M.”
ActiveCell.Offset(2, 3).Value = “1:30 P.M.”
ActiveCell.Offset(3, 1).Value = “10:00 A.M.”
ActiveCell.Offset(3, 2).Value = “12:30 P.M.”
ActiveCell.Offset(3, 3).Value = “1:45 P.M.”
ActiveCell.Offset(4, 0).Select
cnt = cnt + 1
Loop
‘shift 2

Call second
End Sub
Sub second()
‘shift 2
Sheet1.Cells(4, 8).Select
Do While cnt (less than) 6
ActiveCell.Offset(0, 1).Value = “5:30 P.M.”
ActiveCell.Offset(0, 2).Value = “7:00 P.M.”
ActiveCell.Offset(0, 3).Value = “9:30 P.M.”

ActiveCell.Offset(1, 1).Value = “5:45 P.M.”
ActiveCell.Offset(1, 2).Value = “7:30 P.M.”
ActiveCell.Offset(1, 3).Value = “9:45 P.M.”

ActiveCell.Offset(2, 1).Value = “6:00 P.M.”
ActiveCell.Offset(2, 2).Value = “8:00 P.M.”
ActiveCell.Offset(2, 3).Value = “10:00 P.M.”

ActiveCell.Offset(3, 1).Value = “6:15 P.M.”
ActiveCell.Offset(3, 2).Value = “8:30 P.M.”
ActiveCell.Offset(3, 3).Value = “10:15 P.M.”
ActiveCell.Offset(4, 0).Select
cnt = cnt + 1
Loop
Call third
End Sub
Sub third()
‘shift 3
Sheet1.Cells(4, 15).Select
Do While cnt (less than) 5
ActiveCell.Offset(0, 1).Value = “1:00 A.M.”
ActiveCell.Offset(0, 2).Value = “2:30 A.M.”
ActiveCell.Offset(0, 3).Value = “5:00 A.M.”

ActiveCell.Offset(1, 1).Value = “1:15 A.M.”
ActiveCell.Offset(1, 2).Value = “3:00 A.M.”
ActiveCell.Offset(1, 3).Value = “5:15 A.M.”

ActiveCell.Offset(2, 1).Value = “1:30 A.M.”
ActiveCell.Offset(2, 2).Value = “3:30 A.M.”
ActiveCell.Offset(2, 3).Value = “5:30 A.M.”

ActiveCell.Offset(3, 1).Value = “1:45 A.M.”
ActiveCell.Offset(3, 2).Value = “4:00 A.M.”
ActiveCell.Offset(3, 3).Value = “5:45 A.M.”
ActiveCell.Offset(4, 0).Select
cnt = cnt + 1
Loop
End Sub

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