S
SeangSTM
I know, I know...people have written about this before. I've read
every single post on it and nothing has solved my problem. I'm new to
programming with Excel, and I have a simple, simple program fora
userform (I've created many before) that enters the users information
into a multipage spreadsheet...but everytime i hit OK, I get this
error.
Run-Time error '-2147417848 (80010108)': Automation error The object
invoked has disconnected from its clients
Here is the code (it's rather long)
The notes were written by me for my own information - not as a
definitive explanation of how it works. Sorry about the size, but it's
a massive speadsheet that's being filled.
how do I prevent the error message from popping up?? PLEASE HELP!!!
Private Sub App_WorkbookActivate()
ManagementReportEntryForm.Show
End Sub
Private Sub cmdOK_Click()
'when you click the OK button, the following codes are run -
'this just enters the values that the users enter into the appropriate
fields
'below are call functions for sub procedures (listed above)
CollatingSheetFillIn
InputDateSheetFillInMonth
InputCostAlloFillInMonth
InputCostAlloFillIn
CompletedRequestedFillIn
OnHandFillIn
AOCFiguresFillIn
TrackingAssignmentsFiguresFillIn
ChartFiguresFillIn
BillableHoursFillIn
AssignedOverdueFillIn
MonthEntryFillIn
Unload ManagementReportEntryForm
End Sub
Private Sub cmdAdjustmentsLoad_Click()
Sheets("INPUT Data Sheet").Select
If cboMonth = "January" Then
Range("B6").Select
End If
If cboMonth = "February" Then
Range("C6").Select
End If
If cboMonth = "March" Then
Range("D6").Select
End If
If cboMonth = "April" Then
Range("E6").Select
End If
If cboMonth = "May" Then
Range("F6").Select
End If
If cboMonth = "June" Then
Range("G6").Select
End If
If cboMonth = "July" Then
Range("H6").Select
End If
If cboMonth = "August" Then
Range("I6").Select
End If
If cboMonth = "September" Then
Range("J6").Select
End If
If cboMonth = "October" Then
Range("K6").Select
End If
If cboMonth = "November" Then
Range("L6").Select
End If
If cboMonth = "December" Then
Range("M6").Select
End If
***I've removed the names below for privacy, but they are based on the
picklist that appears in teh userform***
If cboRepNames = "" Then
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(22).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(44).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(66).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(88).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(160).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(132).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(154).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(176).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(198).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(220).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(242).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(264).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(286).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(308).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(330).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(352).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(374).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(396).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(418).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(440).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(462).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(484).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(506).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(528).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(550).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(572).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(594).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(616).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(638).Select
AdjustmentsEntry
End If
End Sub
Private Sub AdjustmentsEntry()
'this program enters the adjustment information into the billable hours
sheet
'and is repeated for every rep
ActiveCell.Value = txtAdjustmentsCommercialMidMarket.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsCorporate.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsFacilities.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsProgrammes.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsConstruction.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsGlobalEnergy.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsSurety.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsSpecialties.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsIllness.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsVacation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsLegalHoliday.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsTT.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsTG.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsQM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsCanBU.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsNA.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsProj.Value
End Sub
Private Sub ManagementReportEntryForm_Activate()
'Completed Reports Page
'this command automatically clears all fields
'in the userform before the user has entered
'anything
txtAlex.Value = ""
txtAndreanne.Value = ""
txtBill.Value = ""
txtBob.Value = ""
txtChris.Value = ""
txtClive.Value = ""
txtDave.Value = ""
txtDon.Value = ""
txtJacques.Value = ""
txtJared.Value = ""
txtJean.Value = ""
txtJim.Value = ""
txtJulie.Value = ""
txtKevin.Value = ""
txtLen.Value = ""
txtLino.Value = ""
txtMatt.Value = ""
txtMikeC.Value = ""
txtMikeM.Value = ""
txtMikeR.Value = ""
txtPascal.Value = ""
txtRaed.Value = ""
txtRene.Value = ""
txtRob.Value = ""
txtScott.Value = ""
txtSteve.Value = ""
txtStewart.Value = ""
txtSylvia.Value = ""
txtTom.Value = ""
txtTony.Value = ""
txtWael.Value = ""
txtNonRepInfo1.Value = ""
txtNonRepInfo2.Value = ""
txtNonRepInfo3.Value = ""
txtNonRepInfo4.Value = ""
txtNonRepInfo5.Value = ""
txtNonRepInfo6.Value = ""
txtNonRepInfo7.Value = ""
txtNonRepInfo8.Value = ""
txtNonRepInfo9.Value = ""
txtNonRepInfo10.Value = ""
txtNonRepInfo11.Value = ""
txtNonRepInfo12.Value = ""
txtNonRepInfo13.Value = ""
txtNonRepInfo14.Value = ""
txtNonRepInfo15.Value = ""
txtNonRep1.Value = ""
txtNonRep2.Value = ""
txtNonRep3.Value = ""
txtNonRep4.Value = ""
txtNonRep5.Value = ""
txtNonRep6.Value = ""
txtNonRep7.Value = ""
txtNonRep8.Value = ""
txtNonRep9.Value = ""
txtNonRep10.Value = ""
txtNonRep16.Value = ""
txtNonRep12.Value = ""
txtNonRep13.Value = ""
txtNonRep14.Value = ""
txtNonRep15.Value = ""
'Assigned/Overdue Reports Page
txtAlex2a.Value = ""
txtAndreanne2a.Value = ""
txtBill2a.Value = ""
txtBob2a.Value = ""
txtChris2a.Value = ""
txtClive2a.Value = ""
txtDave2a.Value = ""
txtDon2a.Value = ""
txtJacques2a.Value = ""
txtJared2a.Value = ""
txtJean2a.Value = ""
txtJim2a.Value = ""
txtJulie2a.Value = ""
txtKevin2a.Value = ""
txtLen2a.Value = ""
txtLino2a.Value = ""
txtMatt2a.Value = ""
txtMikeC2a.Value = ""
txtMikeM2a.Value = ""
txtMikeR2a.Value = ""
txtPascal2a.Value = ""
txtRaed2a.Value = ""
txtRene2a.Value = ""
txtRob2a.Value = ""
txtScott2a.Value = ""
txtSteve2a.Value = ""
txtStewart2a.Value = ""
txtSylvia2a.Value = ""
txtTom2a.Value = ""
txtTony2a.Value = ""
txtWael2a.Value = ""
txtAlex2b.Value = ""
txtAndreanne2b.Value = ""
txtBill2b.Value = ""
txtBob2b.Value = ""
txtChris2b.Value = ""
txtClive2b.Value = ""
txtDave2b.Value = ""
txtDon2b.Value = ""
txtJacques2b.Value = ""
txtJared2b.Value = ""
txtJean2b.Value = ""
txtJim2b.Value = ""
txtJulie2b.Value = ""
txtKevin2b.Value = ""
txtLen2b.Value = ""
txtLino2b.Value = ""
txtMatt2b.Value = ""
txtMikeC2b.Value = ""
txtMikeM2b.Value = ""
txtMikeR2b.Value = ""
txtPascal2b.Value = ""
txtRaed2b.Value = ""
txtRene2b.Value = ""
txtRob2b.Value = ""
txtScott2b.Value = ""
txtSteve2b.Value = ""
txtStewart2b.Value = ""
txtSylvia2b.Value = ""
txtTom2b.Value = ""
txtTony2b.Value = ""
txtWael2b.Value = ""
txtNonRepInfo1a.Value = ""
txtNonRepInfo2a.Value = ""
txtNonRepInfo3a.Value = ""
txtNonRepInfo4a.Value = ""
txtNonRepInfo5a.Value = ""
txtNonRepInfo6a.Value = ""
txtNonRepInfo7a.Value = ""
txtNonRepInfo8a.Value = ""
txtNonRepInfo9a.Value = ""
txtNonRepInfo10a.Value = ""
txtNonRepInfo11a.Value = ""
txtNonRepInfo12a.Value = ""
txtNonRepInfo13a.Value = ""
txtNonRepInfo14a.Value = ""
txtNonRepInfo15a.Value = ""
txtNonRepInfo1b.Value = ""
txtNonRepInfo2b.Value = ""
txtNonRepInfo3b.Value = ""
txtNonRepInfo4b.Value = ""
txtNonRepInfo5b.Value = ""
txtNonRepInfo6b.Value = ""
txtNonRepInfo7b.Value = ""
txtNonRepInfo8b.Value = ""
txtNonRepInfo9b.Value = ""
txtNonRepInfo10b.Value = ""
txtNonRepInfo11b.Value = ""
txtNonRepInfo12b.Value = ""
txtNonRepInfo13b.Value = ""
txtNonRepInfo14b.Value = ""
txtNonRepInfo15b.Value = ""
txtNonRep1a.Value = ""
txtNonRep2a.Value = ""
txtNonRep3a.Value = ""
txtNonRep4a.Value = ""
txtNonRep5a.Value = ""
txtNonRep6a.Value = ""
txtNonRep7a.Value = ""
txtNonRep8a.Value = ""
txtNonRep9a.Value = ""
txtNonRep10a.Value = ""
txtNonRep16a.Value = ""
txtNonRep12a.Value = ""
txtNonRep13a.Value = ""
txtNonRep14a.Value = ""
txtNonRep15a.Value = ""
txtCommercialMidMarketTime.Value = ""
txtCommercialMidMarketExpenses.Value = ""
txtConstructionTime.Value = ""
txtConstructionExpenses.Value = ""
txtCorporateTime.Value = ""
txtCorporateExpenses.Value = ""
txtClaimsTime.Value = ""
txtClaimsExpenses.Value = ""
txtGlobalEnergyTime.Value = ""
txtGlobalEnergyExpenses.Value = ""
txtChargeToReceivedUnitTime.Value = ""
txtChargeToReceivedUnitExpenses.Value = ""
txtProgrammesTime.Value = ""
txtProgrammesExpenses.Value = ""
txtSuretyTime.Value = ""
txtSuretyExpenses.Value = ""
txtSpecialtiesTime.Value = ""
txtSpecialtiesExpenses.Value = ""
txtCompletedQuote.Value = ""
txtAssignedQuote.Value = ""
txtUnassignedQuote.Value = ""
txtInspectedQuote.Value = ""
txtCompletedInitial.Value = ""
txtAssignedInitial.Value = ""
txtUnassignedInitial.Value = ""
txtInspectedInitial.Value = ""
txtCompletedReinsp.Value = ""
txtAssignedReinsp.Value = ""
txtUnassignedReinsp.Value = ""
txtInspectedReinsp.Value = ""
txtCompletedBM.Value = ""
txtAssignedBM.Value = ""
txtUnassignedBM.Value = ""
txtInspectedBM.Value = ""
txtCompletedDesk.Value = ""
txtAssignedDesk.Value = ""
txtUnassignedDesk.Value = ""
txtInspectedDesk.Value = ""
txtCompletedClaims.Value = ""
txtAssignedClaims.Value = ""
txtUnassignedClaims.Value = ""
txtInspectedClaims.Value = ""
txtCompletedAccount.Value = ""
txtAssignedAccount.Value = ""
txtUnassignedAccount.Value = ""
txtInspectedAccount.Value = ""
txtCompletedRecommendation.Value = ""
txtAssignedRecommendation.Value = ""
txtUnassignedRecommendation.Value = ""
txtInspectedRecommendation.Value = ""
txtCompletedCustomer.Value = ""
txtAssignedCustomer.Value = ""
txtUnassignedCustomer.Value = ""
txtInspectedCustomer.Value = ""
txtCompletedProject.Value = ""
txtAssignedProject.Value = ""
txtUnassignedProject.Value = ""
txtInspectedProject.Value = ""
txtAdjustmentsCommercialMidMarket.Value = ""
txtAdjustmentsCorporate.Value = ""
txtAdjustmentsClaims.Value = ""
txtAdjustmentsFacilities.Value = ""
txtAdjustmentsProgrammes.Value = ""
txtAdjustmentsConstruction.Value = ""
txtAdjustmentsGlobalEnergy.Value = ""
txtAdjustmentsSurety.Value = ""
txtAdjustmentsSpecialties.Value = ""
txtAdjustmentsIllness.Value = ""
txtAdjustmentsVacation.Value = ""
txtAdjustmentsLegalHoliday.Value = ""
txtAdjustmentsTT.Value = ""
txtAdjustmentsTG.Value = ""
txtAdjustmentsQM.Value = ""
txtAdjustmentsCanBU.Value = ""
txtAdjustmentsNA.Value = ""
txtAdjustmentsProj.Value = ""
'marks the end of the 'clear fields' command
'initializes the one dropdown menu
cboRepNames.DropDown
'cell to start off in
txtAlex.SetFocus
End Sub
Private Sub CollatingSheetFillIn()
Sheets("Collating Sheet").Select
'Completed Reports Info FILL-IN
'completed
Range("A3").Select
ActiveCell.Value = txtAlex.Value
Range("A4").Select
ActiveCell.Value = txtAndreanne.Value
Range("A5").Select
ActiveCell.Value = txtBill.Value
Range("A6").Select
ActiveCell.Value = txtBob.Value
Range("A7").Select
ActiveCell.Value = txtChris.Value
Range("A8").Select
ActiveCell.Value = txtClive.Value
Range("A9").Select
ActiveCell.Value = txtDave.Value
Range("A10").Select
ActiveCell.Value = txtDon.Value
Range("A16").Select
ActiveCell.Value = txtJacques.Value
Range("A12").Select
ActiveCell.Value = txtJared.Value
Range("A13").Select
ActiveCell.Value = txtJean.Value
Range("A14").Select
ActiveCell.Value = txtJim.Value
Range("A15").Select
ActiveCell.Value = txtJulie.Value
Range("A16").Select
ActiveCell.Value = txtKevin.Value
Range("A17").Select
ActiveCell.Value = txtLen.Value
Range("A18").Select
ActiveCell.Value = txtLino.Value
Range("A19").Select
ActiveCell.Value = txtMatt.Value
Range("A20").Select
ActiveCell.Value = txtMikeC.Value
Range("A21").Select
ActiveCell.Value = txtMikeM.Value
Range("A22").Select
ActiveCell.Value = txtMikeR.Value
Range("A23").Select
ActiveCell.Value = txtPascal.Value
Range("A24").Select
ActiveCell.Value = txtRaed.Value
Range("A25").Select
ActiveCell.Value = txtRene.Value
Range("A26").Select
ActiveCell.Value = txtRob.Value
Range("A27").Select
ActiveCell.Value = txtScott.Value
Range("A28").Select
ActiveCell.Value = txtSteve.Value
Range("A29").Select
ActiveCell.Value = txtStewart.Value
Range("A30").Select
ActiveCell.Value = txtSylvia.Value
Range("A31").Select
ActiveCell.Value = txtTom.Value
Range("A32").Select
ActiveCell.Value = txtTony.Value
Range("A33").Select
ActiveCell.Value = txtWael.Value
'completed
Range("A40").Select
ActiveCell.Value = txtNonRepInfo1.Value
Range("A41").Select
ActiveCell.Value = txtNonRepInfo2.Value
Range("A42").Select
ActiveCell.Value = txtNonRepInfo3.Value
Range("A43").Select
ActiveCell.Value = txtNonRepInfo4.Value
Range("A44").Select
ActiveCell.Value = txtNonRepInfo5.Value
Range("A45").Select
ActiveCell.Value = txtNonRepInfo6.Value
Range("A46").Select
ActiveCell.Value = txtNonRepInfo7.Value
Range("A47").Select
ActiveCell.Value = txtNonRepInfo8.Value
Range("A48").Select
ActiveCell.Value = txtNonRepInfo9.Value
Range("A49").Select
ActiveCell.Value = txtNonRepInfo10.Value
Range("A50").Select
ActiveCell.Value = txtNonRepInfo11.Value
Range("A51").Select
ActiveCell.Value = txtNonRepInfo12.Value
Range("A52").Select
ActiveCell.Value = txtNonRepInfo13.Value
Range("A53").Select
ActiveCell.Value = txtNonRepInfo14.Value
Range("A54").Select
ActiveCell.Value = txtNonRepInfo15.Value
'Assigned/Overdue Reports Info FILL-IN
'assigned
Range("B3").Select
ActiveCell.Value = txtAlex2a.Value
Range("B4").Select
ActiveCell.Value = txtAndreanne2a.Value
Range("B5").Select
ActiveCell.Value = txtBill2a.Value
Range("B6").Select
ActiveCell.Value = txtBob2a.Value
Range("B7").Select
ActiveCell.Value = txtChris2a.Value
Range("B8").Select
ActiveCell.Value = txtClive2a.Value
Range("B9").Select
ActiveCell.Value = txtDave2a.Value
Range("B10").Select
ActiveCell.Value = txtDon2a.Value
Range("B16").Select
ActiveCell.Value = txtJacques2a.Value
Range("B12").Select
ActiveCell.Value = txtJared2a.Value
Range("B13").Select
ActiveCell.Value = txtJean2a.Value
Range("B14").Select
ActiveCell.Value = txtJim2a.Value
Range("B15").Select
ActiveCell.Value = txtJulie2a.Value
Range("B16").Select
ActiveCell.Value = txtKevin2a.Value
Range("B17").Select
ActiveCell.Value = txtLen2a.Value
Range("B18").Select
ActiveCell.Value = txtLino2a.Value
Range("B19").Select
ActiveCell.Value = txtMatt2a.Value
Range("B20").Select
ActiveCell.Value = txtMikeC2a.Value
Range("B21").Select
ActiveCell.Value = txtMikeM2a.Value
Range("B22").Select
ActiveCell.Value = txtMikeR2a.Value
Range("B23").Select
ActiveCell.Value = txtPascal2a.Value
Range("B24").Select
ActiveCell.Value = txtRaed2a.Value
Range("B25").Select
ActiveCell.Value = txtRene2a.Value
Range("B26").Select
ActiveCell.Value = txtRob2a.Value
Range("B27").Select
ActiveCell.Value = txtScott2a.Value
Range("B28").Select
ActiveCell.Value = txtSteve2a.Value
Range("B29").Select
ActiveCell.Value = txtStewart2a.Value
Range("B30").Select
ActiveCell.Value = txtSylvia2a.Value
Range("B31").Select
ActiveCell.Value = txtTom2a.Value
Range("B32").Select
ActiveCell.Value = txtTony2a.Value
Range("B33").Select
ActiveCell.Value = txtWael2a.Value
'overdue
Range("C3").Select
ActiveCell.Value = txtAlex2b.Value
Range("C4").Select
ActiveCell.Value = txtAndreanne2b.Value
Range("C5").Select
ActiveCell.Value = txtBill2b.Value
Range("C6").Select
ActiveCell.Value = txtBob2b.Value
Range("C7").Select
ActiveCell.Value = txtChris2b.Value
Range("C8").Select
ActiveCell.Value = txtClive2b.Value
Range("C9").Select
ActiveCell.Value = txtDave2b.Value
Range("C10").Select
ActiveCell.Value = txtDon2b.Value
Range("C16").Select
ActiveCell.Value = txtJacques2b.Value
Range("C12").Select
ActiveCell.Value = txtJared2b.Value
Range("C13").Select
ActiveCell.Value = txtJean2b.Value
Range("C14").Select
ActiveCell.Value = txtJim2b.Value
Range("C15").Select
ActiveCell.Value = txtJulie2b.Value
Range("C16").Select
ActiveCell.Value = txtKevin2b.Value
Range("C17").Select
ActiveCell.Value = txtLen2b.Value
Range("C18").Select
ActiveCell.Value = txtLino2b.Value
Range("C19").Select
ActiveCell.Value = txtMatt2b.Value
Range("C20").Select
ActiveCell.Value = txtMikeC2b.Value
Range("C21").Select
ActiveCell.Value = txtMikeM2b.Value
Range("C22").Select
ActiveCell.Value = txtMikeR2b.Value
Range("C23").Select
ActiveCell.Value = txtPascal2b.Value
Range("C24").Select
ActiveCell.Value = txtRaed2b.Value
Range("C25").Select
ActiveCell.Value = txtRene2b.Value
Range("C26").Select
ActiveCell.Value = txtRob2b.Value
Range("C27").Select
ActiveCell.Value = txtScott2b.Value
Range("C28").Select
ActiveCell.Value = txtSteve2b.Value
Range("C29").Select
ActiveCell.Value = txtStewart2b.Value
Range("C30").Select
ActiveCell.Value = txtSylvia2b.Value
Range("C31").Select
ActiveCell.Value = txtTom2b.Value
Range("C32").Select
ActiveCell.Value = txtTony2b.Value
Range("C33").Select
ActiveCell.Value = txtWael2b.Value
'assigned
Range("B40").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("B41").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("B42").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("B43").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("B44").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("B45").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("B46").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("B47").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("B48").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("B49").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("B50").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("B51").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("B52").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("B53").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("B54").Select
ActiveCell.Value = txtNonRepInfo15a.Value
'overdue
Range("C40").Select
ActiveCell.Value = txtNonRepInfo1b.Value
Range("C41").Select
ActiveCell.Value = txtNonRepInfo2b.Value
Range("C42").Select
ActiveCell.Value = txtNonRepInfo3b.Value
Range("C43").Select
ActiveCell.Value = txtNonRepInfo4b.Value
Range("C44").Select
ActiveCell.Value = txtNonRepInfo5b.Value
Range("C45").Select
ActiveCell.Value = txtNonRepInfo6b.Value
Range("C46").Select
ActiveCell.Value = txtNonRepInfo7b.Value
Range("C47").Select
ActiveCell.Value = txtNonRepInfo8b.Value
Range("C48").Select
ActiveCell.Value = txtNonRepInfo9b.Value
Range("C49").Select
ActiveCell.Value = txtNonRepInfo10b.Value
Range("C50").Select
ActiveCell.Value = txtNonRepInfo11b.Value
Range("C51").Select
ActiveCell.Value = txtNonRepInfo12b.Value
Range("C52").Select
ActiveCell.Value = txtNonRepInfo13b.Value
Range("C53").Select
ActiveCell.Value = txtNonRepInfo14b.Value
Range("C54").Select
ActiveCell.Value = txtNonRepInfo15b.Value
End Sub
Private Sub AssignedOverdueFillIn()
Sheets("Assigned_Overdue by Rep").Select
'this copies the info in the present D & E columns on the page
'into the B & C columns, it also deletes the contents of the remaining
'cells
Range("D3:E57").Select
Selection.Copy
Range("B3:C57").Select
Range("C57").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D3:e57").Select
Selection.ClearContents
Range("d2:e2").Select
Selection.Copy
Range("b2:c2").Select
ActiveSheet.Paste
Range("d2:e2").Select
Application.CutCopyMode = False
Selection.ClearContents
'fills in the Inspected, Unassigned and Abeyanced
'fields on the ASSIGNED_OVERDUE BY REP sheet
Range("D55").Select
ActiveCell.Value = txtInspectedReports
Range("D56").Select
ActiveCell.Value = txtUnassignedReports
Range("D57").Select
ActiveCell.Value = txtAbeyanced3
'fills in the Assigned/Overdue fields for each Rep
'on the ASSIGNED_OVERDUE BY REP sheet
'assigned
Range("D3").Select
ActiveCell.Value = txtAlex2a.Value
Range("D4").Select
ActiveCell.Value = txtAndreanne2a.Value
Range("D5").Select
ActiveCell.Value = txtBill2a.Value
Range("D6").Select
ActiveCell.Value = txtBob2a.Value
Range("D7").Select
ActiveCell.Value = txtChris2a.Value
Range("D8").Select
ActiveCell.Value = txtClive2a.Value
Range("D9").Select
ActiveCell.Value = txtDave2a.Value
Range("D10").Select
ActiveCell.Value = txtDon2a.Value
Range("D16").Select
ActiveCell.Value = txtJacques2a.Value
Range("D12").Select
ActiveCell.Value = txtJared2a.Value
Range("D13").Select
ActiveCell.Value = txtJean2a.Value
Range("D14").Select
ActiveCell.Value = txtJim2a.Value
Range("D15").Select
ActiveCell.Value = txtJulie2a.Value
Range("D16").Select
ActiveCell.Value = txtKevin2a.Value
Range("D17").Select
ActiveCell.Value = txtLen2a.Value
Range("D18").Select
ActiveCell.Value = txtLino2a.Value
Range("D19").Select
ActiveCell.Value = txtMatt2a.Value
Range("D20").Select
ActiveCell.Value = txtMikeC2a.Value
Range("D21").Select
ActiveCell.Value = txtMikeM2a.Value
Range("D22").Select
ActiveCell.Value = txtMikeR2a.Value
Range("D23").Select
ActiveCell.Value = txtPascal2a.Value
Range("D24").Select
ActiveCell.Value = txtRaed2a.Value
Range("D25").Select
ActiveCell.Value = txtRene2a.Value
Range("D26").Select
ActiveCell.Value = txtRob2a.Value
Range("D27").Select
ActiveCell.Value = txtScott2a.Value
Range("D28").Select
ActiveCell.Value = txtSteve2a.Value
Range("D29").Select
ActiveCell.Value = txtStewart2a.Value
Range("D30").Select
ActiveCell.Value = txtSylvia2a.Value
Range("D31").Select
ActiveCell.Value = txtTom2a.Value
Range("D32").Select
ActiveCell.Value = txtTony2a.Value
Range("D33").Select
ActiveCell.Value = txtWael2a.Value
'overdue
Range("E3").Select
ActiveCell.Value = txtAlex2b.Value
Range("E4").Select
ActiveCell.Value = txtAndreanne2b.Value
Range("E5").Select
ActiveCell.Value = txtBill2b.Value
Range("E6").Select
ActiveCell.Value = txtBob2b.Value
Range("E7").Select
ActiveCell.Value = txtChris2b.Value
Range("E8").Select
ActiveCell.Value = txtClive2b.Value
Range("E9").Select
ActiveCell.Value = txtDave2b.Value
Range("E10").Select
ActiveCell.Value = txtDon2b.Value
Range("E16").Select
ActiveCell.Value = txtJacques2b.Value
Range("E12").Select
ActiveCell.Value = txtJared2b.Value
Range("E13").Select
ActiveCell.Value = txtJean2b.Value
Range("E14").Select
ActiveCell.Value = txtJim2b.Value
Range("E15").Select
ActiveCell.Value = txtJulie2b.Value
Range("E16").Select
ActiveCell.Value = txtKevin2b.Value
Range("E17").Select
ActiveCell.Value = txtLen2b.Value
Range("E18").Select
ActiveCell.Value = txtLino2b.Value
Range("E19").Select
ActiveCell.Value = txtMatt2b.Value
Range("E20").Select
ActiveCell.Value = txtMikeC2b.Value
Range("E21").Select
ActiveCell.Value = txtMikeM2b.Value
Range("E22").Select
ActiveCell.Value = txtMikeR2b.Value
Range("E23").Select
ActiveCell.Value = txtPascal2b.Value
Range("E24").Select
ActiveCell.Value = txtRaed2b.Value
Range("E25").Select
ActiveCell.Value = txtRene2b.Value
Range("E26").Select
ActiveCell.Value = txtRob2b.Value
Range("E27").Select
ActiveCell.Value = txtScott2b.Value
Range("E28").Select
ActiveCell.Value = txtSteve2b.Value
Range("E29").Select
ActiveCell.Value = txtStewart2b.Value
Range("E30").Select
ActiveCell.Value = txtSylvia2b.Value
Range("E31").Select
ActiveCell.Value = txtTom2b.Value
Range("E32").Select
ActiveCell.Value = txtTony2b.Value
Range("E33").Select
ActiveCell.Value = txtWael2b.Value
'assigned
Range("D34").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("D35").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("D36").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("D37").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("D38").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("D39").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("D40").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("D41").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("D42").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("D43").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("D44").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("D45").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("D46").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("D47").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("D48").Select
ActiveCell.Value = txtNonRepInfo15a.Value
'overdue
Range("E34").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("E35").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("E36").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("E37").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("E38").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("E39").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("E40").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("E41").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("E42").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("E43").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("E44").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("E45").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("E46").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("E47").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("E48").Select
ActiveCell.Value = txtNonRepInfo15a.Value
End Sub
Private Sub InputDateSheetFillInMonth()
Sheets("INPUT Data Sheet").Select
'the following is the program for the cboMonth field
'whichever month is written in the field, a corresponding
'number enters into a relevant field in the INPUT Data Sheet
If cboMonth = "January" Then
Range("O1").Select
ActiveCell.Value = "1"
End If
If cboMonth = "February" Then
Range("O1").Select
ActiveCell.Value = "2"
End If
If cboMonth = "March" Then
Range("O1").Select
ActiveCell.Value = "3"
End If
If cboMonth = "April" Then
Range("O1").Select
ActiveCell.Value = "4"
End If
If cboMonth = "May" Then
Range("O1").Select
ActiveCell.Value = "5"
End If
If cboMonth = "June" Then
Range("O1").Select
ActiveCell.Value = "6"
End If
If cboMonth = "July" Then
Range("O1").Select
ActiveCell.Value = "7"
End If
If cboMonth = "August" Then
Range("O1").Select
ActiveCell.Value = "8"
End If
If cboMonth = "September" Then
Range("O1").Select
ActiveCell.Value = "9"
End If
If cboMonth = "October" Then
Range("O1").Select
ActiveCell.Value = "10"
End If
If cboMonth = "November" Then
Range("O1").Select
ActiveCell.Value = "16"
End If
If cboMonth = "December" Then
Range("O1").Select
ActiveCell.Value = "12"
End If
'end month program
End Sub
Private Sub InputCostAlloFillInMonth()
Sheets("INPUT Cost Allo").Select
'this formula references the month figure and changes ROW C
'in the INPUT Cost Allo sheet (which needs to be taking the
'proper month's figures from the INPUT Data Sheet)
If cboMonth = "January" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!B666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!B667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!B668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!B669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!B670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!B671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!B672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!B673"
End If
If cboMonth = "February" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!C666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!C667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!C668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!C669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!C670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!C671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!C672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!C673"
End If
If cboMonth = "March" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!D666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!D667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!D668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!D669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!D670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!D671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!D672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!D673"
End If
If cboMonth = "April" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!E666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!E667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!E668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!E669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!E670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!E671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!E672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!E673"
End If
If cboMonth = "May" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!F666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!F667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!F668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!F669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!F670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!F671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!F672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!F673"
End If
If cboMonth = "June" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!G666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!G667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!G668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!G669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!G670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!G671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!G672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!G673"
End If
If cboMonth = "July" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!H666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!H667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!H668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!H669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!H670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!H671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!H672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!H673"
End If
If cboMonth = "August" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!I666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!I667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!I668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!I669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!I670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!I671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!I672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!I673"
End If
If cboMonth = "September" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!J666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!J667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!J668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!J669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!J670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!J671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!J672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!J673"
End If
If cboMonth = "October" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!K666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!K667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!K668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!K669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!K670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!K671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!K672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!K673"
End If
If cboMonth = "November" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!L666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!L667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!L668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!L669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!L670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!L671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!L672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!L673"
End If
If cboMonth = "December" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!M666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!M667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!M668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!M669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!M670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!M671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!M672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!M673"
End If
'end program
End Sub
Private Sub InputCostAlloFillIn()
'this program enters the cost allocation information into the
'INPUT cost allo sheet
Range("B4").Select
ActiveCell.Value = txtCommercialMidMarketTime.Value
Range("G4").Select
ActiveCell.Value = txtCommercialMidMarketExp.Value
Range("B12").Select
ActiveCell.Value = txtCorporateTime.Value
Range("G12").Select
ActiveCell.Value = txtCorporateExp.Value
Range("B8").Select
ActiveCell.Value = txtConstructionTime.Value
Range("G8").Select
ActiveCell.Value = txtConstructionExp.Value
Range("B6").Select
ActiveCell.Value = txtClaimsTime.Value
Range("G6").Select
ActiveCell.Value = txtClaimsExp.Value
Range("B9").Select
ActiveCell.Value = txtGlobalEnergyTime.Value
Range("G9").Select
ActiveCell.Value = txtGlobalEnergyExp.Value
Range("B13").Select
ActiveCell.Value = txtChargeToReceivedUnitTime.Value
Range("G13").Select
ActiveCell.Value = txtChargeToReceivedUnitExp.Value
Range("B7").Select
ActiveCell.Value = txtProgrammesTime.Value
Range("G7").Select
ActiveCell.Value = txtProgrammesExp.Value
Range("B10").Select
ActiveCell.Value = txtSuretyTime.Value
Range("G10").Select
ActiveCell.Value = txtSuretyExp.Value
Range("B16").Select
ActiveCell.Value = txtSpecialtiesTime.Value
Range("G16").Select
ActiveCell.Value = txtSpecialtiesExp.Value
'end program
End Sub
Private Sub CompletedRequestedFillIn()
'the following 4 sets of programs enter the figures into the
'Completed & Requested sheet. It compares the date,
'then enters the figures in the appropriate rowdepends on the
'date and SBU
Sheets("Completed & Requested").Select
CompletedRequestedFillIn_COMPLETEDFILLIN
Sheets("On Hand").Select
CompletedRequestedFillIn_ONHANDFILLIN
End Sub
Private Sub CompletedRequestedFillIn_ONHANDFILLIN()
If cboMonth = "January" Then
Range("c16").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F16").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I16").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L16").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O16").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R16").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U16").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X16").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA16").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD16").Select
ActiveCell.Value = "='Collating Sheet'!H16"
End If
If cboMonth = "February" Then
Range("c12").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F12").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I12").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L12").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O12").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R12").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U12").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X12").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA12").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD12").Select
ActiveCell.Value = "='Collating Sheet'!H12"
End If
If cboMonth = "March" Then
Range("c13").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F13").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I13").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L13").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O13").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R13").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U13").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X13").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA13").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD13").Select
ActiveCell.Value = "='Collating Sheet'!H13"
End If
If cboMonth = "April" Then
Range("c14").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F14").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I14").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L14").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O14").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R14").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U14").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X14").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA14").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD14").Select
ActiveCell.Value = "='Collating Sheet'!H14"
End If
If cboMonth = "May" Then
Range("c15").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F15").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I15").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L15").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O15").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R15").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U15").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X15").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA15").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD15").Select
ActiveCell.Value = "='Collating Sheet'!H15"
End If
If cboMonth = "June" Then
Range("c16").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F16").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I16").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L16").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O16").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R16").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U16").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X16").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA16").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD16").Select
ActiveCell.Value = "='Collating Sheet'!H16"
End If
If cboMonth = "July" Then
Range("c17").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F17").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I17").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L17").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O17").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R17").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U17").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X17").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA17").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD17").Select
ActiveCell.Value = "='Collating Sheet'!H17"
End If
If cboMonth = "August" Then
Range("c18").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F18").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I18").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L18").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O18").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R18").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U18").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X18").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA18").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD18").Select
ActiveCell.Value = "='Collating Sheet'!H18"
End If
If cboMonth = "September" Then
Range("c19").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F19").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I19").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L19").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O19").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R19").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U19").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X19").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA19").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD19").Select
ActiveCell.Value = "='Collating Sheet'!H19"
End If
If cboMonth = "October" Then
Range("c20").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F20").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I20").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L20").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O20").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R20").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U20").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X20").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA20").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD20").Select
ActiveCell.Value = "='Collating Sheet'!H20"
End If
If cboMonth = "November" Then
Range("c21").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F21").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I21").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L21").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O21").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R21").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U21").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X21").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA21").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD21").Select
ActiveCell.Value = "='Collating Sheet'!H21"
End If
If cboMonth = "December" Then
Range("c22").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F22").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I22").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L22").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O22").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R22").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U22").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X22").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA22").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD22").Select
ActiveCell.Value = "='Collating Sheet'!H22"
End If
End Sub
Private Sub CompletedRequestedFillIn_COMPLETEDFILLIN()
If cboMonth = "January" Then
Range("C8").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F8").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I8").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L8").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O8").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R8").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U8").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X8").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA8").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD8").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "February" Then
Range("C9").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F9").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I9").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L9").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O9").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R9").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U9").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X9").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA9").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD9").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "March" Then
Range("C10").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F10").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I10").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L10").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O10").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R10").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U10").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X10").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA10").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD10").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "April" Then
Range("C16").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F16").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I16").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L16").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O16").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R16").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U16").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X16").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA16").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD16").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "May" Then
Range("C12").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F12").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I12").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L12").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O12").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R12").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U12").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X12").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA12").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD12").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "June" Then
Range("C13").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F13").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I13").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L13").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O13").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R13").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U13").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X13").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA13").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD13").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "July" Then
Range("C14").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F14").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I14").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L14").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O14").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R14").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U14").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X14").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA14").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD14").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "August" Then
Range("C15").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F15").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I15").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L15").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O15").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R15").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U15").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X15").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA15").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD15").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "September" Then
Range("C16").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F16").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I16").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L16").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O16").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R16").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U16").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X16").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA16").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD16").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "October" Then
Range("C17").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F17").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I17").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L17").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O17").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R17").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U17").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X17").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA17").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD17").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "November" Then
Range("C18").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F18").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I18").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L18").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O18").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R18").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U18").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X18").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA18").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD18").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "December" Then
Range("C19").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F19").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I19").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L19").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O19").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R19").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U19").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X19").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA19").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD19").Select
ActiveCell.Value = txtCompletedProject.Value
End If
'end program
End Sub
Private Sub OnHandFillIn()
Sheets("Collating Sheet").Select
'Collating Sheet'!E2
Range("e2").Select
ActiveCell.Value = txtAssignedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedProject.Value
Range("F2").Select
ActiveCell.Value = txtUnassignedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedProject.Value
Range("g2").Select
ActiveCell.Value = txtInspectedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedProject.Value
End Sub
Private Sub AOCFiguresFillIn()
'this program fills in the fields on the AOC Figures sheet
'with the potential to be programmed to delete the oldest column
(working on that)*****
Sheets("AOC Figures").Select
Range("o1").Select
ActiveCell.Value = cboMonth.Value + txtYear.Value
Range("o2").Select
ActiveCell.Value = ("'Collating Sheet'!B2")
Range("o3").Select
ActiveCell.Value = ("'Collating Sheet'!C2")
Range("o4").Select
ActiveCell.Value = ("'Collating Sheet'!A2")
End Sub
Private Sub TrackingAssignmentsFiguresFillIn()
'this program fills in the fields on the AOC Figures sheet
'with the potential to be programmed to delete the oldest column
(working on that)*****
Sheets("Tracking Assignments Figures").Select
If cboMonth = "January" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C33")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F33")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I33")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L33")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O33")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R33")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U33")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X33")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA33")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD33")
End If
If cboMonth = "February" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C34")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F34")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I34")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L34")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O34")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R34")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U34")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X34")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA34")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD34")
End If
If cboMonth = "March" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C35")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F35")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I35")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L35")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O35")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R35")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U35")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X35")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA35")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD35")
End If
If cboMonth = "April" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C36")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F36")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I36")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L36")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O36")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R36")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U36")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X36")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA36")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD36")
End If
If cboMonth = "May" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C37")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F37")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I37")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L37")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O37")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R37")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U37")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X37")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA37")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD37")
End If
If cboMonth = "June" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C38")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F38")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I38")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L38")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O38")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R38")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U38")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X38")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA38")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD38")
End If
If cboMonth = "July" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C39")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F39")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I39")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L39")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O39")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R39")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U39")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X39")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA39")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD39")
End If
If cboMonth = "August" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C40")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F40")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I40")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L40")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O40")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R40")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U40")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X40")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA40")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD40")
End If
If cboMonth = "September" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C41")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F41")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I41")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L41")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O41")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R41")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U41")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X41")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA41")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD41")
End If
If cboMonth = "October" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C42")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F42")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I42")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L42")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O42")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R42")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U42")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X42")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA42")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD42")
End If
If cboMonth = "November" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C43")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F43")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I43")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L43")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O43")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R43")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U43")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X43")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA43")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD43")
End If
If cboMonth = "December" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C44")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F44")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I44")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L44")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O44")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R44")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U44")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X44")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA44")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD44")
End If
End Sub
Private Sub ChartFiguresFillIn()
Sheets("Chart Figures").Select
'this enters the completed figures from the page noted
If cboMonth = "January" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c8")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F8")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I8")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L8")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o8")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R8")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U8")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x8")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa8")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad8")
End If
If cboMonth = "February" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c9")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F9")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I9")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L9")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o9")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R9")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U9")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x9")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa9")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad9")
End If
If cboMonth = "March" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c10")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F10")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I10")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L10")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o10")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R10")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U10")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x10")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa10")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad10")
End If
If cboMonth = "April" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c16")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F16")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I16")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L16")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o16")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R16")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U16")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x16")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa16")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad16")
End If
If cboMonth = "May" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c12")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F12")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I12")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L12")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o12")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R12")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U12")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x12")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa12")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad12")
End If
If cboMonth = "June" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c13")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F13")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I13")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L13")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o13")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R13")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U13")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x13")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa13")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad13")
End If
If cboMonth = "July" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c14")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F14")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I14")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L14")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o14")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R14")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U14")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x14")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa14")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad14")
End If
If cboMonth = "August" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c15")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F15")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I15")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L15")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o15")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R15")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U15")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x15")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa15")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad15")
End If
If cboMonth = "September" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c16")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F16")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I16")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L16")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o16")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R16")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U16")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x16")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa16")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad16")
End If
If cboMonth = "October" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c17")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F17")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I17")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L17")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o17")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R17")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U17")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x17")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa17")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad17")
End If
If cboMonth = "November" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c18")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F18")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I18")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L18")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o18")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R18")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U18")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x18")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa18")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad18")
End If
If cboMonth = "December" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c19")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F19")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I19")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L19")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o19")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R19")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U19")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x19")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa19")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad19")
End If
'and this enters the # Requested figure from the page noted
If cboMonth = "January" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c33")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F33")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I33")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L33")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o33")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R33")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U33")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x33")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa33")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad33")
End If
If cboMonth = "February" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c34")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F34")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I34")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L34")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o34")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R34")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U34")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x34")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa34")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad34")
End If
If cboMonth = "March" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c35")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F35")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I35")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L35")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o35")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R35")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U35")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x35")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa35")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad35")
End If
If cboMonth = "April" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c36")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F36")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I36")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L36")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o36")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R36")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U36")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x36")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa36")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad36")
End If
If cboMonth = "May" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c37")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F37")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I37")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L37")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o37")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R37")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U37")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x37")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa37")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad37")
End If
If cboMonth = "June" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c38")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F38")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I38")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L38")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o38")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R38")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U38")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x38")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa38")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad38")
End If
If cboMonth = "July" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c39")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F39")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I39")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L39")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o39")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R39")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U39")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x39")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa39")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad39")
End If
If cboMonth = "August" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c40")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F40")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I40")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L40")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o40")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R40")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U40")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x40")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa40")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad40")
End If
If cboMonth = "September" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c41")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F41")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I41")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L41")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o41")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R41")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U41")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x41")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa41")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad41")
End If
If cboMonth = "October" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c42")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F42")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I42")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L42")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o42")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R42")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U42")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x42")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa42")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad42")
End If
If cboMonth = "November" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c43")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F43")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I43")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L43")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o43")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R43")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U43")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x43")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa43")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad43")
End If
If cboMonth = "December" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c44")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F44")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I44")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L44")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o44")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R44")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U44")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x44")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa44")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad44")
End If
End Sub
Private Sub BillableHoursFillIn()
'this program enters the figures in the billable hours
'sheet, based on the completed figures and the adjustments
'that the reps send in each month
BillableHoursCompleted
End Sub
Private Sub BillableHoursCompleted()
'enters the completed figures into the billable hours sheet
Sheets("INPUT Data Sheet").Select
If cboMonth = "January" Then
Range("b5").Select
ActiveCell.Value = txtAlex.Value
Range("b27").Select
ActiveCell.Value = txtAndreanne.Value
Range("b49").Select
ActiveCell.Value = txtMikeR.Value
Range("b71").Select
ActiveCell.Value = txtBill.Value
Range("b93").Select
ActiveCell.Value = txtBob.Value
Range("b165").Select
ActiveCell.Value = txtClive.Value
Range("b137").Select
ActiveCell.Value = txtDave.Value
Range("b159").Select
ActiveCell.Value = txtDon.Value
Range("b181").Select
ActiveCell.Value = txtLen.Value
Range("b203").Select
ActiveCell.Value = txtPascal.Value
Range("b225").Select
ActiveCell.Value = txtJacques.Value
Range("b247").Select
ActiveCell.Value = txtJean.Value
Range("b269").Select
ActiveCell.Value = txtKevin.Value
Range("b291").Select
ActiveCell.Value = txtRob.Value
Range("b313").Select
ActiveCell.Value = txtChris.Value
Range("b335").Select
ActiveCell.Value = txtMatt.Value
Range("b357").Select
ActiveCell.Value = txtMikeC.Value
Range("b379").Select
ActiveCell.Value = txtJulie.Value
Range("b401").Select
ActiveCell.Value = txtRene.Value
Range("b423").Select
ActiveCell.Value = txtScott.Value
Range("b445").Select
ActiveCell.Value = txtSteve.Value
Range("b467").Select
ActiveCell.Value = txtStewart.Value
Range("b489").Select
ActiveCell.Value = txtSylvia.Value
Range("b516").Select
ActiveCell.Value = txtTom.Value
Range("b533").Select
ActiveCell.Value = txtTony.Value
Range("b555").Select
ActiveCell.Value = txtMikeM.Value
Range("b577").Select
ActiveCell.Value = txtLino.Value
Range("b599").Select
ActiveCell.Value = txtRaed.Value
Range("b621").Select
ActiveCell.Value = txtJared.Value
Range("b643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "February" Then
Range("C5").Select
ActiveCell.Value = txtAlex.Value
Range("C27").Select
ActiveCell.Value = txtAndreanne.Value
Range("C49").Select
ActiveCell.Value = txtMikeR.Value
Range("C71").Select
ActiveCell.Value = txtBill.Value
Range("C93").Select
ActiveCell.Value = txtBob.Value
Range("C165").Select
ActiveCell.Value = txtClive.Value
Range("C137").Select
ActiveCell.Value = txtDave.Value
Range("C159").Select
ActiveCell.Value = txtDon.Value
Range("C181").Select
ActiveCell.Value = txtLen.Value
Range("C203").Select
ActiveCell.Value = txtPascal.Value
Range("C225").Select
ActiveCell.Value = txtJacques.Value
Range("C247").Select
ActiveCell.Value = txtJean.Value
Range("C269").Select
ActiveCell.Value = txtKevin.Value
Range("C291").Select
ActiveCell.Value = txtRob.Value
Range("C313").Select
ActiveCell.Value = txtChris.Value
Range("C335").Select
ActiveCell.Value = txtMatt.Value
Range("C357").Select
ActiveCell.Value = txtMikeC.Value
Range("C379").Select
ActiveCell.Value = txtJulie.Value
Range("C401").Select
ActiveCell.Value = txtRene.Value
Range("C423").Select
ActiveCell.Value = txtScott.Value
Range("C445").Select
ActiveCell.Value = txtSteve.Value
Range("C467").Select
ActiveCell.Value = txtStewart.Value
Range("C489").Select
ActiveCell.Value = txtSylvia.Value
Range("C516").Select
ActiveCell.Value = txtTom.Value
Range("C533").Select
ActiveCell.Value = txtTony.Value
Range("C555").Select
ActiveCell.Value = txtMikeM.Value
Range("C577").Select
ActiveCell.Value = txtLino.Value
Range("C599").Select
ActiveCell.Value = txtRaed.Value
Range("C621").Select
ActiveCell.Value = txtJared.Value
Range("C643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "March" Then
Range("D5").Select
ActiveCell.Value = txtAlex.Value
Range("D27").Select
ActiveCell.Value = txtAndreanne.Value
Range("D49").Select
ActiveCell.Value = txtMikeR.Value
Range("D71").Select
ActiveCell.Value = txtBill.Value
Range("D93").Select
ActiveCell.Value = txtBob.Value
Range("D165").Select
ActiveCell.Value = txtClive.Value
Range("D137").Select
ActiveCell.Value = txtDave.Value
Range("D159").Select
ActiveCell.Value = txtDon.Value
Range("D181").Select
ActiveCell.Value = txtLen.Value
Range("D203").Select
ActiveCell.Value = txtPascal.Value
Range("D225").Select
ActiveCell.Value = txtJacques.Value
Range("D247").Select
ActiveCell.Value = txtJean.Value
Range("D269").Select
ActiveCell.Value = txtKevin.Value
Range("D291").Select
ActiveCell.Value = txtRob.Value
Range("D313").Select
ActiveCell.Value = txtChris.Value
Range("D335").Select
ActiveCell.Value = txtMatt.Value
Range("D357").Select
ActiveCell.Value = txtMikeC.Value
Range("D379").Select
ActiveCell.Value = txtJulie.Value
Range("D401").Select
ActiveCell.Value = txtRene.Value
Range("D423").Select
ActiveCell.Value = txtScott.Value
Range("D445").Select
ActiveCell.Value = txtSteve.Value
Range("D467").Select
ActiveCell.Value = txtStewart.Value
Range("D489").Select
ActiveCell.Value = txtSylvia.Value
Range("D516").Select
ActiveCell.Value = txtTom.Value
Range("D533").Select
ActiveCell.Value = txtTony.Value
Range("D555").Select
ActiveCell.Value = txtMikeM.Value
Range("D577").Select
ActiveCell.Value = txtLino.Value
Range("D599").Select
ActiveCell.Value = txtRaed.Value
Range("D621").Select
ActiveCell.Value = txtJared.Value
Range("D643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "April" Then
Range("E5").Select
ActiveCell.Value = txtAlex.Value
Range("E27").Select
ActiveCell.Value = txtAndreanne.Value
Range("E49").Select
ActiveCell.Value = txtMikeR.Value
Range("E71").Select
ActiveCell.Value = txtBill.Value
Range("E93").Select
ActiveCell.Value = txtBob.Value
Range("E165").Select
ActiveCell.Value = txtClive.Value
Range("E137").Select
ActiveCell.Value = txtDave.Value
Range("E159").Select
ActiveCell.Value = txtDon.Value
Range("E181").Select
ActiveCell.Value = txtLen.Value
Range("E203").Select
ActiveCell.Value = txtPascal.Value
Range("E225").Select
ActiveCell.Value = txtJacques.Value
Range("E247").Select
ActiveCell.Value = txtJean.Value
Range("E269").Select
ActiveCell.Value = txtKevin.Value
Range("E291").Select
ActiveCell.Value = txtRob.Value
Range("E313").Select
ActiveCell.Value = txtChris.Value
Range("E335").Select
ActiveCell.Value = txtMatt.Value
Range("E357").Select
ActiveCell.Value = txtMikeC.Value
Range("E379").Select
ActiveCell.Value = txtJulie.Value
Range("E401").Select
ActiveCell.Value = txtRene.Value
Range("E423").Select
ActiveCell.Value = txtScott.Value
Range("E445").Select
ActiveCell.Value = txtSteve.Value
Range("E467").Select
ActiveCell.Value = txtStewart.Value
Range("E489").Select
ActiveCell.Value = txtSylvia.Value
Range("E516").Select
ActiveCell.Value = txtTom.Value
Range("E533").Select
ActiveCell.Value = txtTony.Value
Range("E555").Select
ActiveCell.Value = txtMikeM.Value
Range("E577").Select
ActiveCell.Value = txtLino.Value
Range("E599").Select
ActiveCell.Value = txtRaed.Value
Range("E621").Select
ActiveCell.Value = txtJared.Value
Range("E643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "May" Then
Range("F5").Select
ActiveCell.Value = txtAlex.Value
Range("F27").Select
ActiveCell.Value = txtAndreanne.Value
Range("F49").Select
ActiveCell.Value = txtMikeR.Value
Range("F71").Select
ActiveCell.Value = txtBill.Value
Range("F93").Select
ActiveCell.Value = txtBob.Value
Range("F165").Select
ActiveCell.Value = txtClive.Value
Range("F137").Select
ActiveCell.Value = txtDave.Value
Range("F159").Select
ActiveCell.Value = txtDon.Value
Range("F181").Select
ActiveCell.Value = txtLen.Value
Range("F203").Select
ActiveCell.Value = txtPascal.Value
Range("F225").Select
ActiveCell.Value = txtJacques.Value
Range("F247").Select
ActiveCell.Value = txtJean.Value
Range("F269").Select
ActiveCell.Value = txtKevin.Value
Range("F291").Select
ActiveCell.Value = txtRob.Value
Range("F313").Select
ActiveCell.Value = txtChris.Value
Range("F335").Select
ActiveCell.Value = txtMatt.Value
Range("F357").Select
ActiveCell.Value = txtMikeC.Value
Range("F379").Select
ActiveCell.Value = txtJulie.Value
Range("F401").Select
ActiveCell.Value = txtRene.Value
Range("F423").Select
ActiveCell.Value = txtScott.Value
Range("F445").Select
ActiveCell.Value = txtSteve.Value
Range("F467").Select
ActiveCell.Value = txtStewart.Value
Range("F489").Select
ActiveCell.Value = txtSylvia.Value
Range("F516").Select
ActiveCell.Value = txtTom.Value
Range("F533").Select
ActiveCell.Value = txtTony.Value
Range("F555").Select
ActiveCell.Value = txtMikeM.Value
Range("F577").Select
ActiveCell.Value = txtLino.Value
Range("F599").Select
ActiveCell.Value = txtRaed.Value
Range("F621").Select
ActiveCell.Value = txtJared.Value
Range("F643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "June" Then
Range("G5").Select
ActiveCell.Value = txtAlex.Value
Range("G27").Select
ActiveCell.Value = txtAndreanne.Value
Range("G49").Select
ActiveCell.Value = txtMikeR.Value
Range("G71").Select
ActiveCell.Value = txtBill.Value
Range("G93").Select
ActiveCell.Value = txtBob.Value
Range("G165").Select
ActiveCell.Value = txtClive.Value
Range("G137").Select
ActiveCell.Value = txtDave.Value
Range("G159").Select
ActiveCell.Value = txtDon.Value
Range("G181").Select
ActiveCell.Value = txtLen.Value
Range("G203").Select
ActiveCell.Value = txtPascal.Value
Range("G225").Select
ActiveCell.Value = txtJacques.Value
Range("G247").Select
ActiveCell.Value = txtJean.Value
Range("G269").Select
ActiveCell.Value = txtKevin.Value
Range("G291").Select
ActiveCell.Value = txtRob.Value
Range("G313").Select
ActiveCell.Value = txtChris.Value
Range("G335").Select
ActiveCell.Value = txtMatt.Value
Range("G357").Select
ActiveCell.Value = txtMikeC.Value
Range("G379").Select
ActiveCell.Value = txtJulie.Value
Range("G401").Select
ActiveCell.Value = txtRene.Value
Range("G423").Select
ActiveCell.Value = txtScott.Value
Range("G445").Select
ActiveCell.Value = txtSteve.Value
Range("G467").Select
ActiveCell.Value = txtStewart.Value
Range("G489").Select
ActiveCell.Value = txtSylvia.Value
Range("G516").Select
ActiveCell.Value = txtTom.Value
Range("G533").Select
ActiveCell.Value = txtTony.Value
Range("G555").Select
ActiveCell.Value = txtMikeM.Value
Range("G577").Select
ActiveCell.Value = txtLino.Value
Range("G599").Select
ActiveCell.Value = txtRaed.Value
Range("G621").Select
ActiveCell.Value = txtJared.Value
Range("G643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "July" Then
Range("H5").Select
ActiveCell.Value = txtAlex.Value
Range("H27").Select
ActiveCell.Value = txtAndreanne.Value
Range("H49").Select
ActiveCell.Value = txtMikeR.Value
Range("H71").Select
ActiveCell.Value = txtBill.Value
Range("H93").Select
ActiveCell.Value = txtBob.Value
Range("H165").Select
ActiveCell.Value = txtClive.Value
Range("H137").Select
ActiveCell.Value = txtDave.Value
Range("H159").Select
ActiveCell.Value = txtDon.Value
Range("H181").Select
ActiveCell.Value = txtLen.Value
Range("H203").Select
ActiveCell.Value = txtPascal.Value
Range("H225").Select
ActiveCell.Value = txtJacques.Value
Range("H247").Select
ActiveCell.Value = txtJean.Value
Range("H269").Select
ActiveCell.Value = txtKevin.Value
Range("H291").Select
ActiveCell.Value = txtRob.Value
Range("H313").Select
ActiveCell.Value = txtChris.Value
Range("H335").Select
ActiveCell.Value = txtMatt.Value
Range("H357").Select
ActiveCell.Value = txtMikeC.Value
Range("H379").Select
ActiveCell.Value = txtJulie.Value
Range("H401").Select
ActiveCell.Value = txtRene.Value
Range("H423").Select
ActiveCell.Value = txtScott.Value
Range("H445").Select
ActiveCell.Value = txtSteve.Value
Range("H467").Select
ActiveCell.Value = txtStewart.Value
Range("H489").Select
ActiveCell.Value = txtSylvia.Value
Range("H516").Select
ActiveCell.Value = txtTom.Value
Range("H533").Select
ActiveCell.Value = txtTony.Value
Range("H555").Select
ActiveCell.Value = txtMikeM.Value
Range("H577").Select
ActiveCell.Value = txtLino.Value
Range("H599").Select
ActiveCell.Value = txtRaed.Value
Range("H621").Select
ActiveCell.Value = txtJared.Value
Range("H643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "August" Then
Range("I5").Select
ActiveCell.Value = txtAlex.Value
Range("I27").Select
ActiveCell.Value = txtAndreanne.Value
Range("I49").Select
ActiveCell.Value = txtMikeR.Value
Range("I71").Select
ActiveCell.Value = txtBill.Value
Range("I93").Select
ActiveCell.Value = txtBob.Value
Range("I165").Select
ActiveCell.Value = txtClive.Value
Range("I137").Select
ActiveCell.Value = txtDave.Value
Range("I159").Select
ActiveCell.Value = txtDon.Value
Range("I181").Select
ActiveCell.Value = txtLen.Value
Range("I203").Select
ActiveCell.Value = txtPascal.Value
Range("I225").Select
ActiveCell.Value = txtJacques.Value
Range("I247").Select
ActiveCell.Value = txtJean.Value
Range("I269").Select
ActiveCell.Value = txtKevin.Value
Range("I291").Select
ActiveCell.Value = txtRob.Value
Range("I313").Select
ActiveCell.Value = txtChris.Value
Range("I335").Select
ActiveCell.Value = txtMatt.Value
Range("I357").Select
ActiveCell.Value = txtMikeC.Value
Range("I379").Select
ActiveCell.Value = txtJulie.Value
Range("I401").Select
ActiveCell.Value = txtRene.Value
Range("I423").Select
ActiveCell.Value = txtScott.Value
Range("I445").Select
ActiveCell.Value = txtSteve.Value
Range("I467").Select
ActiveCell.Value = txtStewart.Value
Range("I489").Select
ActiveCell.Value = txtSylvia.Value
Range("I516").Select
ActiveCell.Value = txtTom.Value
Range("I533").Select
ActiveCell.Value = txtTony.Value
Range("I555").Select
ActiveCell.Value = txtMikeM.Value
Range("I577").Select
ActiveCell.Value = txtLino.Value
Range("I599").Select
ActiveCell.Value = txtRaed.Value
Range("I621").Select
ActiveCell.Value = txtJared.Value
Range("I643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "September" Then
Range("J5").Select
ActiveCell.Value = txtAlex.Value
Range("J27").Select
ActiveCell.Value = txtAndreanne.Value
Range("J49").Select
ActiveCell.Value = txtMikeR.Value
Range("J71").Select
ActiveCell.Value = txtBill.Value
Range("J93").Select
ActiveCell.Value = txtBob.Value
Range("J165").Select
ActiveCell.Value = txtClive.Value
Range("J137").Select
ActiveCell.Value = txtDave.Value
Range("J159").Select
ActiveCell.Value = txtDon.Value
Range("J181").Select
ActiveCell.Value = txtLen.Value
Range("J203").Select
ActiveCell.Value = txtPascal.Value
Range("J225").Select
ActiveCell.Value = txtJacques.Value
Range("J247").Select
ActiveCell.Value = txtJean.Value
Range("J269").Select
ActiveCell.Value = txtKevin.Value
Range("J291").Select
ActiveCell.Value = txtRob.Value
Range("J313").Select
ActiveCell.Value = txtChris.Value
Range("J335").Select
ActiveCell.Value = txtMatt.Value
Range("J357").Select
ActiveCell.Value = txtMikeC.Value
Range("J379").Select
ActiveCell.Value = txtJulie.Value
Range("J401").Select
ActiveCell.Value = txtRene.Value
Range("J423").Select
ActiveCell.Value = txtScott.Value
Range("J445").Select
ActiveCell.Value = txtSteve.Value
Range("J467").Select
ActiveCell.Value = txtStewart.Value
Range("J489").Select
ActiveCell.Value = txtSylvia.Value
Range("J516").Select
ActiveCell.Value = txtTom.Value
Range("J533").Select
ActiveCell.Value = txtTony.Value
Range("J555").Select
ActiveCell.Value = txtMikeM.Value
Range("J577").Select
ActiveCell.Value = txtLino.Value
Range("J599").Select
ActiveCell.Value = txtRaed.Value
Range("J621").Select
ActiveCell.Value = txtJared.Value
Range("J643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "October" Then
Range("K5").Select
ActiveCell.Value = txtAlex.Value
Range("K27").Select
ActiveCell.Value = txtAndreanne.Value
Range("K49").Select
ActiveCell.Value = txtMikeR.Value
Range("K71").Select
ActiveCell.Value = txtBill.Value
Range("K93").Select
ActiveCell.Value = txtBob.Value
Range("K165").Select
ActiveCell.Value = txtClive.Value
Range("K137").Select
ActiveCell.Value = txtDave.Value
Range("K159").Select
ActiveCell.Value = txtDon.Value
Range("K181").Select
ActiveCell.Value = txtLen.Value
Range("K203").Select
ActiveCell.Value = txtPascal.Value
Range("K225").Select
ActiveCell.Value = txtJacques.Value
Range("K247").Select
ActiveCell.Value = txtJean.Value
Range("K269").Select
ActiveCell.Value = txtKevin.Value
Range("K291").Select
ActiveCell.Value = txtRob.Value
Range("K313").Select
ActiveCell.Value = txtChris.Value
Range("K335").Select
ActiveCell.Value = txtMatt.Value
Range("K357").Select
ActiveCell.Value = txtMikeC.Value
Range("K379").Select
ActiveCell.Value = txtJulie.Value
Range("K401").Select
ActiveCell.Value = txtRene.Value
Range("K423").Select
ActiveCell.Value = txtScott.Value
Range("K445").Select
ActiveCell.Value = txtSteve.Value
Range("K467").Select
ActiveCell.Value = txtStewart.Value
Range("K489").Select
ActiveCell.Value = txtSylvia.Value
Range("K516").Select
ActiveCell.Value = txtTom.Value
Range("K533").Select
ActiveCell.Value = txtTony.Value
Range("K555").Select
ActiveCell.Value = txtMikeM.Value
Range("K577").Select
ActiveCell.Value = txtLino.Value
Range("K599").Select
ActiveCell.Value = txtRaed.Value
Range("K621").Select
ActiveCell.Value = txtJared.Value
Range("K643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "November" Then
Range("L5").Select
ActiveCell.Value = txtAlex.Value
Range("L27").Select
ActiveCell.Value = txtAndreanne.Value
Range("L49").Select
ActiveCell.Value = txtMikeR.Value
Range("L71").Select
ActiveCell.Value = txtBill.Value
Range("L93").Select
ActiveCell.Value = txtBob.Value
Range("L165").Select
ActiveCell.Value = txtClive.Value
Range("L137").Select
ActiveCell.Value = txtDave.Value
Range("L159").Select
ActiveCell.Value = txtDon.Value
Range("L181").Select
ActiveCell.Value = txtLen.Value
Range("L203").Select
ActiveCell.Value = txtPascal.Value
Range("L225").Select
ActiveCell.Value = txtJacques.Value
Range("L247").Select
ActiveCell.Value = txtJean.Value
Range("L269").Select
ActiveCell.Value = txtKevin.Value
Range("L291").Select
ActiveCell.Value = txtRob.Value
Range("L313").Select
ActiveCell.Value = txtChris.Value
Range("L335").Select
ActiveCell.Value = txtMatt.Value
Range("L357").Select
ActiveCell.Value = txtMikeC.Value
Range("L379").Select
ActiveCell.Value = txtJulie.Value
Range("L401").Select
ActiveCell.Value = txtRene.Value
Range("L423").Select
ActiveCell.Value = txtScott.Value
Range("L445").Select
ActiveCell.Value = txtSteve.Value
Range("L467").Select
ActiveCell.Value = txtStewart.Value
Range("L489").Select
ActiveCell.Value = txtSylvia.Value
Range("L516").Select
ActiveCell.Value = txtTom.Value
Range("L533").Select
ActiveCell.Value = txtTony.Value
Range("L555").Select
ActiveCell.Value = txtMikeM.Value
Range("L577").Select
ActiveCell.Value = txtLino.Value
Range("L599").Select
ActiveCell.Value = txtRaed.Value
Range("L621").Select
ActiveCell.Value = txtJared.Value
Range("L643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "December" Then
Range("M5").Select
ActiveCell.Value = txtAlex.Value
Range("M27").Select
ActiveCell.Value = txtAndreanne.Value
Range("M49").Select
ActiveCell.Value = txtMikeR.Value
Range("M71").Select
ActiveCell.Value = txtBill.Value
Range("M93").Select
ActiveCell.Value = txtBob.Value
Range("M165").Select
ActiveCell.Value = txtClive.Value
Range("M137").Select
ActiveCell.Value = txtDave.Value
Range("M159").Select
ActiveCell.Value = txtDon.Value
Range("M181").Select
ActiveCell.Value = txtLen.Value
Range("M203").Select
ActiveCell.Value = txtPascal.Value
Range("M225").Select
ActiveCell.Value = txtJacques.Value
Range("M247").Select
ActiveCell.Value = txtJean.Value
Range("M269").Select
ActiveCell.Value = txtKevin.Value
Range("M291").Select
ActiveCell.Value = txtRob.Value
Range("M313").Select
ActiveCell.Value = txtChris.Value
Range("M335").Select
ActiveCell.Value = txtMatt.Value
Range("M357").Select
ActiveCell.Value = txtMikeC.Value
Range("M379").Select
ActiveCell.Value = txtJulie.Value
Range("M401").Select
ActiveCell.Value = txtRene.Value
Range("M423").Select
ActiveCell.Value = txtScott.Value
Range("M445").Select
ActiveCell.Value = txtSteve.Value
Range("M467").Select
ActiveCell.Value = txtStewart.Value
Range("M489").Select
ActiveCell.Value = txtSylvia.Value
Range("M516").Select
ActiveCell.Value = txtTom.Value
Range("M533").Select
ActiveCell.Value = txtTony.Value
Range("M555").Select
ActiveCell.Value = txtMikeM.Value
Range("M577").Select
ActiveCell.Value = txtLino.Value
Range("M599").Select
ActiveCell.Value = txtRaed.Value
Range("M621").Select
ActiveCell.Value = txtJared.Value
Range("M643").Select
ActiveCell.Value = txtWael.Value
End Sub
Private Sub MonthEntryFillIn()
Sheets("INPUT Data Sheet").Select
Range("L2").Select
If cboMonth = "January" Then
ActiveCell.Value = "January"
End If
If cboMonth = "February" Then
ActiveCell.Value = "February"
End If
If cboMonth = "March" Then
ActiveCell.Value = "March"
End If
If cboMonth = "April" Then
ActiveCell.Value = "April"
End If
If cboMonth = "May" Then
ActiveCell.Value = "May"
End If
If cboMonth = "June" Then
ActiveCell.Value = "June"
End If
If cboMonth = "July" Then
ActiveCell.Value = "July"
End If
If cboMonth = "August" Then
ActiveCell.Value = "August"
End If
If cboMonth = "September" Then
ActiveCell.Value = "September"
End If
If cboMonth = "October" Then
ActiveCell.Value = "October"
End If
If cboMonth = "November" Then
ActiveCell.Value = "November"
End If
If cboMonth = "December" Then
ActiveCell.Value = "December"
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
every single post on it and nothing has solved my problem. I'm new to
programming with Excel, and I have a simple, simple program fora
userform (I've created many before) that enters the users information
into a multipage spreadsheet...but everytime i hit OK, I get this
error.
Run-Time error '-2147417848 (80010108)': Automation error The object
invoked has disconnected from its clients
Here is the code (it's rather long)
The notes were written by me for my own information - not as a
definitive explanation of how it works. Sorry about the size, but it's
a massive speadsheet that's being filled.
how do I prevent the error message from popping up?? PLEASE HELP!!!
Private Sub App_WorkbookActivate()
ManagementReportEntryForm.Show
End Sub
Private Sub cmdOK_Click()
'when you click the OK button, the following codes are run -
'this just enters the values that the users enter into the appropriate
fields
'below are call functions for sub procedures (listed above)
CollatingSheetFillIn
InputDateSheetFillInMonth
InputCostAlloFillInMonth
InputCostAlloFillIn
CompletedRequestedFillIn
OnHandFillIn
AOCFiguresFillIn
TrackingAssignmentsFiguresFillIn
ChartFiguresFillIn
BillableHoursFillIn
AssignedOverdueFillIn
MonthEntryFillIn
Unload ManagementReportEntryForm
End Sub
Private Sub cmdAdjustmentsLoad_Click()
Sheets("INPUT Data Sheet").Select
If cboMonth = "January" Then
Range("B6").Select
End If
If cboMonth = "February" Then
Range("C6").Select
End If
If cboMonth = "March" Then
Range("D6").Select
End If
If cboMonth = "April" Then
Range("E6").Select
End If
If cboMonth = "May" Then
Range("F6").Select
End If
If cboMonth = "June" Then
Range("G6").Select
End If
If cboMonth = "July" Then
Range("H6").Select
End If
If cboMonth = "August" Then
Range("I6").Select
End If
If cboMonth = "September" Then
Range("J6").Select
End If
If cboMonth = "October" Then
Range("K6").Select
End If
If cboMonth = "November" Then
Range("L6").Select
End If
If cboMonth = "December" Then
Range("M6").Select
End If
***I've removed the names below for privacy, but they are based on the
picklist that appears in teh userform***
If cboRepNames = "" Then
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(22).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(44).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(66).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(88).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(160).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(132).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(154).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(176).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(198).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(220).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(242).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(264).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(286).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(308).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(330).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(352).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(374).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(396).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(418).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(440).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(462).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(484).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(506).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(528).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(550).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(572).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(594).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(616).Select
AdjustmentsEntry
End If
If cboRepNames = "" Then
ActiveCell.Offset(638).Select
AdjustmentsEntry
End If
End Sub
Private Sub AdjustmentsEntry()
'this program enters the adjustment information into the billable hours
sheet
'and is repeated for every rep
ActiveCell.Value = txtAdjustmentsCommercialMidMarket.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsCorporate.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsFacilities.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsProgrammes.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsConstruction.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsGlobalEnergy.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsSurety.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsSpecialties.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsIllness.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsVacation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsLegalHoliday.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsTT.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsTG.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsQM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsCanBU.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsNA.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsProj.Value
End Sub
Private Sub ManagementReportEntryForm_Activate()
'Completed Reports Page
'this command automatically clears all fields
'in the userform before the user has entered
'anything
txtAlex.Value = ""
txtAndreanne.Value = ""
txtBill.Value = ""
txtBob.Value = ""
txtChris.Value = ""
txtClive.Value = ""
txtDave.Value = ""
txtDon.Value = ""
txtJacques.Value = ""
txtJared.Value = ""
txtJean.Value = ""
txtJim.Value = ""
txtJulie.Value = ""
txtKevin.Value = ""
txtLen.Value = ""
txtLino.Value = ""
txtMatt.Value = ""
txtMikeC.Value = ""
txtMikeM.Value = ""
txtMikeR.Value = ""
txtPascal.Value = ""
txtRaed.Value = ""
txtRene.Value = ""
txtRob.Value = ""
txtScott.Value = ""
txtSteve.Value = ""
txtStewart.Value = ""
txtSylvia.Value = ""
txtTom.Value = ""
txtTony.Value = ""
txtWael.Value = ""
txtNonRepInfo1.Value = ""
txtNonRepInfo2.Value = ""
txtNonRepInfo3.Value = ""
txtNonRepInfo4.Value = ""
txtNonRepInfo5.Value = ""
txtNonRepInfo6.Value = ""
txtNonRepInfo7.Value = ""
txtNonRepInfo8.Value = ""
txtNonRepInfo9.Value = ""
txtNonRepInfo10.Value = ""
txtNonRepInfo11.Value = ""
txtNonRepInfo12.Value = ""
txtNonRepInfo13.Value = ""
txtNonRepInfo14.Value = ""
txtNonRepInfo15.Value = ""
txtNonRep1.Value = ""
txtNonRep2.Value = ""
txtNonRep3.Value = ""
txtNonRep4.Value = ""
txtNonRep5.Value = ""
txtNonRep6.Value = ""
txtNonRep7.Value = ""
txtNonRep8.Value = ""
txtNonRep9.Value = ""
txtNonRep10.Value = ""
txtNonRep16.Value = ""
txtNonRep12.Value = ""
txtNonRep13.Value = ""
txtNonRep14.Value = ""
txtNonRep15.Value = ""
'Assigned/Overdue Reports Page
txtAlex2a.Value = ""
txtAndreanne2a.Value = ""
txtBill2a.Value = ""
txtBob2a.Value = ""
txtChris2a.Value = ""
txtClive2a.Value = ""
txtDave2a.Value = ""
txtDon2a.Value = ""
txtJacques2a.Value = ""
txtJared2a.Value = ""
txtJean2a.Value = ""
txtJim2a.Value = ""
txtJulie2a.Value = ""
txtKevin2a.Value = ""
txtLen2a.Value = ""
txtLino2a.Value = ""
txtMatt2a.Value = ""
txtMikeC2a.Value = ""
txtMikeM2a.Value = ""
txtMikeR2a.Value = ""
txtPascal2a.Value = ""
txtRaed2a.Value = ""
txtRene2a.Value = ""
txtRob2a.Value = ""
txtScott2a.Value = ""
txtSteve2a.Value = ""
txtStewart2a.Value = ""
txtSylvia2a.Value = ""
txtTom2a.Value = ""
txtTony2a.Value = ""
txtWael2a.Value = ""
txtAlex2b.Value = ""
txtAndreanne2b.Value = ""
txtBill2b.Value = ""
txtBob2b.Value = ""
txtChris2b.Value = ""
txtClive2b.Value = ""
txtDave2b.Value = ""
txtDon2b.Value = ""
txtJacques2b.Value = ""
txtJared2b.Value = ""
txtJean2b.Value = ""
txtJim2b.Value = ""
txtJulie2b.Value = ""
txtKevin2b.Value = ""
txtLen2b.Value = ""
txtLino2b.Value = ""
txtMatt2b.Value = ""
txtMikeC2b.Value = ""
txtMikeM2b.Value = ""
txtMikeR2b.Value = ""
txtPascal2b.Value = ""
txtRaed2b.Value = ""
txtRene2b.Value = ""
txtRob2b.Value = ""
txtScott2b.Value = ""
txtSteve2b.Value = ""
txtStewart2b.Value = ""
txtSylvia2b.Value = ""
txtTom2b.Value = ""
txtTony2b.Value = ""
txtWael2b.Value = ""
txtNonRepInfo1a.Value = ""
txtNonRepInfo2a.Value = ""
txtNonRepInfo3a.Value = ""
txtNonRepInfo4a.Value = ""
txtNonRepInfo5a.Value = ""
txtNonRepInfo6a.Value = ""
txtNonRepInfo7a.Value = ""
txtNonRepInfo8a.Value = ""
txtNonRepInfo9a.Value = ""
txtNonRepInfo10a.Value = ""
txtNonRepInfo11a.Value = ""
txtNonRepInfo12a.Value = ""
txtNonRepInfo13a.Value = ""
txtNonRepInfo14a.Value = ""
txtNonRepInfo15a.Value = ""
txtNonRepInfo1b.Value = ""
txtNonRepInfo2b.Value = ""
txtNonRepInfo3b.Value = ""
txtNonRepInfo4b.Value = ""
txtNonRepInfo5b.Value = ""
txtNonRepInfo6b.Value = ""
txtNonRepInfo7b.Value = ""
txtNonRepInfo8b.Value = ""
txtNonRepInfo9b.Value = ""
txtNonRepInfo10b.Value = ""
txtNonRepInfo11b.Value = ""
txtNonRepInfo12b.Value = ""
txtNonRepInfo13b.Value = ""
txtNonRepInfo14b.Value = ""
txtNonRepInfo15b.Value = ""
txtNonRep1a.Value = ""
txtNonRep2a.Value = ""
txtNonRep3a.Value = ""
txtNonRep4a.Value = ""
txtNonRep5a.Value = ""
txtNonRep6a.Value = ""
txtNonRep7a.Value = ""
txtNonRep8a.Value = ""
txtNonRep9a.Value = ""
txtNonRep10a.Value = ""
txtNonRep16a.Value = ""
txtNonRep12a.Value = ""
txtNonRep13a.Value = ""
txtNonRep14a.Value = ""
txtNonRep15a.Value = ""
txtCommercialMidMarketTime.Value = ""
txtCommercialMidMarketExpenses.Value = ""
txtConstructionTime.Value = ""
txtConstructionExpenses.Value = ""
txtCorporateTime.Value = ""
txtCorporateExpenses.Value = ""
txtClaimsTime.Value = ""
txtClaimsExpenses.Value = ""
txtGlobalEnergyTime.Value = ""
txtGlobalEnergyExpenses.Value = ""
txtChargeToReceivedUnitTime.Value = ""
txtChargeToReceivedUnitExpenses.Value = ""
txtProgrammesTime.Value = ""
txtProgrammesExpenses.Value = ""
txtSuretyTime.Value = ""
txtSuretyExpenses.Value = ""
txtSpecialtiesTime.Value = ""
txtSpecialtiesExpenses.Value = ""
txtCompletedQuote.Value = ""
txtAssignedQuote.Value = ""
txtUnassignedQuote.Value = ""
txtInspectedQuote.Value = ""
txtCompletedInitial.Value = ""
txtAssignedInitial.Value = ""
txtUnassignedInitial.Value = ""
txtInspectedInitial.Value = ""
txtCompletedReinsp.Value = ""
txtAssignedReinsp.Value = ""
txtUnassignedReinsp.Value = ""
txtInspectedReinsp.Value = ""
txtCompletedBM.Value = ""
txtAssignedBM.Value = ""
txtUnassignedBM.Value = ""
txtInspectedBM.Value = ""
txtCompletedDesk.Value = ""
txtAssignedDesk.Value = ""
txtUnassignedDesk.Value = ""
txtInspectedDesk.Value = ""
txtCompletedClaims.Value = ""
txtAssignedClaims.Value = ""
txtUnassignedClaims.Value = ""
txtInspectedClaims.Value = ""
txtCompletedAccount.Value = ""
txtAssignedAccount.Value = ""
txtUnassignedAccount.Value = ""
txtInspectedAccount.Value = ""
txtCompletedRecommendation.Value = ""
txtAssignedRecommendation.Value = ""
txtUnassignedRecommendation.Value = ""
txtInspectedRecommendation.Value = ""
txtCompletedCustomer.Value = ""
txtAssignedCustomer.Value = ""
txtUnassignedCustomer.Value = ""
txtInspectedCustomer.Value = ""
txtCompletedProject.Value = ""
txtAssignedProject.Value = ""
txtUnassignedProject.Value = ""
txtInspectedProject.Value = ""
txtAdjustmentsCommercialMidMarket.Value = ""
txtAdjustmentsCorporate.Value = ""
txtAdjustmentsClaims.Value = ""
txtAdjustmentsFacilities.Value = ""
txtAdjustmentsProgrammes.Value = ""
txtAdjustmentsConstruction.Value = ""
txtAdjustmentsGlobalEnergy.Value = ""
txtAdjustmentsSurety.Value = ""
txtAdjustmentsSpecialties.Value = ""
txtAdjustmentsIllness.Value = ""
txtAdjustmentsVacation.Value = ""
txtAdjustmentsLegalHoliday.Value = ""
txtAdjustmentsTT.Value = ""
txtAdjustmentsTG.Value = ""
txtAdjustmentsQM.Value = ""
txtAdjustmentsCanBU.Value = ""
txtAdjustmentsNA.Value = ""
txtAdjustmentsProj.Value = ""
'marks the end of the 'clear fields' command
'initializes the one dropdown menu
cboRepNames.DropDown
'cell to start off in
txtAlex.SetFocus
End Sub
Private Sub CollatingSheetFillIn()
Sheets("Collating Sheet").Select
'Completed Reports Info FILL-IN
'completed
Range("A3").Select
ActiveCell.Value = txtAlex.Value
Range("A4").Select
ActiveCell.Value = txtAndreanne.Value
Range("A5").Select
ActiveCell.Value = txtBill.Value
Range("A6").Select
ActiveCell.Value = txtBob.Value
Range("A7").Select
ActiveCell.Value = txtChris.Value
Range("A8").Select
ActiveCell.Value = txtClive.Value
Range("A9").Select
ActiveCell.Value = txtDave.Value
Range("A10").Select
ActiveCell.Value = txtDon.Value
Range("A16").Select
ActiveCell.Value = txtJacques.Value
Range("A12").Select
ActiveCell.Value = txtJared.Value
Range("A13").Select
ActiveCell.Value = txtJean.Value
Range("A14").Select
ActiveCell.Value = txtJim.Value
Range("A15").Select
ActiveCell.Value = txtJulie.Value
Range("A16").Select
ActiveCell.Value = txtKevin.Value
Range("A17").Select
ActiveCell.Value = txtLen.Value
Range("A18").Select
ActiveCell.Value = txtLino.Value
Range("A19").Select
ActiveCell.Value = txtMatt.Value
Range("A20").Select
ActiveCell.Value = txtMikeC.Value
Range("A21").Select
ActiveCell.Value = txtMikeM.Value
Range("A22").Select
ActiveCell.Value = txtMikeR.Value
Range("A23").Select
ActiveCell.Value = txtPascal.Value
Range("A24").Select
ActiveCell.Value = txtRaed.Value
Range("A25").Select
ActiveCell.Value = txtRene.Value
Range("A26").Select
ActiveCell.Value = txtRob.Value
Range("A27").Select
ActiveCell.Value = txtScott.Value
Range("A28").Select
ActiveCell.Value = txtSteve.Value
Range("A29").Select
ActiveCell.Value = txtStewart.Value
Range("A30").Select
ActiveCell.Value = txtSylvia.Value
Range("A31").Select
ActiveCell.Value = txtTom.Value
Range("A32").Select
ActiveCell.Value = txtTony.Value
Range("A33").Select
ActiveCell.Value = txtWael.Value
'completed
Range("A40").Select
ActiveCell.Value = txtNonRepInfo1.Value
Range("A41").Select
ActiveCell.Value = txtNonRepInfo2.Value
Range("A42").Select
ActiveCell.Value = txtNonRepInfo3.Value
Range("A43").Select
ActiveCell.Value = txtNonRepInfo4.Value
Range("A44").Select
ActiveCell.Value = txtNonRepInfo5.Value
Range("A45").Select
ActiveCell.Value = txtNonRepInfo6.Value
Range("A46").Select
ActiveCell.Value = txtNonRepInfo7.Value
Range("A47").Select
ActiveCell.Value = txtNonRepInfo8.Value
Range("A48").Select
ActiveCell.Value = txtNonRepInfo9.Value
Range("A49").Select
ActiveCell.Value = txtNonRepInfo10.Value
Range("A50").Select
ActiveCell.Value = txtNonRepInfo11.Value
Range("A51").Select
ActiveCell.Value = txtNonRepInfo12.Value
Range("A52").Select
ActiveCell.Value = txtNonRepInfo13.Value
Range("A53").Select
ActiveCell.Value = txtNonRepInfo14.Value
Range("A54").Select
ActiveCell.Value = txtNonRepInfo15.Value
'Assigned/Overdue Reports Info FILL-IN
'assigned
Range("B3").Select
ActiveCell.Value = txtAlex2a.Value
Range("B4").Select
ActiveCell.Value = txtAndreanne2a.Value
Range("B5").Select
ActiveCell.Value = txtBill2a.Value
Range("B6").Select
ActiveCell.Value = txtBob2a.Value
Range("B7").Select
ActiveCell.Value = txtChris2a.Value
Range("B8").Select
ActiveCell.Value = txtClive2a.Value
Range("B9").Select
ActiveCell.Value = txtDave2a.Value
Range("B10").Select
ActiveCell.Value = txtDon2a.Value
Range("B16").Select
ActiveCell.Value = txtJacques2a.Value
Range("B12").Select
ActiveCell.Value = txtJared2a.Value
Range("B13").Select
ActiveCell.Value = txtJean2a.Value
Range("B14").Select
ActiveCell.Value = txtJim2a.Value
Range("B15").Select
ActiveCell.Value = txtJulie2a.Value
Range("B16").Select
ActiveCell.Value = txtKevin2a.Value
Range("B17").Select
ActiveCell.Value = txtLen2a.Value
Range("B18").Select
ActiveCell.Value = txtLino2a.Value
Range("B19").Select
ActiveCell.Value = txtMatt2a.Value
Range("B20").Select
ActiveCell.Value = txtMikeC2a.Value
Range("B21").Select
ActiveCell.Value = txtMikeM2a.Value
Range("B22").Select
ActiveCell.Value = txtMikeR2a.Value
Range("B23").Select
ActiveCell.Value = txtPascal2a.Value
Range("B24").Select
ActiveCell.Value = txtRaed2a.Value
Range("B25").Select
ActiveCell.Value = txtRene2a.Value
Range("B26").Select
ActiveCell.Value = txtRob2a.Value
Range("B27").Select
ActiveCell.Value = txtScott2a.Value
Range("B28").Select
ActiveCell.Value = txtSteve2a.Value
Range("B29").Select
ActiveCell.Value = txtStewart2a.Value
Range("B30").Select
ActiveCell.Value = txtSylvia2a.Value
Range("B31").Select
ActiveCell.Value = txtTom2a.Value
Range("B32").Select
ActiveCell.Value = txtTony2a.Value
Range("B33").Select
ActiveCell.Value = txtWael2a.Value
'overdue
Range("C3").Select
ActiveCell.Value = txtAlex2b.Value
Range("C4").Select
ActiveCell.Value = txtAndreanne2b.Value
Range("C5").Select
ActiveCell.Value = txtBill2b.Value
Range("C6").Select
ActiveCell.Value = txtBob2b.Value
Range("C7").Select
ActiveCell.Value = txtChris2b.Value
Range("C8").Select
ActiveCell.Value = txtClive2b.Value
Range("C9").Select
ActiveCell.Value = txtDave2b.Value
Range("C10").Select
ActiveCell.Value = txtDon2b.Value
Range("C16").Select
ActiveCell.Value = txtJacques2b.Value
Range("C12").Select
ActiveCell.Value = txtJared2b.Value
Range("C13").Select
ActiveCell.Value = txtJean2b.Value
Range("C14").Select
ActiveCell.Value = txtJim2b.Value
Range("C15").Select
ActiveCell.Value = txtJulie2b.Value
Range("C16").Select
ActiveCell.Value = txtKevin2b.Value
Range("C17").Select
ActiveCell.Value = txtLen2b.Value
Range("C18").Select
ActiveCell.Value = txtLino2b.Value
Range("C19").Select
ActiveCell.Value = txtMatt2b.Value
Range("C20").Select
ActiveCell.Value = txtMikeC2b.Value
Range("C21").Select
ActiveCell.Value = txtMikeM2b.Value
Range("C22").Select
ActiveCell.Value = txtMikeR2b.Value
Range("C23").Select
ActiveCell.Value = txtPascal2b.Value
Range("C24").Select
ActiveCell.Value = txtRaed2b.Value
Range("C25").Select
ActiveCell.Value = txtRene2b.Value
Range("C26").Select
ActiveCell.Value = txtRob2b.Value
Range("C27").Select
ActiveCell.Value = txtScott2b.Value
Range("C28").Select
ActiveCell.Value = txtSteve2b.Value
Range("C29").Select
ActiveCell.Value = txtStewart2b.Value
Range("C30").Select
ActiveCell.Value = txtSylvia2b.Value
Range("C31").Select
ActiveCell.Value = txtTom2b.Value
Range("C32").Select
ActiveCell.Value = txtTony2b.Value
Range("C33").Select
ActiveCell.Value = txtWael2b.Value
'assigned
Range("B40").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("B41").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("B42").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("B43").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("B44").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("B45").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("B46").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("B47").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("B48").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("B49").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("B50").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("B51").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("B52").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("B53").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("B54").Select
ActiveCell.Value = txtNonRepInfo15a.Value
'overdue
Range("C40").Select
ActiveCell.Value = txtNonRepInfo1b.Value
Range("C41").Select
ActiveCell.Value = txtNonRepInfo2b.Value
Range("C42").Select
ActiveCell.Value = txtNonRepInfo3b.Value
Range("C43").Select
ActiveCell.Value = txtNonRepInfo4b.Value
Range("C44").Select
ActiveCell.Value = txtNonRepInfo5b.Value
Range("C45").Select
ActiveCell.Value = txtNonRepInfo6b.Value
Range("C46").Select
ActiveCell.Value = txtNonRepInfo7b.Value
Range("C47").Select
ActiveCell.Value = txtNonRepInfo8b.Value
Range("C48").Select
ActiveCell.Value = txtNonRepInfo9b.Value
Range("C49").Select
ActiveCell.Value = txtNonRepInfo10b.Value
Range("C50").Select
ActiveCell.Value = txtNonRepInfo11b.Value
Range("C51").Select
ActiveCell.Value = txtNonRepInfo12b.Value
Range("C52").Select
ActiveCell.Value = txtNonRepInfo13b.Value
Range("C53").Select
ActiveCell.Value = txtNonRepInfo14b.Value
Range("C54").Select
ActiveCell.Value = txtNonRepInfo15b.Value
End Sub
Private Sub AssignedOverdueFillIn()
Sheets("Assigned_Overdue by Rep").Select
'this copies the info in the present D & E columns on the page
'into the B & C columns, it also deletes the contents of the remaining
'cells
Range("D3:E57").Select
Selection.Copy
Range("B3:C57").Select
Range("C57").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D3:e57").Select
Selection.ClearContents
Range("d2:e2").Select
Selection.Copy
Range("b2:c2").Select
ActiveSheet.Paste
Range("d2:e2").Select
Application.CutCopyMode = False
Selection.ClearContents
'fills in the Inspected, Unassigned and Abeyanced
'fields on the ASSIGNED_OVERDUE BY REP sheet
Range("D55").Select
ActiveCell.Value = txtInspectedReports
Range("D56").Select
ActiveCell.Value = txtUnassignedReports
Range("D57").Select
ActiveCell.Value = txtAbeyanced3
'fills in the Assigned/Overdue fields for each Rep
'on the ASSIGNED_OVERDUE BY REP sheet
'assigned
Range("D3").Select
ActiveCell.Value = txtAlex2a.Value
Range("D4").Select
ActiveCell.Value = txtAndreanne2a.Value
Range("D5").Select
ActiveCell.Value = txtBill2a.Value
Range("D6").Select
ActiveCell.Value = txtBob2a.Value
Range("D7").Select
ActiveCell.Value = txtChris2a.Value
Range("D8").Select
ActiveCell.Value = txtClive2a.Value
Range("D9").Select
ActiveCell.Value = txtDave2a.Value
Range("D10").Select
ActiveCell.Value = txtDon2a.Value
Range("D16").Select
ActiveCell.Value = txtJacques2a.Value
Range("D12").Select
ActiveCell.Value = txtJared2a.Value
Range("D13").Select
ActiveCell.Value = txtJean2a.Value
Range("D14").Select
ActiveCell.Value = txtJim2a.Value
Range("D15").Select
ActiveCell.Value = txtJulie2a.Value
Range("D16").Select
ActiveCell.Value = txtKevin2a.Value
Range("D17").Select
ActiveCell.Value = txtLen2a.Value
Range("D18").Select
ActiveCell.Value = txtLino2a.Value
Range("D19").Select
ActiveCell.Value = txtMatt2a.Value
Range("D20").Select
ActiveCell.Value = txtMikeC2a.Value
Range("D21").Select
ActiveCell.Value = txtMikeM2a.Value
Range("D22").Select
ActiveCell.Value = txtMikeR2a.Value
Range("D23").Select
ActiveCell.Value = txtPascal2a.Value
Range("D24").Select
ActiveCell.Value = txtRaed2a.Value
Range("D25").Select
ActiveCell.Value = txtRene2a.Value
Range("D26").Select
ActiveCell.Value = txtRob2a.Value
Range("D27").Select
ActiveCell.Value = txtScott2a.Value
Range("D28").Select
ActiveCell.Value = txtSteve2a.Value
Range("D29").Select
ActiveCell.Value = txtStewart2a.Value
Range("D30").Select
ActiveCell.Value = txtSylvia2a.Value
Range("D31").Select
ActiveCell.Value = txtTom2a.Value
Range("D32").Select
ActiveCell.Value = txtTony2a.Value
Range("D33").Select
ActiveCell.Value = txtWael2a.Value
'overdue
Range("E3").Select
ActiveCell.Value = txtAlex2b.Value
Range("E4").Select
ActiveCell.Value = txtAndreanne2b.Value
Range("E5").Select
ActiveCell.Value = txtBill2b.Value
Range("E6").Select
ActiveCell.Value = txtBob2b.Value
Range("E7").Select
ActiveCell.Value = txtChris2b.Value
Range("E8").Select
ActiveCell.Value = txtClive2b.Value
Range("E9").Select
ActiveCell.Value = txtDave2b.Value
Range("E10").Select
ActiveCell.Value = txtDon2b.Value
Range("E16").Select
ActiveCell.Value = txtJacques2b.Value
Range("E12").Select
ActiveCell.Value = txtJared2b.Value
Range("E13").Select
ActiveCell.Value = txtJean2b.Value
Range("E14").Select
ActiveCell.Value = txtJim2b.Value
Range("E15").Select
ActiveCell.Value = txtJulie2b.Value
Range("E16").Select
ActiveCell.Value = txtKevin2b.Value
Range("E17").Select
ActiveCell.Value = txtLen2b.Value
Range("E18").Select
ActiveCell.Value = txtLino2b.Value
Range("E19").Select
ActiveCell.Value = txtMatt2b.Value
Range("E20").Select
ActiveCell.Value = txtMikeC2b.Value
Range("E21").Select
ActiveCell.Value = txtMikeM2b.Value
Range("E22").Select
ActiveCell.Value = txtMikeR2b.Value
Range("E23").Select
ActiveCell.Value = txtPascal2b.Value
Range("E24").Select
ActiveCell.Value = txtRaed2b.Value
Range("E25").Select
ActiveCell.Value = txtRene2b.Value
Range("E26").Select
ActiveCell.Value = txtRob2b.Value
Range("E27").Select
ActiveCell.Value = txtScott2b.Value
Range("E28").Select
ActiveCell.Value = txtSteve2b.Value
Range("E29").Select
ActiveCell.Value = txtStewart2b.Value
Range("E30").Select
ActiveCell.Value = txtSylvia2b.Value
Range("E31").Select
ActiveCell.Value = txtTom2b.Value
Range("E32").Select
ActiveCell.Value = txtTony2b.Value
Range("E33").Select
ActiveCell.Value = txtWael2b.Value
'assigned
Range("D34").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("D35").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("D36").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("D37").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("D38").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("D39").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("D40").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("D41").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("D42").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("D43").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("D44").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("D45").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("D46").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("D47").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("D48").Select
ActiveCell.Value = txtNonRepInfo15a.Value
'overdue
Range("E34").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("E35").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("E36").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("E37").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("E38").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("E39").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("E40").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("E41").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("E42").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("E43").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("E44").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("E45").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("E46").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("E47").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("E48").Select
ActiveCell.Value = txtNonRepInfo15a.Value
End Sub
Private Sub InputDateSheetFillInMonth()
Sheets("INPUT Data Sheet").Select
'the following is the program for the cboMonth field
'whichever month is written in the field, a corresponding
'number enters into a relevant field in the INPUT Data Sheet
If cboMonth = "January" Then
Range("O1").Select
ActiveCell.Value = "1"
End If
If cboMonth = "February" Then
Range("O1").Select
ActiveCell.Value = "2"
End If
If cboMonth = "March" Then
Range("O1").Select
ActiveCell.Value = "3"
End If
If cboMonth = "April" Then
Range("O1").Select
ActiveCell.Value = "4"
End If
If cboMonth = "May" Then
Range("O1").Select
ActiveCell.Value = "5"
End If
If cboMonth = "June" Then
Range("O1").Select
ActiveCell.Value = "6"
End If
If cboMonth = "July" Then
Range("O1").Select
ActiveCell.Value = "7"
End If
If cboMonth = "August" Then
Range("O1").Select
ActiveCell.Value = "8"
End If
If cboMonth = "September" Then
Range("O1").Select
ActiveCell.Value = "9"
End If
If cboMonth = "October" Then
Range("O1").Select
ActiveCell.Value = "10"
End If
If cboMonth = "November" Then
Range("O1").Select
ActiveCell.Value = "16"
End If
If cboMonth = "December" Then
Range("O1").Select
ActiveCell.Value = "12"
End If
'end month program
End Sub
Private Sub InputCostAlloFillInMonth()
Sheets("INPUT Cost Allo").Select
'this formula references the month figure and changes ROW C
'in the INPUT Cost Allo sheet (which needs to be taking the
'proper month's figures from the INPUT Data Sheet)
If cboMonth = "January" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!B666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!B667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!B668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!B669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!B670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!B671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!B672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!B673"
End If
If cboMonth = "February" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!C666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!C667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!C668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!C669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!C670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!C671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!C672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!C673"
End If
If cboMonth = "March" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!D666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!D667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!D668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!D669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!D670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!D671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!D672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!D673"
End If
If cboMonth = "April" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!E666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!E667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!E668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!E669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!E670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!E671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!E672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!E673"
End If
If cboMonth = "May" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!F666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!F667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!F668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!F669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!F670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!F671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!F672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!F673"
End If
If cboMonth = "June" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!G666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!G667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!G668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!G669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!G670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!G671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!G672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!G673"
End If
If cboMonth = "July" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!H666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!H667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!H668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!H669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!H670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!H671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!H672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!H673"
End If
If cboMonth = "August" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!I666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!I667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!I668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!I669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!I670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!I671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!I672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!I673"
End If
If cboMonth = "September" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!J666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!J667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!J668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!J669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!J670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!J671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!J672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!J673"
End If
If cboMonth = "October" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!K666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!K667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!K668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!K669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!K670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!K671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!K672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!K673"
End If
If cboMonth = "November" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!L666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!L667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!L668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!L669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!L670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!L671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!L672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!L673"
End If
If cboMonth = "December" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!M666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!M667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!M668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!M669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!M670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!M671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!M672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!M673"
End If
'end program
End Sub
Private Sub InputCostAlloFillIn()
'this program enters the cost allocation information into the
'INPUT cost allo sheet
Range("B4").Select
ActiveCell.Value = txtCommercialMidMarketTime.Value
Range("G4").Select
ActiveCell.Value = txtCommercialMidMarketExp.Value
Range("B12").Select
ActiveCell.Value = txtCorporateTime.Value
Range("G12").Select
ActiveCell.Value = txtCorporateExp.Value
Range("B8").Select
ActiveCell.Value = txtConstructionTime.Value
Range("G8").Select
ActiveCell.Value = txtConstructionExp.Value
Range("B6").Select
ActiveCell.Value = txtClaimsTime.Value
Range("G6").Select
ActiveCell.Value = txtClaimsExp.Value
Range("B9").Select
ActiveCell.Value = txtGlobalEnergyTime.Value
Range("G9").Select
ActiveCell.Value = txtGlobalEnergyExp.Value
Range("B13").Select
ActiveCell.Value = txtChargeToReceivedUnitTime.Value
Range("G13").Select
ActiveCell.Value = txtChargeToReceivedUnitExp.Value
Range("B7").Select
ActiveCell.Value = txtProgrammesTime.Value
Range("G7").Select
ActiveCell.Value = txtProgrammesExp.Value
Range("B10").Select
ActiveCell.Value = txtSuretyTime.Value
Range("G10").Select
ActiveCell.Value = txtSuretyExp.Value
Range("B16").Select
ActiveCell.Value = txtSpecialtiesTime.Value
Range("G16").Select
ActiveCell.Value = txtSpecialtiesExp.Value
'end program
End Sub
Private Sub CompletedRequestedFillIn()
'the following 4 sets of programs enter the figures into the
'Completed & Requested sheet. It compares the date,
'then enters the figures in the appropriate rowdepends on the
'date and SBU
Sheets("Completed & Requested").Select
CompletedRequestedFillIn_COMPLETEDFILLIN
Sheets("On Hand").Select
CompletedRequestedFillIn_ONHANDFILLIN
End Sub
Private Sub CompletedRequestedFillIn_ONHANDFILLIN()
If cboMonth = "January" Then
Range("c16").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F16").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I16").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L16").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O16").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R16").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U16").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X16").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA16").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD16").Select
ActiveCell.Value = "='Collating Sheet'!H16"
End If
If cboMonth = "February" Then
Range("c12").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F12").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I12").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L12").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O12").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R12").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U12").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X12").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA12").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD12").Select
ActiveCell.Value = "='Collating Sheet'!H12"
End If
If cboMonth = "March" Then
Range("c13").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F13").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I13").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L13").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O13").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R13").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U13").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X13").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA13").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD13").Select
ActiveCell.Value = "='Collating Sheet'!H13"
End If
If cboMonth = "April" Then
Range("c14").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F14").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I14").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L14").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O14").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R14").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U14").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X14").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA14").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD14").Select
ActiveCell.Value = "='Collating Sheet'!H14"
End If
If cboMonth = "May" Then
Range("c15").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F15").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I15").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L15").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O15").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R15").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U15").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X15").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA15").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD15").Select
ActiveCell.Value = "='Collating Sheet'!H15"
End If
If cboMonth = "June" Then
Range("c16").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F16").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I16").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L16").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O16").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R16").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U16").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X16").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA16").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD16").Select
ActiveCell.Value = "='Collating Sheet'!H16"
End If
If cboMonth = "July" Then
Range("c17").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F17").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I17").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L17").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O17").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R17").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U17").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X17").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA17").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD17").Select
ActiveCell.Value = "='Collating Sheet'!H17"
End If
If cboMonth = "August" Then
Range("c18").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F18").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I18").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L18").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O18").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R18").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U18").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X18").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA18").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD18").Select
ActiveCell.Value = "='Collating Sheet'!H18"
End If
If cboMonth = "September" Then
Range("c19").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F19").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I19").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L19").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O19").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R19").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U19").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X19").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA19").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD19").Select
ActiveCell.Value = "='Collating Sheet'!H19"
End If
If cboMonth = "October" Then
Range("c20").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F20").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I20").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L20").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O20").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R20").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U20").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X20").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA20").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD20").Select
ActiveCell.Value = "='Collating Sheet'!H20"
End If
If cboMonth = "November" Then
Range("c21").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F21").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I21").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L21").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O21").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R21").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U21").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X21").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA21").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD21").Select
ActiveCell.Value = "='Collating Sheet'!H21"
End If
If cboMonth = "December" Then
Range("c22").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F22").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I22").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L22").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O22").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R22").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U22").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X22").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA22").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD22").Select
ActiveCell.Value = "='Collating Sheet'!H22"
End If
End Sub
Private Sub CompletedRequestedFillIn_COMPLETEDFILLIN()
If cboMonth = "January" Then
Range("C8").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F8").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I8").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L8").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O8").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R8").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U8").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X8").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA8").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD8").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "February" Then
Range("C9").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F9").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I9").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L9").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O9").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R9").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U9").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X9").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA9").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD9").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "March" Then
Range("C10").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F10").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I10").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L10").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O10").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R10").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U10").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X10").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA10").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD10").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "April" Then
Range("C16").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F16").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I16").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L16").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O16").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R16").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U16").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X16").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA16").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD16").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "May" Then
Range("C12").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F12").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I12").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L12").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O12").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R12").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U12").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X12").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA12").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD12").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "June" Then
Range("C13").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F13").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I13").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L13").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O13").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R13").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U13").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X13").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA13").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD13").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "July" Then
Range("C14").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F14").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I14").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L14").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O14").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R14").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U14").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X14").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA14").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD14").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "August" Then
Range("C15").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F15").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I15").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L15").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O15").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R15").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U15").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X15").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA15").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD15").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "September" Then
Range("C16").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F16").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I16").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L16").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O16").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R16").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U16").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X16").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA16").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD16").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "October" Then
Range("C17").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F17").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I17").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L17").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O17").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R17").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U17").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X17").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA17").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD17").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "November" Then
Range("C18").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F18").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I18").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L18").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O18").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R18").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U18").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X18").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA18").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD18").Select
ActiveCell.Value = txtCompletedProject.Value
End If
If cboMonth = "December" Then
Range("C19").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F19").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I19").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L19").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O19").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R19").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U19").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X19").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA19").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD19").Select
ActiveCell.Value = txtCompletedProject.Value
End If
'end program
End Sub
Private Sub OnHandFillIn()
Sheets("Collating Sheet").Select
'Collating Sheet'!E2
Range("e2").Select
ActiveCell.Value = txtAssignedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedProject.Value
Range("F2").Select
ActiveCell.Value = txtUnassignedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedProject.Value
Range("g2").Select
ActiveCell.Value = txtInspectedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedProject.Value
End Sub
Private Sub AOCFiguresFillIn()
'this program fills in the fields on the AOC Figures sheet
'with the potential to be programmed to delete the oldest column
(working on that)*****
Sheets("AOC Figures").Select
Range("o1").Select
ActiveCell.Value = cboMonth.Value + txtYear.Value
Range("o2").Select
ActiveCell.Value = ("'Collating Sheet'!B2")
Range("o3").Select
ActiveCell.Value = ("'Collating Sheet'!C2")
Range("o4").Select
ActiveCell.Value = ("'Collating Sheet'!A2")
End Sub
Private Sub TrackingAssignmentsFiguresFillIn()
'this program fills in the fields on the AOC Figures sheet
'with the potential to be programmed to delete the oldest column
(working on that)*****
Sheets("Tracking Assignments Figures").Select
If cboMonth = "January" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C33")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F33")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I33")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L33")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O33")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R33")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U33")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X33")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA33")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD33")
End If
If cboMonth = "February" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C34")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F34")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I34")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L34")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O34")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R34")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U34")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X34")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA34")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD34")
End If
If cboMonth = "March" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C35")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F35")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I35")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L35")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O35")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R35")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U35")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X35")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA35")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD35")
End If
If cboMonth = "April" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C36")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F36")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I36")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L36")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O36")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R36")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U36")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X36")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA36")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD36")
End If
If cboMonth = "May" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C37")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F37")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I37")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L37")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O37")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R37")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U37")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X37")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA37")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD37")
End If
If cboMonth = "June" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C38")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F38")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I38")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L38")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O38")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R38")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U38")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X38")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA38")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD38")
End If
If cboMonth = "July" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C39")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F39")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I39")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L39")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O39")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R39")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U39")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X39")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA39")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD39")
End If
If cboMonth = "August" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C40")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F40")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I40")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L40")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O40")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R40")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U40")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X40")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA40")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD40")
End If
If cboMonth = "September" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C41")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F41")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I41")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L41")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O41")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R41")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U41")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X41")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA41")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD41")
End If
If cboMonth = "October" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C42")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F42")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I42")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L42")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O42")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R42")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U42")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X42")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA42")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD42")
End If
If cboMonth = "November" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C43")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F43")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I43")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L43")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O43")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R43")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U43")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X43")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA43")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD43")
End If
If cboMonth = "December" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C44")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F44")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I44")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L44")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O44")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R44")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U44")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X44")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA44")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD44")
End If
End Sub
Private Sub ChartFiguresFillIn()
Sheets("Chart Figures").Select
'this enters the completed figures from the page noted
If cboMonth = "January" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c8")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F8")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I8")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L8")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o8")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R8")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U8")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x8")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa8")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad8")
End If
If cboMonth = "February" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c9")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F9")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I9")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L9")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o9")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R9")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U9")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x9")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa9")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad9")
End If
If cboMonth = "March" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c10")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F10")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I10")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L10")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o10")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R10")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U10")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x10")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa10")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad10")
End If
If cboMonth = "April" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c16")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F16")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I16")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L16")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o16")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R16")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U16")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x16")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa16")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad16")
End If
If cboMonth = "May" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c12")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F12")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I12")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L12")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o12")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R12")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U12")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x12")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa12")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad12")
End If
If cboMonth = "June" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c13")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F13")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I13")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L13")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o13")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R13")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U13")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x13")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa13")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad13")
End If
If cboMonth = "July" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c14")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F14")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I14")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L14")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o14")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R14")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U14")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x14")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa14")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad14")
End If
If cboMonth = "August" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c15")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F15")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I15")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L15")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o15")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R15")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U15")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x15")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa15")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad15")
End If
If cboMonth = "September" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c16")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F16")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I16")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L16")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o16")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R16")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U16")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x16")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa16")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad16")
End If
If cboMonth = "October" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c17")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F17")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I17")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L17")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o17")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R17")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U17")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x17")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa17")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad17")
End If
If cboMonth = "November" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c18")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F18")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I18")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L18")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o18")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R18")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U18")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x18")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa18")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad18")
End If
If cboMonth = "December" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c19")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F19")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I19")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L19")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o19")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R19")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U19")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x19")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa19")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad19")
End If
'and this enters the # Requested figure from the page noted
If cboMonth = "January" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c33")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F33")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I33")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L33")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o33")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R33")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U33")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x33")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa33")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad33")
End If
If cboMonth = "February" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c34")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F34")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I34")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L34")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o34")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R34")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U34")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x34")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa34")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad34")
End If
If cboMonth = "March" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c35")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F35")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I35")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L35")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o35")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R35")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U35")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x35")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa35")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad35")
End If
If cboMonth = "April" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c36")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F36")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I36")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L36")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o36")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R36")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U36")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x36")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa36")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad36")
End If
If cboMonth = "May" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c37")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F37")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I37")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L37")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o37")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R37")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U37")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x37")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa37")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad37")
End If
If cboMonth = "June" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c38")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F38")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I38")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L38")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o38")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R38")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U38")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x38")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa38")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad38")
End If
If cboMonth = "July" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c39")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F39")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I39")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L39")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o39")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R39")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U39")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x39")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa39")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad39")
End If
If cboMonth = "August" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c40")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F40")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I40")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L40")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o40")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R40")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U40")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x40")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa40")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad40")
End If
If cboMonth = "September" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c41")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F41")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I41")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L41")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o41")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R41")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U41")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x41")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa41")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad41")
End If
If cboMonth = "October" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c42")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F42")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I42")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L42")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o42")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R42")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U42")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x42")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa42")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad42")
End If
If cboMonth = "November" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c43")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F43")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I43")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L43")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o43")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R43")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U43")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x43")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa43")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad43")
End If
If cboMonth = "December" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c44")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F44")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I44")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L44")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o44")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R44")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U44")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x44")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa44")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad44")
End If
End Sub
Private Sub BillableHoursFillIn()
'this program enters the figures in the billable hours
'sheet, based on the completed figures and the adjustments
'that the reps send in each month
BillableHoursCompleted
End Sub
Private Sub BillableHoursCompleted()
'enters the completed figures into the billable hours sheet
Sheets("INPUT Data Sheet").Select
If cboMonth = "January" Then
Range("b5").Select
ActiveCell.Value = txtAlex.Value
Range("b27").Select
ActiveCell.Value = txtAndreanne.Value
Range("b49").Select
ActiveCell.Value = txtMikeR.Value
Range("b71").Select
ActiveCell.Value = txtBill.Value
Range("b93").Select
ActiveCell.Value = txtBob.Value
Range("b165").Select
ActiveCell.Value = txtClive.Value
Range("b137").Select
ActiveCell.Value = txtDave.Value
Range("b159").Select
ActiveCell.Value = txtDon.Value
Range("b181").Select
ActiveCell.Value = txtLen.Value
Range("b203").Select
ActiveCell.Value = txtPascal.Value
Range("b225").Select
ActiveCell.Value = txtJacques.Value
Range("b247").Select
ActiveCell.Value = txtJean.Value
Range("b269").Select
ActiveCell.Value = txtKevin.Value
Range("b291").Select
ActiveCell.Value = txtRob.Value
Range("b313").Select
ActiveCell.Value = txtChris.Value
Range("b335").Select
ActiveCell.Value = txtMatt.Value
Range("b357").Select
ActiveCell.Value = txtMikeC.Value
Range("b379").Select
ActiveCell.Value = txtJulie.Value
Range("b401").Select
ActiveCell.Value = txtRene.Value
Range("b423").Select
ActiveCell.Value = txtScott.Value
Range("b445").Select
ActiveCell.Value = txtSteve.Value
Range("b467").Select
ActiveCell.Value = txtStewart.Value
Range("b489").Select
ActiveCell.Value = txtSylvia.Value
Range("b516").Select
ActiveCell.Value = txtTom.Value
Range("b533").Select
ActiveCell.Value = txtTony.Value
Range("b555").Select
ActiveCell.Value = txtMikeM.Value
Range("b577").Select
ActiveCell.Value = txtLino.Value
Range("b599").Select
ActiveCell.Value = txtRaed.Value
Range("b621").Select
ActiveCell.Value = txtJared.Value
Range("b643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "February" Then
Range("C5").Select
ActiveCell.Value = txtAlex.Value
Range("C27").Select
ActiveCell.Value = txtAndreanne.Value
Range("C49").Select
ActiveCell.Value = txtMikeR.Value
Range("C71").Select
ActiveCell.Value = txtBill.Value
Range("C93").Select
ActiveCell.Value = txtBob.Value
Range("C165").Select
ActiveCell.Value = txtClive.Value
Range("C137").Select
ActiveCell.Value = txtDave.Value
Range("C159").Select
ActiveCell.Value = txtDon.Value
Range("C181").Select
ActiveCell.Value = txtLen.Value
Range("C203").Select
ActiveCell.Value = txtPascal.Value
Range("C225").Select
ActiveCell.Value = txtJacques.Value
Range("C247").Select
ActiveCell.Value = txtJean.Value
Range("C269").Select
ActiveCell.Value = txtKevin.Value
Range("C291").Select
ActiveCell.Value = txtRob.Value
Range("C313").Select
ActiveCell.Value = txtChris.Value
Range("C335").Select
ActiveCell.Value = txtMatt.Value
Range("C357").Select
ActiveCell.Value = txtMikeC.Value
Range("C379").Select
ActiveCell.Value = txtJulie.Value
Range("C401").Select
ActiveCell.Value = txtRene.Value
Range("C423").Select
ActiveCell.Value = txtScott.Value
Range("C445").Select
ActiveCell.Value = txtSteve.Value
Range("C467").Select
ActiveCell.Value = txtStewart.Value
Range("C489").Select
ActiveCell.Value = txtSylvia.Value
Range("C516").Select
ActiveCell.Value = txtTom.Value
Range("C533").Select
ActiveCell.Value = txtTony.Value
Range("C555").Select
ActiveCell.Value = txtMikeM.Value
Range("C577").Select
ActiveCell.Value = txtLino.Value
Range("C599").Select
ActiveCell.Value = txtRaed.Value
Range("C621").Select
ActiveCell.Value = txtJared.Value
Range("C643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "March" Then
Range("D5").Select
ActiveCell.Value = txtAlex.Value
Range("D27").Select
ActiveCell.Value = txtAndreanne.Value
Range("D49").Select
ActiveCell.Value = txtMikeR.Value
Range("D71").Select
ActiveCell.Value = txtBill.Value
Range("D93").Select
ActiveCell.Value = txtBob.Value
Range("D165").Select
ActiveCell.Value = txtClive.Value
Range("D137").Select
ActiveCell.Value = txtDave.Value
Range("D159").Select
ActiveCell.Value = txtDon.Value
Range("D181").Select
ActiveCell.Value = txtLen.Value
Range("D203").Select
ActiveCell.Value = txtPascal.Value
Range("D225").Select
ActiveCell.Value = txtJacques.Value
Range("D247").Select
ActiveCell.Value = txtJean.Value
Range("D269").Select
ActiveCell.Value = txtKevin.Value
Range("D291").Select
ActiveCell.Value = txtRob.Value
Range("D313").Select
ActiveCell.Value = txtChris.Value
Range("D335").Select
ActiveCell.Value = txtMatt.Value
Range("D357").Select
ActiveCell.Value = txtMikeC.Value
Range("D379").Select
ActiveCell.Value = txtJulie.Value
Range("D401").Select
ActiveCell.Value = txtRene.Value
Range("D423").Select
ActiveCell.Value = txtScott.Value
Range("D445").Select
ActiveCell.Value = txtSteve.Value
Range("D467").Select
ActiveCell.Value = txtStewart.Value
Range("D489").Select
ActiveCell.Value = txtSylvia.Value
Range("D516").Select
ActiveCell.Value = txtTom.Value
Range("D533").Select
ActiveCell.Value = txtTony.Value
Range("D555").Select
ActiveCell.Value = txtMikeM.Value
Range("D577").Select
ActiveCell.Value = txtLino.Value
Range("D599").Select
ActiveCell.Value = txtRaed.Value
Range("D621").Select
ActiveCell.Value = txtJared.Value
Range("D643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "April" Then
Range("E5").Select
ActiveCell.Value = txtAlex.Value
Range("E27").Select
ActiveCell.Value = txtAndreanne.Value
Range("E49").Select
ActiveCell.Value = txtMikeR.Value
Range("E71").Select
ActiveCell.Value = txtBill.Value
Range("E93").Select
ActiveCell.Value = txtBob.Value
Range("E165").Select
ActiveCell.Value = txtClive.Value
Range("E137").Select
ActiveCell.Value = txtDave.Value
Range("E159").Select
ActiveCell.Value = txtDon.Value
Range("E181").Select
ActiveCell.Value = txtLen.Value
Range("E203").Select
ActiveCell.Value = txtPascal.Value
Range("E225").Select
ActiveCell.Value = txtJacques.Value
Range("E247").Select
ActiveCell.Value = txtJean.Value
Range("E269").Select
ActiveCell.Value = txtKevin.Value
Range("E291").Select
ActiveCell.Value = txtRob.Value
Range("E313").Select
ActiveCell.Value = txtChris.Value
Range("E335").Select
ActiveCell.Value = txtMatt.Value
Range("E357").Select
ActiveCell.Value = txtMikeC.Value
Range("E379").Select
ActiveCell.Value = txtJulie.Value
Range("E401").Select
ActiveCell.Value = txtRene.Value
Range("E423").Select
ActiveCell.Value = txtScott.Value
Range("E445").Select
ActiveCell.Value = txtSteve.Value
Range("E467").Select
ActiveCell.Value = txtStewart.Value
Range("E489").Select
ActiveCell.Value = txtSylvia.Value
Range("E516").Select
ActiveCell.Value = txtTom.Value
Range("E533").Select
ActiveCell.Value = txtTony.Value
Range("E555").Select
ActiveCell.Value = txtMikeM.Value
Range("E577").Select
ActiveCell.Value = txtLino.Value
Range("E599").Select
ActiveCell.Value = txtRaed.Value
Range("E621").Select
ActiveCell.Value = txtJared.Value
Range("E643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "May" Then
Range("F5").Select
ActiveCell.Value = txtAlex.Value
Range("F27").Select
ActiveCell.Value = txtAndreanne.Value
Range("F49").Select
ActiveCell.Value = txtMikeR.Value
Range("F71").Select
ActiveCell.Value = txtBill.Value
Range("F93").Select
ActiveCell.Value = txtBob.Value
Range("F165").Select
ActiveCell.Value = txtClive.Value
Range("F137").Select
ActiveCell.Value = txtDave.Value
Range("F159").Select
ActiveCell.Value = txtDon.Value
Range("F181").Select
ActiveCell.Value = txtLen.Value
Range("F203").Select
ActiveCell.Value = txtPascal.Value
Range("F225").Select
ActiveCell.Value = txtJacques.Value
Range("F247").Select
ActiveCell.Value = txtJean.Value
Range("F269").Select
ActiveCell.Value = txtKevin.Value
Range("F291").Select
ActiveCell.Value = txtRob.Value
Range("F313").Select
ActiveCell.Value = txtChris.Value
Range("F335").Select
ActiveCell.Value = txtMatt.Value
Range("F357").Select
ActiveCell.Value = txtMikeC.Value
Range("F379").Select
ActiveCell.Value = txtJulie.Value
Range("F401").Select
ActiveCell.Value = txtRene.Value
Range("F423").Select
ActiveCell.Value = txtScott.Value
Range("F445").Select
ActiveCell.Value = txtSteve.Value
Range("F467").Select
ActiveCell.Value = txtStewart.Value
Range("F489").Select
ActiveCell.Value = txtSylvia.Value
Range("F516").Select
ActiveCell.Value = txtTom.Value
Range("F533").Select
ActiveCell.Value = txtTony.Value
Range("F555").Select
ActiveCell.Value = txtMikeM.Value
Range("F577").Select
ActiveCell.Value = txtLino.Value
Range("F599").Select
ActiveCell.Value = txtRaed.Value
Range("F621").Select
ActiveCell.Value = txtJared.Value
Range("F643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "June" Then
Range("G5").Select
ActiveCell.Value = txtAlex.Value
Range("G27").Select
ActiveCell.Value = txtAndreanne.Value
Range("G49").Select
ActiveCell.Value = txtMikeR.Value
Range("G71").Select
ActiveCell.Value = txtBill.Value
Range("G93").Select
ActiveCell.Value = txtBob.Value
Range("G165").Select
ActiveCell.Value = txtClive.Value
Range("G137").Select
ActiveCell.Value = txtDave.Value
Range("G159").Select
ActiveCell.Value = txtDon.Value
Range("G181").Select
ActiveCell.Value = txtLen.Value
Range("G203").Select
ActiveCell.Value = txtPascal.Value
Range("G225").Select
ActiveCell.Value = txtJacques.Value
Range("G247").Select
ActiveCell.Value = txtJean.Value
Range("G269").Select
ActiveCell.Value = txtKevin.Value
Range("G291").Select
ActiveCell.Value = txtRob.Value
Range("G313").Select
ActiveCell.Value = txtChris.Value
Range("G335").Select
ActiveCell.Value = txtMatt.Value
Range("G357").Select
ActiveCell.Value = txtMikeC.Value
Range("G379").Select
ActiveCell.Value = txtJulie.Value
Range("G401").Select
ActiveCell.Value = txtRene.Value
Range("G423").Select
ActiveCell.Value = txtScott.Value
Range("G445").Select
ActiveCell.Value = txtSteve.Value
Range("G467").Select
ActiveCell.Value = txtStewart.Value
Range("G489").Select
ActiveCell.Value = txtSylvia.Value
Range("G516").Select
ActiveCell.Value = txtTom.Value
Range("G533").Select
ActiveCell.Value = txtTony.Value
Range("G555").Select
ActiveCell.Value = txtMikeM.Value
Range("G577").Select
ActiveCell.Value = txtLino.Value
Range("G599").Select
ActiveCell.Value = txtRaed.Value
Range("G621").Select
ActiveCell.Value = txtJared.Value
Range("G643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "July" Then
Range("H5").Select
ActiveCell.Value = txtAlex.Value
Range("H27").Select
ActiveCell.Value = txtAndreanne.Value
Range("H49").Select
ActiveCell.Value = txtMikeR.Value
Range("H71").Select
ActiveCell.Value = txtBill.Value
Range("H93").Select
ActiveCell.Value = txtBob.Value
Range("H165").Select
ActiveCell.Value = txtClive.Value
Range("H137").Select
ActiveCell.Value = txtDave.Value
Range("H159").Select
ActiveCell.Value = txtDon.Value
Range("H181").Select
ActiveCell.Value = txtLen.Value
Range("H203").Select
ActiveCell.Value = txtPascal.Value
Range("H225").Select
ActiveCell.Value = txtJacques.Value
Range("H247").Select
ActiveCell.Value = txtJean.Value
Range("H269").Select
ActiveCell.Value = txtKevin.Value
Range("H291").Select
ActiveCell.Value = txtRob.Value
Range("H313").Select
ActiveCell.Value = txtChris.Value
Range("H335").Select
ActiveCell.Value = txtMatt.Value
Range("H357").Select
ActiveCell.Value = txtMikeC.Value
Range("H379").Select
ActiveCell.Value = txtJulie.Value
Range("H401").Select
ActiveCell.Value = txtRene.Value
Range("H423").Select
ActiveCell.Value = txtScott.Value
Range("H445").Select
ActiveCell.Value = txtSteve.Value
Range("H467").Select
ActiveCell.Value = txtStewart.Value
Range("H489").Select
ActiveCell.Value = txtSylvia.Value
Range("H516").Select
ActiveCell.Value = txtTom.Value
Range("H533").Select
ActiveCell.Value = txtTony.Value
Range("H555").Select
ActiveCell.Value = txtMikeM.Value
Range("H577").Select
ActiveCell.Value = txtLino.Value
Range("H599").Select
ActiveCell.Value = txtRaed.Value
Range("H621").Select
ActiveCell.Value = txtJared.Value
Range("H643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "August" Then
Range("I5").Select
ActiveCell.Value = txtAlex.Value
Range("I27").Select
ActiveCell.Value = txtAndreanne.Value
Range("I49").Select
ActiveCell.Value = txtMikeR.Value
Range("I71").Select
ActiveCell.Value = txtBill.Value
Range("I93").Select
ActiveCell.Value = txtBob.Value
Range("I165").Select
ActiveCell.Value = txtClive.Value
Range("I137").Select
ActiveCell.Value = txtDave.Value
Range("I159").Select
ActiveCell.Value = txtDon.Value
Range("I181").Select
ActiveCell.Value = txtLen.Value
Range("I203").Select
ActiveCell.Value = txtPascal.Value
Range("I225").Select
ActiveCell.Value = txtJacques.Value
Range("I247").Select
ActiveCell.Value = txtJean.Value
Range("I269").Select
ActiveCell.Value = txtKevin.Value
Range("I291").Select
ActiveCell.Value = txtRob.Value
Range("I313").Select
ActiveCell.Value = txtChris.Value
Range("I335").Select
ActiveCell.Value = txtMatt.Value
Range("I357").Select
ActiveCell.Value = txtMikeC.Value
Range("I379").Select
ActiveCell.Value = txtJulie.Value
Range("I401").Select
ActiveCell.Value = txtRene.Value
Range("I423").Select
ActiveCell.Value = txtScott.Value
Range("I445").Select
ActiveCell.Value = txtSteve.Value
Range("I467").Select
ActiveCell.Value = txtStewart.Value
Range("I489").Select
ActiveCell.Value = txtSylvia.Value
Range("I516").Select
ActiveCell.Value = txtTom.Value
Range("I533").Select
ActiveCell.Value = txtTony.Value
Range("I555").Select
ActiveCell.Value = txtMikeM.Value
Range("I577").Select
ActiveCell.Value = txtLino.Value
Range("I599").Select
ActiveCell.Value = txtRaed.Value
Range("I621").Select
ActiveCell.Value = txtJared.Value
Range("I643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "September" Then
Range("J5").Select
ActiveCell.Value = txtAlex.Value
Range("J27").Select
ActiveCell.Value = txtAndreanne.Value
Range("J49").Select
ActiveCell.Value = txtMikeR.Value
Range("J71").Select
ActiveCell.Value = txtBill.Value
Range("J93").Select
ActiveCell.Value = txtBob.Value
Range("J165").Select
ActiveCell.Value = txtClive.Value
Range("J137").Select
ActiveCell.Value = txtDave.Value
Range("J159").Select
ActiveCell.Value = txtDon.Value
Range("J181").Select
ActiveCell.Value = txtLen.Value
Range("J203").Select
ActiveCell.Value = txtPascal.Value
Range("J225").Select
ActiveCell.Value = txtJacques.Value
Range("J247").Select
ActiveCell.Value = txtJean.Value
Range("J269").Select
ActiveCell.Value = txtKevin.Value
Range("J291").Select
ActiveCell.Value = txtRob.Value
Range("J313").Select
ActiveCell.Value = txtChris.Value
Range("J335").Select
ActiveCell.Value = txtMatt.Value
Range("J357").Select
ActiveCell.Value = txtMikeC.Value
Range("J379").Select
ActiveCell.Value = txtJulie.Value
Range("J401").Select
ActiveCell.Value = txtRene.Value
Range("J423").Select
ActiveCell.Value = txtScott.Value
Range("J445").Select
ActiveCell.Value = txtSteve.Value
Range("J467").Select
ActiveCell.Value = txtStewart.Value
Range("J489").Select
ActiveCell.Value = txtSylvia.Value
Range("J516").Select
ActiveCell.Value = txtTom.Value
Range("J533").Select
ActiveCell.Value = txtTony.Value
Range("J555").Select
ActiveCell.Value = txtMikeM.Value
Range("J577").Select
ActiveCell.Value = txtLino.Value
Range("J599").Select
ActiveCell.Value = txtRaed.Value
Range("J621").Select
ActiveCell.Value = txtJared.Value
Range("J643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "October" Then
Range("K5").Select
ActiveCell.Value = txtAlex.Value
Range("K27").Select
ActiveCell.Value = txtAndreanne.Value
Range("K49").Select
ActiveCell.Value = txtMikeR.Value
Range("K71").Select
ActiveCell.Value = txtBill.Value
Range("K93").Select
ActiveCell.Value = txtBob.Value
Range("K165").Select
ActiveCell.Value = txtClive.Value
Range("K137").Select
ActiveCell.Value = txtDave.Value
Range("K159").Select
ActiveCell.Value = txtDon.Value
Range("K181").Select
ActiveCell.Value = txtLen.Value
Range("K203").Select
ActiveCell.Value = txtPascal.Value
Range("K225").Select
ActiveCell.Value = txtJacques.Value
Range("K247").Select
ActiveCell.Value = txtJean.Value
Range("K269").Select
ActiveCell.Value = txtKevin.Value
Range("K291").Select
ActiveCell.Value = txtRob.Value
Range("K313").Select
ActiveCell.Value = txtChris.Value
Range("K335").Select
ActiveCell.Value = txtMatt.Value
Range("K357").Select
ActiveCell.Value = txtMikeC.Value
Range("K379").Select
ActiveCell.Value = txtJulie.Value
Range("K401").Select
ActiveCell.Value = txtRene.Value
Range("K423").Select
ActiveCell.Value = txtScott.Value
Range("K445").Select
ActiveCell.Value = txtSteve.Value
Range("K467").Select
ActiveCell.Value = txtStewart.Value
Range("K489").Select
ActiveCell.Value = txtSylvia.Value
Range("K516").Select
ActiveCell.Value = txtTom.Value
Range("K533").Select
ActiveCell.Value = txtTony.Value
Range("K555").Select
ActiveCell.Value = txtMikeM.Value
Range("K577").Select
ActiveCell.Value = txtLino.Value
Range("K599").Select
ActiveCell.Value = txtRaed.Value
Range("K621").Select
ActiveCell.Value = txtJared.Value
Range("K643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "November" Then
Range("L5").Select
ActiveCell.Value = txtAlex.Value
Range("L27").Select
ActiveCell.Value = txtAndreanne.Value
Range("L49").Select
ActiveCell.Value = txtMikeR.Value
Range("L71").Select
ActiveCell.Value = txtBill.Value
Range("L93").Select
ActiveCell.Value = txtBob.Value
Range("L165").Select
ActiveCell.Value = txtClive.Value
Range("L137").Select
ActiveCell.Value = txtDave.Value
Range("L159").Select
ActiveCell.Value = txtDon.Value
Range("L181").Select
ActiveCell.Value = txtLen.Value
Range("L203").Select
ActiveCell.Value = txtPascal.Value
Range("L225").Select
ActiveCell.Value = txtJacques.Value
Range("L247").Select
ActiveCell.Value = txtJean.Value
Range("L269").Select
ActiveCell.Value = txtKevin.Value
Range("L291").Select
ActiveCell.Value = txtRob.Value
Range("L313").Select
ActiveCell.Value = txtChris.Value
Range("L335").Select
ActiveCell.Value = txtMatt.Value
Range("L357").Select
ActiveCell.Value = txtMikeC.Value
Range("L379").Select
ActiveCell.Value = txtJulie.Value
Range("L401").Select
ActiveCell.Value = txtRene.Value
Range("L423").Select
ActiveCell.Value = txtScott.Value
Range("L445").Select
ActiveCell.Value = txtSteve.Value
Range("L467").Select
ActiveCell.Value = txtStewart.Value
Range("L489").Select
ActiveCell.Value = txtSylvia.Value
Range("L516").Select
ActiveCell.Value = txtTom.Value
Range("L533").Select
ActiveCell.Value = txtTony.Value
Range("L555").Select
ActiveCell.Value = txtMikeM.Value
Range("L577").Select
ActiveCell.Value = txtLino.Value
Range("L599").Select
ActiveCell.Value = txtRaed.Value
Range("L621").Select
ActiveCell.Value = txtJared.Value
Range("L643").Select
ActiveCell.Value = txtWael.Value
If cboMonth = "December" Then
Range("M5").Select
ActiveCell.Value = txtAlex.Value
Range("M27").Select
ActiveCell.Value = txtAndreanne.Value
Range("M49").Select
ActiveCell.Value = txtMikeR.Value
Range("M71").Select
ActiveCell.Value = txtBill.Value
Range("M93").Select
ActiveCell.Value = txtBob.Value
Range("M165").Select
ActiveCell.Value = txtClive.Value
Range("M137").Select
ActiveCell.Value = txtDave.Value
Range("M159").Select
ActiveCell.Value = txtDon.Value
Range("M181").Select
ActiveCell.Value = txtLen.Value
Range("M203").Select
ActiveCell.Value = txtPascal.Value
Range("M225").Select
ActiveCell.Value = txtJacques.Value
Range("M247").Select
ActiveCell.Value = txtJean.Value
Range("M269").Select
ActiveCell.Value = txtKevin.Value
Range("M291").Select
ActiveCell.Value = txtRob.Value
Range("M313").Select
ActiveCell.Value = txtChris.Value
Range("M335").Select
ActiveCell.Value = txtMatt.Value
Range("M357").Select
ActiveCell.Value = txtMikeC.Value
Range("M379").Select
ActiveCell.Value = txtJulie.Value
Range("M401").Select
ActiveCell.Value = txtRene.Value
Range("M423").Select
ActiveCell.Value = txtScott.Value
Range("M445").Select
ActiveCell.Value = txtSteve.Value
Range("M467").Select
ActiveCell.Value = txtStewart.Value
Range("M489").Select
ActiveCell.Value = txtSylvia.Value
Range("M516").Select
ActiveCell.Value = txtTom.Value
Range("M533").Select
ActiveCell.Value = txtTony.Value
Range("M555").Select
ActiveCell.Value = txtMikeM.Value
Range("M577").Select
ActiveCell.Value = txtLino.Value
Range("M599").Select
ActiveCell.Value = txtRaed.Value
Range("M621").Select
ActiveCell.Value = txtJared.Value
Range("M643").Select
ActiveCell.Value = txtWael.Value
End Sub
Private Sub MonthEntryFillIn()
Sheets("INPUT Data Sheet").Select
Range("L2").Select
If cboMonth = "January" Then
ActiveCell.Value = "January"
End If
If cboMonth = "February" Then
ActiveCell.Value = "February"
End If
If cboMonth = "March" Then
ActiveCell.Value = "March"
End If
If cboMonth = "April" Then
ActiveCell.Value = "April"
End If
If cboMonth = "May" Then
ActiveCell.Value = "May"
End If
If cboMonth = "June" Then
ActiveCell.Value = "June"
End If
If cboMonth = "July" Then
ActiveCell.Value = "July"
End If
If cboMonth = "August" Then
ActiveCell.Value = "August"
End If
If cboMonth = "September" Then
ActiveCell.Value = "September"
End If
If cboMonth = "October" Then
ActiveCell.Value = "October"
End If
If cboMonth = "November" Then
ActiveCell.Value = "November"
End If
If cboMonth = "December" Then
ActiveCell.Value = "December"
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub