Complete location schedule from a list in Excel

Sub Charting()
Dim r, c As Long
Dim name As String
Dim loc As String
Dim day As String
Dim findday As Range
Dim findloc As Range
Dim daycol As Long
Dim locrow As Long
r = 2
Do While Sheet1.Cells(r, 1) (not equal to) “”
name = Sheet1.Cells(r, 1).Value
loc = Sheet1.Cells(r, 3).Value
day = Sheet1.Cells(r, 2).Value
Sheet2.Activate
Set findloc = Sheet2.Columns(“A:A”).Find(What:=loc, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
locrow = findloc.Row
Cells(1, 2).Select
c = 2
For c = 2 To 6
If Cells(1, c) = day Then
daycol = c
GoTo nextone
End If
Next c
nextone:
Sheet2.Cells(locrow, daycol).Select
If ActiveCell.Value = “” Then
ActiveCell.Value = name
ActiveCell.Font.Bold = True
ActiveCell.Interior.ColorIndex = 34
Selection.EntireColumn.AutoFit
Else
ActiveCell.Value = ActiveCell.Value & vbNewLine & name
ActiveCell.Font.Bold = True
ActiveCell.Interior.ColorIndex = 34
Selection.EntireColumn.AutoFit
End If
r = r + 1
Loop
End Sub

Check out my online courses

For more help visit my website or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting

I am able to provide online help on your computer at a reasonable rate.

Check out my next one-hour Excel Webinar

Apart from Staff Scheduling, If Your Need Other HCM Software Solutions. Click Below:

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

TWEET THIS VIDEO

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.

Watch more new videos about Excel Office | Synthesized by Mindovermetal English