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

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:=/”/

Please take the opportunity to connect and share this video with your friends and family if you find it useful.