i need some help with a spreadsheet

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a schedule spreadsheet that we use and i have to come up with a way to
make it easier to schedule. I have three locations North, Central, South. i
have 12-15 drivers per location. i need to schedule by senoirity company
wide. say i need 5 drivers to work and have 12 drivers total. i need to find
the top 20 drivers from all three locations so i know who to schedule. i was
hoping to do this with out having to look up all the drivers hire dates
manually.Times would be manually entered but the offs hopefully will be
automatic entry.

Example Goal Out Come
A B C D E F
North Time Central Time South Time
Steve Bob Chris
Zach Ed OFF Bill
John OFF Daryl OFF Joe OFF
Pam OFF John R OFF Luis OFF
 
You need to add a column for each location. Each location should have the
driver name (A,D,G), the data of hire (B,E,H), and a new column (C, F,I)
which contain driver status on of off. You can the simply sort each
location. by On/Off column as first key and data of hire as 2nd key. You can
change the driver status each day and then resort.

Use this macro to sort drivers

Sub sortdriver()
'
' Macro1 Macro
' Macro recorded 10/2/2007 by Joel
'
LastRowA = Cells(Rows.Count, "A").End(xlUp).Row
LastRowD = Cells(Rows.Count, "D").End(xlUp).Row
LastRowG = Cells(Rows.Count, "G").End(xlUp).Row
Set SortRangeNorth = Range("A1:C" & LastRowA)
Set SortRangeCentral = Range("D1:F" & LastRowD)
Set SortRangeSouth = Range("G1:I" & LastRowG)

SortRangeNorth.Sort _
Key1:=Range("C1"), _
Order1:=xlAscending, _
Key2:=Range("B1"), _
Order2:=xlAscending, _
Header:=xlGuess
SortRangeCentral.Sort _
Key1:=Range("F1"), _
Order1:=xlAscending, _
Key2:=Range("E1"), _
Order2:=xlAscending, _
Header:=xlGuess
SortRangeSouth.Sort _
Key1:=Range("I1"), _
Order1:=xlAscending, _
Key2:=Range("H1"), _
Order2:=xlAscending, _
Header:=xlGuess
End Sub
 
Back
Top