Hello guys, Welcome to Africa's Largest Video Search Engine, and you are watching Automatically create shift schedule in Excel. and this video is uploaded by Barb Henderson at 2018-04-29T14:55:53-07:00. We are just promoting this video only for entertainment and educational purpose only. I hop you like our Video Search Engine. [DYBteICNrQI]
| Name | Automatically create shift schedule in Excel |
| Video Uploader | Video From Barb Henderson |
| Upload Date | This Video Uploaded At 29-04-2018 21:55:53 |
| Video Discription | Automatically create shift schedule in Excel. Enter work days and off days for each of your staff. VBA code included. Use the offset function. Use the search and replace function. Check out my templates page for free and purchased templates https://www.easyexcelanswers.com/templates.html https://www.easyexcelanswers.com/courses.html Contact me regarding customizing this template for your needs. https://www.amazon.com/shop/barbhenderson How to insert VBA code in Excel https://youtu.be/AByFH0TN53M sub autoschedule () Dim i as integer for i = 4 to 11 if i = 4 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 7).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 14).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 21).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 28).Value = "O" End if if i = 5 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Offset(0, 1).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 8).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 15).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 22).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 29).Value = "O" End if if i = 6 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Offset(0, 2).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 9).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 16).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 23).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 30).Value = "O" End if if i = 7 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Offset(0, 3).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 10).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 17).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 24).Value = "O" End if if i = 8 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Offset(0, 4).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 11).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 18).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 25).Value = "O" End if if i = 9 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Offset(0, 5).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 12).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 19).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 26).Value = "O" End if if i = 10 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 7).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 14).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 21).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 28).Value = "O" End if if i = 11 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Offset(0, 1).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 8).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 15).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 22).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 29).Value = "O" End if if i = 12 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Offset(0, 2).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 9).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 16).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 23).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 30).Value = "O" End if if i = 13 then Worksheets("Sheet1").Range(Cells(i, 3), Cells(i, 4)).Offset(0, 3).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 10).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 17).Value = "O" Range(Cells(i, 3), Cells(i, 4)).Offset(0, 24).Value = "O" End if Range("c4:AG13").Replace What:="", Replacement:="X" End Sub For more help visit my website http://www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com. Contact me regarding customizing this template for your needs. Excel one-on-one on-line training available. Email me to arrange. I am able to provide online help on your computer at a reasonable rate. Check out my next one-hour Excel Webinar https://www.crowdcast.io/easyexcelanswers Check out Crowdcast for creating your webinars https://app.linkmink.com/a/crowdcast/83 If you need to buy Office 2019 follow https://amzn.to/2VX5dv8 I use Tube Buddy to help promote my videos Check them out https://www.Tubebuddy.com/easyexcelanswers Follow me on twitter easyexcelanswers IG @barbhendersonconsulting You can help and generate a translation to you own language http://www.youtube.com/timedtext_cs_panel?c=UCFH2kZykqt-VX5W9waJzYvQ&tab=2 *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. [DYBteICNrQI] |
| Category | Howto & Style |
| Tags | Automatically create shift schedule in Excel | employee schedule | conditional formatting | work schedule | schedule maker | excel work schedule maker | shift patterns | microsoft excel tutorial | Enter work days and off days for each of your staff | use the offset function in excel | use the seach and replace function in VBA | vba code included | Barb Henderson | shift schedules | how to create a roster | roster template | employee roster | staff roster |
