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.
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
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?