Sub loopThrough()
Dim i, j, ctr As Integer
Dim r(0 To 4, 0 To 4) As Long
Dim r2(0 To 4, 0 To 4) As Long
ctr = 1
For i = 0 To 4
For j = 0 To 4
Range("Run").Value = ctr
Calculate
Src = Sheets("Model").Range("AP42:AP1041").Value
Range(Sheets("simulations").Cells(2, ctr)).Value = Sheets("Model").Range("AP42:AP1041").Value
r(i, j) = Range("c").Value
r2(i, j) = Range("s").Value
ctr = ctr + 1
Next j
Next i
End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.