Set the values of set of ranges to zero then restore previous valu

C

caroline

Hello,

Dim i As Long
For i = 0 To 49
Set Rg = Range(Range("Country1").Offset(i * 75 + 20, 6),
Range("Country1").Offset(i * 75 + 23, 23))
Next

I would like to set the value of Rg to Zero, copy and paste the result of
the calculation, then restore the previous values of Rg.

Any idea?
Thanks
 
C

CurlyDave

Hello,

Dim i As Long
For i = 0 To 49
                Set Rg = Range(Range("Country1").Offset(i * 75 + 20, 6),
Range("Country1").Offset(i * 75 + 23, 23))                  
Next

I would like to set the value of Rg to Zero, copy and paste the result of
the calculation, then restore the previous values of Rg.

Any idea?
Thanks
Click to expand...

Nope, you description is hard to follow, please elaborate.
 
Top