Help to create a macro
 

Hi,

I need to create a macro that calculates a value based on several values in
a range. The result from the calculations shuld be copied into a new column
with the same range. I have tried to record this operation but I need help to
make the macro repeat the operations throug the range. I have pasted the code
from my recorded macro:

Range("B2").Select
ActiveCell.FormulaR1C1 = "=R[1]C[8]"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C[6]"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=R[11]C[-9]"
Range("L3").Select
ActiveCell.FormulaR1C1 = "=R[8]C[-10]"
End sub

I copy values from J3:J39 to be used in B2. Then I copy values from I3:I39
to be used in C4. From this i get two results that i want to be copied to new
columns in the same range. The results is genereted in cells B11 and B14, and
is copied into the range K3:K39 and L3:L39.

Thank you

Cornelius

Help to create a macro
 

.. I copy values from J3:J39 to be used in B2 ..
Be more specific on this. Say it in a different way. Dave D-C

Cornelius wrote:
Hi,

I need to create a macro that calculates a value based on several values in
a range. The result from the calculations shuld be copied into a new column
with the same range. I have tried to record this operation but I need help to
make the macro repeat the operations throug the range. I have pasted the code
from my recorded macro:

Range("B2").Select
ActiveCell.FormulaR1C1 = "=R[1]C[8]"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C[6]"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=R[11]C[-9]"
Range("L3").Select
ActiveCell.FormulaR1C1 = "=R[8]C[-10]"
End sub

I copy values from J3:J39 to be used in B2. Then I copy values from I3:I39
to be used in C4. From this i get two results that i want to be copied to new
columns in the same range. The results is genereted in cells B11 and B14, and
is copied into the range K3:K39 and L3:L39.

Thank you

Cornelius



----== Posted via Pronews.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.pronews.com The #1 Newsgroup Service in the World! 100,000 Newsgroups
---= - Total Privacy via Encryption =---