Converting data table into time table

[Rocky.ca]

www.richardsonindustrial.com/timetable.xlsm

This is the data I am looking at. Essentially I need to create a procedure that allows me to display the time table data in colored blocks below. Just like a highschool time table

 

[Leith Ross]

Hello Rocky.ca,

I have added a VBA macro to your workbook. This will automatically validate the time entries and fill in the time table. You can download the file from http://www.mediafire.com/?t3grbg93vk0to9c. Here is the Worksheet_Change event macro code.

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim R As Long
  
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Union(Range("Start_Time"), Range("End_Time"))) Is Nothing Then
    
       If Target.Value < 8 Or Target.Value > 20 Then
          MsgBox "Please enter a time from 0800 to 2000.", vbExclamation
          Exit Sub
       End If
       
       If Not Intersect(Target, Range("End_Time")) Is Nothing Then
          If Target.Value < Target.Offset(0, -1) Then
             MsgBox "Ending Time must be later than the Starting Time.", vbExclamation
             Exit Sub
          End If
       End If
       
       For R = Cells(Target.Row, "B").Value To Cells(Target.Row, "C").Value
         Cells(R, "B") = Cells(Target.Row, "A")
         Cells(R, "C") = Cells(Target.Row, "D")
       Next R
      
    End If
    

End Sub

Sincerely,
Leith Ross

 

[sous2817]

For what it's worth, duplicate post here:

http://www.mrexcel.com/forum/showthread.php?p=2653735#post2653735