Enter rotating shifts from a start date in Excel Enter shifts starting on any day of the year. Enter a specified number of rotations. Enter the number of days for each shift and the number of days off. Plan your shifts for more than a year.
All templates, with code, are available for purchase for $50 USD
[ Ссылка ]
For schedule templates [ Ссылка ]

Private Sub CommandButton1_Click()
Dim name As String
Dim ws As Worksheet
Dim rng As Range
Dim rownumber, monthmove As Integer
Dim Lstart As Integer
Dim newRow As Long
Dim x As Long
If txtname.Text = "" Then
MsgBox "Enter Name"
End If

name = Trim(txtname.Text)
Set rng = Sheet1.Columns("A:A").Find(What:=name, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
MsgBox "Name not found"
Else
rownumber = rng.Row
'MsgBox rownumber
End If


If Me.ComboBox1.Value = "January" Then
monthmove = 1
End If
If Me.ComboBox1.Value = "February" Then
monthmove = 32
End If

If Me.ComboBox1.Value = "March" Then
monthmove = 60
End If
If Me.ComboBox1.Value = "April" Then
monthmove = 91
End If
If Me.ComboBox1.Value = "May" Then
monthmove = 121
End If
If Me.ComboBox1.Value = "June" Then
monthmove = 152
End If
If Me.ComboBox1.Value = "July" Then
monthmove = 182
End If
If Me.ComboBox1.Value = "August" Then
monthmove = 213
End If
If Me.ComboBox1.Value = "September" Then
monthmove = 244
End If
If Me.ComboBox1.Value = "October" Then
monthmove = 274
End If
If Me.ComboBox1.Value = "November" Then
monthmove = 305
End If
If Me.ComboBox1.Value = "December" Then
monthmove = 335
End If
If Me.ComboBox1.Value = -1 Then
MsgBox "No month Selected"
End If
'MsgBox monthmove

Lstart = Trim(TextBox2.Text) + monthmove
Sheet1.Cells(rownumber, Lstart).Select
x = 1
For x = 1 To 19

ActiveCell.Value = "D"

Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 4)).Value = "D"
Range(ActiveCell.Offset(0, 5), ActiveCell.Offset(0, 6)).Value = "O"
Range(ActiveCell.Offset(0, 7), ActiveCell.Offset(0, 11)).Value = "E"
Range(ActiveCell.Offset(0, 12), ActiveCell.Offset(0, 13)).Value = "O"
Range(ActiveCell.Offset(0, 14), ActiveCell.Offset(0, 18)).Value = "N"
Range(ActiveCell.Offset(0, 19), ActiveCell.Offset(0, 20)).Value = "O"

ActiveCell.Offset(0, 21).Select

Next



End Sub

For more help visit my website [ Ссылка ] 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.


I use a Blue condensor 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
[ Ссылка ]


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.

свернуть