Every second weekend off with 12 hour shifts 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 Onoff()
Dim r, c As Long
Dim Drng As Range
Dim Nrng As Range
Dim ws As Worksheet
Dim cl
Dim cnt As Long
Set ws = ActiveSheet
fri = 6
findstring = fri
With Sheets("Sheet1").Range("b3:I3")
Set rng = .Find(What:=findstring, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
fri = (rng.Column)
r = 7
c = fri
For r = 7 To 14
If r = 7 Or r = 8 Or r = 11 Or r = 12 Then
cnt = 0
ws.Cells(r, c).Select
Do While cnt is less than 26
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 2)).Value = "OFF"
Range(ActiveCell.Offset(0, 5), ActiveCell.Offset(0, 6)).Value = "OFF"
Range(ActiveCell.Offset(0, 10), ActiveCell.Offset(0, 11)).Value = "OFF"
ActiveCell.Offset(0, 14).Select
cnt = cnt + 1
Loop
End If
If r = 9 Or r = 10 Or r = 13 Or r = 14 Then
c = fri
cnt = 0
ws.Cells(r, c).Select
Do While cnt is less than 26
ActiveCell.Offset(0, -1).Value = "OFF"
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 4)).Value = "OFF"
Range(ActiveCell.Offset(0, 7), ActiveCell.Offset(0, 9)).Value = "OFF"
ActiveCell.Offset(0, 12).Value = "OFF"
ActiveCell.Offset(0, 14).Select
cnt = cnt + 1
Loop
End If
Next r
End Sub
Sub entershifts()
Dim c
For Each c In Range("B7:NA10")
If c.Value = "" Then
c.Value = "D"
End If
Next c
For Each c In Range("B11:NA14")
If c.Value = "" Then
c.Value = "N"
End If
Next c
End Sub
Негізгі бет Every second weekend off with 12 hour shifts in Excel
Пікірлер: 11