Free for PREMIUM members
Dim rngSource As Excel.Range
Dim rngTarget As Excel.Range
Dim rngPreCalc As Excel.Range
Dim rngCalculated As Excel.Range
Dim i As Long
' define no of rows and cols here, so it only neds to be changed once
Const lngRows As Long = 6, lngCols As Long = 3
' set data-dependent locations
Set rngSource = ActiveSheet.Range("C5").Resize(lngRows, lngCols)
Set rngTarget = rngSource.Offset(19, 0)
' again the location of these will probably be different in your solution
Set rngPreCalc = ActiveSheet.Range("P5").Resize(lngRows, lngCols)
Set rngCalculated = rngPreCalc.Offset(9, 0)
For i = 1 To 3 ' this is dependent on your data
rngPreCalc.Value = rngSource.Value ' copy source to staging area
rngTarget.Value = rngCalculated.Value ' copy calculated figures to final area
' move to the next source and target locations (offset dependent on layout)
Set rngSource = rngSource.Offset(0, 4)
Set rngTarget = rngTarget.Offset(0, 4)
Open in new window
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.