PHP Code:
'Table5 -Top Incident(IIT) Table format
PortedData.Worksheets("Sheet1").Range("A45:E52").Borders.LineStyle = xlContinuous
PortedData.Worksheets("Sheet1").Range("A45, B45, C45, D45, E45").Interior.Color = RGB(192, 192, 192)
PortedData.Worksheets("Sheet1").Range("A45, A46, A47, A48, A49, A50, A51, A52, B45, B46, B47, B48, B49, B50, B51, B52, C45, C46, C47, C48, C49, C50, C51, C52, D45, E45").HorizontalAlignment = xlCenter
PortedData.Worksheets("Sheet1").Columns("A").ColumnWidth = 30.14
PortedData.Worksheets("Sheet1").Columns("B").ColumnWidth = 16.14
PortedData.Worksheets("Sheet1").Columns("C").ColumnWidth = 25.57
PortedData.Worksheets("Sheet1").Columns("D").ColumnWidth = 30.14
PortedData.Worksheets("Sheet1").Columns("E").ColumnWidth = 30.14
'Table6 -Top Service Requests(IIT) Table format
PortedData.Worksheets("Sheet1").Range("A57:D59").Borders.LineStyle = xlContinuous
PortedData.Worksheets("Sheet1").Range("A57, B57, C57, D57").Interior.Color = RGB(192, 192, 192)
PortedData.Worksheets("Sheet1").Range("A57, A58, A59, B57, B58, B59, C57, C58, C59, D57, D58, D59").HorizontalAlignment = xlCenter
PortedData.Worksheets("Sheet1").Columns("A").ColumnWidth = 30.14
PortedData.Worksheets("Sheet1").Columns("B").ColumnWidth = 25.14
PortedData.Worksheets("Sheet1").Columns("C").ColumnWidth = 25.57
PortedData.Worksheets("Sheet1").Columns("D").ColumnWidth = 30.14
'Table7 -Service Request Tickets(AAO) Table format
PortedData.Worksheets("Sheet1").Range("A64:C69").Borders.LineStyle = xlContinuous
PortedData.Worksheets("Sheet1").Range("A64, B64, C64").Interior.Color = RGB(192, 192, 192)
PortedData.Worksheets("Sheet1").Range("A64, A65, A66, A67, A68, A69, B64, B65, B66, B67, B68, B69, C64, C65, C66, C67, C68, C69").HorizontalAlignment = xlCenter
PortedData.Worksheets("Sheet1").Columns("A").ColumnWidth = 34.14
PortedData.Worksheets("Sheet1").Columns("B").ColumnWidth = 25.14
PortedData.Worksheets("Sheet1").Columns("C").ColumnWidth = 25.57
'Table8 -Incident Response(AAO) Table format
PortedData.Worksheets("Sheet1").Range("A74:C79").Borders.LineStyle = xlContinuous
PortedData.Worksheets("Sheet1").Range("A74, B74, C74").Interior.Color = RGB(192, 192, 192)
PortedData.Worksheets("Sheet1").Range("A74, A75, A76, A77, A78, A79, B74, B75, B76, B77, B78, B79, C74, C75, C76, C77, C78, C79").HorizontalAlignment = xlCenter
PortedData.Worksheets("Sheet1").Columns("A").ColumnWidth = 34.14
PortedData.Worksheets("Sheet1").Columns("B").ColumnWidth = 25.14
PortedData.Worksheets("Sheet1").Columns("C").ColumnWidth = 25.57
With PortedData
RowCount = .Worksheets("Sheet1").Range("A1")
With .Worksheets("Sheet1").Range("A1")
.Offset(0, 0) = "Appendix"
'Table1 -Service Desk Monitoring Cell values
.Offset(3, 0) = "Service Desk Monitoring"
.Offset(5, 0) = "Date"
.Offset(5, 1) = "Accepted Calls"
.Offset(5, 2) = "Dropped Calls"
.Offset(6, 0) = DateRange1
.Offset(7, 0) = DateRange2
.Offset(8, 0) = DateRange3
.Offset(9, 0) = DateRange4
.Offset(10, 0) = DateRange5
.Offset(6, 1) = AcceptedCalls1
.Offset(7, 1) = AcceptedCalls2
.Offset(8, 1) = AcceptedCalls3
.Offset(9, 1) = AcceptedCalls4
.Offset(10, 1) = AcceptedCalls5
.Offset(6, 2) = DroppedCalls
.Offset(7, 2) = DroppedCalls
.Offset(8, 2) = DroppedCalls
.Offset(9, 2) = DroppedCalls
.Offset(10, 2) = DroppedCalls
'Table2 -Customer Reporting Source Cell values
.Offset(13, 0) = "Customer Reporting Source"
.Offset(15, 0) = "Customer Reporting Source"
.Offset(15, 1) = "No. of Tickets"
.Offset(16, 0) = "Phone Calls"
.Offset(17, 0) = "Walk-in"
.Offset(18, 0) = "Self Help Portal"
.Offset(16, 1) = Tickets1
.Offset(17, 1) = Tickets2
.Offset(18, 1) = Tickets3
'Table3 -Service Request tickets(IIT) Cell values
.Offset(21, 0) = "Service Request Tickets (IIT)"
.Offset(23, 0) = "Date"
.Offset(23, 1) = "No. of Tickets"
.Offset(23, 2) = "%Meet Response Time"
.Offset(24, 0) = SRDate1
.Offset(25, 0) = SRDate2
.Offset(26, 0) = SRDate3
.Offset(27, 0) = SRDate4
.Offset(28, 0) = SRDate5
.Offset(29, 0) = "BYOD & IIT"
.Offset(24, 1) = SRTickets1
.Offset(25, 1) = SRTickets2
.Offset(26, 1) = SRTickets3
.Offset(27, 1) = SRTickets4
.Offset(28, 1) = SRTickets5
.Offset(29, 1) = TotalSRTickets
.Offset(24, 2) = SRResponseTime
.Offset(25, 2) = SRResponseTime
.Offset(26, 2) = SRResponseTime
.Offset(27, 2) = SRResponseTime
.Offset(28, 2) = SRResponseTime
'Table4 -Incident Tickets(IIT) Cell values
.Offset(32, 0) = "Incident Tickets (IIT)"
.Offset(34, 0) = "Date"
.Offset(34, 1) = "No. of Tickets"
.Offset(34, 2) = "%Meet Response Time"
.Offset(35, 0) = INDate1
.Offset(36, 0) = INDate2
.Offset(37, 0) = INDate3
.Offset(38, 0) = INDate4
.Offset(39, 0) = INDate5
.Offset(35, 1) = INTickets1
.Offset(36, 1) = INTickets2
.Offset(37, 1) = INTickets3
.Offset(38, 1) = INTickets4
.Offset(39, 1) = INTickets5
.Offset(35, 2) = INResponseTime
.Offset(36, 2) = INResponseTime
.Offset(37, 2) = INResponseTime
.Offset(38, 2) = INResponseTime
.Offset(39, 2) = INResponseTime
'Table5 Top Incidents(IIT) Cell values
.Offset(42, 0) = "Top Incidents (IIT)"
.Offset(44, 0) = "No"
.Offset(45, 0) = "1"
.Offset(46, 0) = ""
.Offset(47, 0) = ""
.Offset(48, 0) = ""
.Offset(49, 0) = "2"
.Offset(50, 0) = ""
.Offset(51, 0) = ""
.Offset(44, 1) = "Issue"
.Offset(45, 1) = "Issue1"
.Offset(46, 1) = ""
.Offset(47, 1) = ""
.Offset(48, 1) = ""
.Offset(49, 1) = "Issue2"
.Offset(50, 1) = ""
.Offset(51, 1) = ""
.Offset(44, 2) = "Cases"
.Offset(45, 2) = "NumOfCases1"
.Offset(46, 2) = ""
.Offset(47, 2) = ""
.Offset(48, 2) = ""
.Offset(49, 2) = "NumOfCases2"
.Offset(50, 2) = ""
.Offset(51, 2) = ""
.Offset(44, 3) = "Symptom"
.Offset(45, 3) = ""
.Offset(46, 3) = ""
.Offset(47, 3) = ""
.Offset(48, 3) = ""
.Offset(49, 3) = ""
.Offset(50, 3) = ""
.Offset(51, 3) = ""
.Offset(44, 4) = "Remarks"
.Offset(45, 4) = ""
.Offset(46, 4) = ""
.Offset(47, 4) = ""
.Offset(48, 4) = ""
.Offset(49, 4) = ""
.Offset(50, 4) = ""
.Offset(51, 4) = ""
'Table6 Top Service Requests(IIT) Cell values
.Offset(54, 0) = "Top Service Requests(IIT)"
.Offset(56, 0) = "No"
.Offset(57, 0) = "1"
.Offset(58, 0) = "2"
.Offset(56, 1) = "Types of Service Request"
.Offset(57, 1) = "1"
.Offset(58, 1) = "2"
.Offset(56, 2) = "Cases"
.Offset(57, 2) = ""
.Offset(58, 2) = ""
.Offset(56, 3) = "Remarks"
.Offset(57, 3) = ""
.Offset(58, 3) = ""
'Table7 Service Request Tickets(AAO) Cell values
.Offset(61, 0) = "Service Request Tickets(ARM)"
.Offset(63, 0) = "Date"
.Offset(64, 0) = AAOSRdate1
.Offset(65, 0) = AAOSRdate2
.Offset(66, 0) = AAOSRdate3
.Offset(67, 0) = AAOSRdate4
.Offset(68, 0) = AAOSRdate5
.Offset(63, 1) = "No. of Tickets"
.Offset(64, 1) = AAOSRtix1
.Offset(65, 1) = AAOSRtix2
.Offset(66, 1) = AAOSRtix3
.Offset(67, 1) = AAOSRtix4
.Offset(68, 1) = AAOSRtix5
.Offset(63, 2) = "%Meet Response Time"
.Offset(64, 2) = AAOSRrt
.Offset(65, 2) = AAOSRrt
.Offset(66, 2) = AAOSRrt
.Offset(67, 2) = AAOSRrt
.Offset(68, 2) = AAOSRrt
'Table8 Service Request Tickets(AAO) Cell values
.Offset(71, 0) = "Incident Response(ARM)"
.Offset(73, 0) = "Date"
.Offset(74, 0) = AAOINdate1
.Offset(75, 0) = AAOINdate2
.Offset(76, 0) = AAOINdate3
.Offset(77, 0) = AAOINdate4
.Offset(78, 0) = AAOINdate5
.Offset(73, 1) = "No. of Tickets"
.Offset(74, 1) = AAOINtix1
.Offset(75, 1) = AAOINtix2
.Offset(76, 1) = AAOINtix3
.Offset(77, 1) = AAOINtix4
.Offset(78, 1) = AAOINtix5
.Offset(73, 2) = "No. of Tickets"
.Offset(74, 2) = AAOSRrt
.Offset(75, 2) = AAOSRrt
.Offset(76, 2) = AAOSRrt
.Offset(77, 2) = AAOSRrt
.Offset(78, 2) = AAOSRrt
End With
End With
Bookmarks