G
Guest
Would someone tell me how to merge my headers in my Excel spreadsheet
The first header: "Media Movement Office Year to Date Totals for " &
Year(Me.dteInput) begins in cell A1 and ends in cell D1
The second header:"Run Date: " & Date begins in row 2 cell A1 needs to
be centered as does the first header.
With wks
.Cells(1, 1).Value = "Media Movement Office Year to Date Totals for " &
Year(Me.dteInput)
.Cells(1, 1).ColumnWidth = 24
.Cells(2, 1).Value = "Run Date: " & Date
.Cells(4, 3).Value = "Jan"
.Cells(4, 4).Value = "Feb"
.Cells(4, 5).Value = "Mar"
.Cells(4, 6).Value = "Apr"
.Cells(4, 7).Value = "May"
.Cells(4, 8).Value = "Jun"
.Cells(4, 9).Value = "Jul"
.Cells(4, 10).Value = "Aug"
.Cells(4, 11).Value = "Sep"
.Cells(4, 12).Value = "Oct"
.Cells(4, 13).Value = "Nov"
.Cells(4, 14).Value = "Dec"
.Cells(6, 1).Value = "Errant MMO Delivery"
.Cells(7, 1).Value = "Vendor Consulted"
.Cells(8, 1).Value = "Internal Consultations"
.Cells(9, 1).Value = "Pieces Moved"
.Cells(10, 1).Value = "Units Moved"
.Cells(11, 1).Value = "Concerns and Issues"
.Cells(12, 1).Value = "Total MMO Cases"
.Cells(13, 1).Value = "Closed Moves"
.Cells(14, 1).Value = "Pending Moves"
.Cells(16, 1).Value = "Grand Total MMO Cases"
End With
The first header: "Media Movement Office Year to Date Totals for " &
Year(Me.dteInput) begins in cell A1 and ends in cell D1
The second header:"Run Date: " & Date begins in row 2 cell A1 needs to
be centered as does the first header.
With wks
.Cells(1, 1).Value = "Media Movement Office Year to Date Totals for " &
Year(Me.dteInput)
.Cells(1, 1).ColumnWidth = 24
.Cells(2, 1).Value = "Run Date: " & Date
.Cells(4, 3).Value = "Jan"
.Cells(4, 4).Value = "Feb"
.Cells(4, 5).Value = "Mar"
.Cells(4, 6).Value = "Apr"
.Cells(4, 7).Value = "May"
.Cells(4, 8).Value = "Jun"
.Cells(4, 9).Value = "Jul"
.Cells(4, 10).Value = "Aug"
.Cells(4, 11).Value = "Sep"
.Cells(4, 12).Value = "Oct"
.Cells(4, 13).Value = "Nov"
.Cells(4, 14).Value = "Dec"
.Cells(6, 1).Value = "Errant MMO Delivery"
.Cells(7, 1).Value = "Vendor Consulted"
.Cells(8, 1).Value = "Internal Consultations"
.Cells(9, 1).Value = "Pieces Moved"
.Cells(10, 1).Value = "Units Moved"
.Cells(11, 1).Value = "Concerns and Issues"
.Cells(12, 1).Value = "Total MMO Cases"
.Cells(13, 1).Value = "Closed Moves"
.Cells(14, 1).Value = "Pending Moves"
.Cells(16, 1).Value = "Grand Total MMO Cases"
End With