I have a workbook which has 8 columns and 19 rows. The first row is headers.
The first column is "Assignments" and has 18 assignments from A2 to A19.
The second columns is "Saturday" and has 18 employee names from B2 to B19.
The third column is "Sunday"
and so forth until last column is "Friday"
What I want to do is have an input box that asks what day it is, then open a Word document and print both column "A" and, depending on what day is put in, the corresponding column.
The object is to make daily rosters with assignments for each employee on them, example Column "A" and Column "B" for Saturday, Column "A" and Column "C" for Sunday, and so on to Column "A" and Column "H" for Friday
I have got the inputbox to work and have done Select Case for whatever day is put in the box. Right now, I just have a msgbox for each day just to make sure my Select Case is working right. My code to follow:
Code:
Option Explicit
Sub MakeAssignments()
'/===================================================================
'/
'/===================================================================
Dim sAssign As Integer
Dim sDay As String
sDay = InputBox("What day is it?", "Day Please!", "Enter Day Here!")
If sDay = "" Then
Exit Sub
Else
Select Case sDay
Case "Saturday"
For sAssign = 1 To 18
Debug.Print ThisWorkbook.Worksheets("Sheet1").Range("A1").Offset(sAssign, 1).Formula
Next
Case "Sunday"
MsgBox "Yep, it's Sunday!", vbOKCancel, "Second Watch Operations"
Case "Monday"
MsgBox "Yes, it's Monday!", vbOKCancel, "Second Watch Operations"
Case "Tuesday"
MsgBox "It IS Tuesday!", vbOKCancel, "Second Watch Operations"
Case "Wednesday"
MsgBox "I think it's Wednesday", vbOKCancel, "Second Watch Operations"
Case "Thursday"
MsgBox "Well now, it could be Thursday!", vbOKCancel, "Second Watch Operations"
Case "Friday"
MsgBox "Thank God, it's Friday!", vbOKCancel, "Second Watch Operations"
End Select
End If
End Sub
Could someone help with the rest?
Thanks
Printing to Word
