Re: 2-dimensional Date Range With Dynamic Copy And Paste
Hm. I have a working version of what I was talking about earlier. I was hoping to make it more dynamic--such that the system would update the cells I've been rambling on about for the past week whenever the date range changes. Instead, I have the following Macro which is called when the system is told to make a report.
Code
Sub SiteDeptRefresh()
Application.ScreenUpdating = False
TempVal = 0
Workings.Visible = xlSheetVisible
MQYreport_TEMPLATE.Select
MaxDept = Cells(2, 18)
MaxSite = Cells(2, 17)
For Site = 0 To MaxSite
For Dept = 0 To MaxDept
Workings.Select
Range("Workings_DeptSiteTotals").Select
TempVal = ActiveCell.Offset(Site, Dept).Value
MQYreport_TEMPLATE.Select
Range("MQY_DeptSiteTotals").Select
ActiveCell.Offset(Site, Dept).Value = TempVal
Next Dept
Next Site
End Sub
Display More
It works, but it's not exactly what I was looking for. Perhaps this, and all of the above posts/replies/samples/examples/information will help?