Create a schedule based on staff requirements in Excel. Free templates and templates with code are available for purchase for $50 USD
www.easyexcelanswers.com/temp...
Addition Templates may be available on request
Click this link to check out my one-on-one training www.calendly.com/easyexcelanswers
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 www.calendly.com/easyexcelanswers
Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click sqlspreads.com/?pid=barbhende... to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.
I am able to provide online help on your computer at a reasonable rate.
Check out Crowdcast for creating your webinars
app.linkmink.com/a/crowdcast/83
I use Tube Buddy to help promote my videos
Check them out
www.Tubebuddy.com/easyexcelan...
Follow me on Facebook
/ easyexcel.answers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
kzitem.info_cs_p...
*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.
How to insert VBA code in Excel • How to insert VBA code...
Sub fillreq()
Dim strtr, c As Long
Dim sat, sat2 As Long
Dim ws As Worksheet
Dim req As Long
Dim shift As String
Dim erow As Long
Set ws = ActiveSheet
Dim sReturn As String
sReturn = InputBox("Please enter the row to begin schedule : ")
strtr = sReturn
sat = 7
strtr2 = strtr + 1
'find first saturday
findstring = sat
With ws.Range("c3:J3")
Set Rng = .Find(What:=findstring, After:=.Cells(.Cells.Count), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
End With
c = Rng.Column
sat1 = c
sat2 = c + 7
req = 29
Do While c (less than)= 16
erow = ActiveSheet.Cells(Rows.Count, c).End(xlUp).Row
If c(greater than)= sat1 And c (less than)= sat2 Then
strtr = strtr
End If
If c (greater than)= sat2 Then
strtr = strtr2
End If
For r = strtr To 24
fillin:
ws.Cells(r, c).Select
If ActiveCell.Value = "" Then
For req = 29 To 32
shift = ws.Cells(req, 2).Value
If ws.Cells(req, c).Value (greater than) 0 Then
ActiveCell.Value = shift
ws.Cells(req, c).Value = ws.Cells(req, c).Value - 1
GoTo ende
End If
Next req
ende:
End If
Next r
If ws.Cells(erow, c).Value (greater than) 0 Then
r = 5
GoTo fillin
End If
c = c + 1
Loop
End Sub
Негізгі бет Create a schedule based on staff requirements in Excel
Пікірлер: 6