[color=darkblue]Private[/color] [color=darkblue]Sub[/color] UserForm_Initialize()
[color=green]'Populate Romms in Listbox[/color]
[color=green]'B3 to last used cell in column B[/color]
[color=darkblue]With[/color] Sheets("Room Schedules")
Me.RoomLBox.List = .Range("B3", .Range("B" & Rows.Count).End(xlUp)).Value
[color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click()
[color=darkblue]Dim[/color] c [color=darkblue]As[/color] [color=darkblue]Variant[/color], r [color=darkblue]As[/color] [color=darkblue]Long[/color]
[color=green]'Test if a room is selected in listbox[/color]
[color=darkblue]If[/color] Me.RoomLBox.ListIndex = -1 [color=darkblue]Then[/color]
MsgBox "No room selected. ", vbExclamation, "Missing Room Selection"
[color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
[color=green]'Test if StartDateTBox contains a date[/color]
[color=darkblue]If[/color] [color=darkblue]Not[/color] IsDate(StartDateTBox.Text) [color=darkblue]Then[/color]
MsgBox "Missing or invalid start date. ", vbExclamation, "Invalid Entry"
[color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
[color=darkblue]With[/color] Sheets("Room Schedules")
[color=green]'Match Date column[/color]
c = Application.Match(CLng(CDate(StartDateTBox.Text)), .Range("G2:CT2"), 0)
[color=darkblue]If[/color] IsError(c) [color=darkblue]Then[/color]
[color=green]'No date match[/color]
MsgBox "No date match for " & Me.StartDateTBox.Text, vbExclamation, "No Start Date Match"
[color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
c = c + 6 [color=green]'Offset matched date index to start at column G[/color]
[color=green]'The Listbox selected item index is the row number offset to start at row 3[/color]
r = Me.RoomLBox.ListIndex + 3
[color=green]'Palce an X on the worksheet[/color]
.Cells(r, c).Value = "x"
[color=darkblue]End[/color] [color=darkblue]With[/color]
End [color=darkblue]Sub[/color]