Macro - how to
 

I am new to macros. I got copies of a file and 2 of what the person who gave
them to me called "Macros". They don't look like any macros I have seen so
far.

Here are a few samples of lines in one of them. If this truly is a "Macro"
I need to
know how to put it in my Personal macros. It won't allow me to cut and
paste into
the Personal worksheet.

Column A
Column B
fill macro
FILLS IN A,B,C INFO IF IT IS
=ACTIVATE("Panel1.xls") LEFT OUT.
=SELECT(!AM5)
=FORMULA("=IF(RC[-6]=""A"",IF(RC[-7]="""",RC[-32],RC[-7]),if(RC[-6]=""X"","""",""""))")
if pri=a,b,c,then copy TC?...
=SELECT(!AN5)
=FORMULA("=IF(RC[-7]=""A"",IF(RC[-18]="""",RC[-31],RC[-18]),if(RC[-7]=""X"","""",""""))")
=SELECT(!AO5)
=FORMULA("=IF(RC[-8]=""A"",IF(RC[-18]="""",RC[-31],RC[-18]),if(RC[-8]=""X"","""",""""))")
=SELECT(!AP5)

Thanks
Dot

Macro - how to
 

This is an Excel 4 macro and needs to be rewritten. Try (untested):

Sub Complete()
Workbooks("Panel1.xls").Activate
Range("AM5").FormulaR1C1 = _
"=IF(RC[-6]=""A"",IF(RC[-7]="""",RC[-32],RC[-7]),if(RC[-6]=""X"","""",""""))"
Range("AN5").FormulaR1C1 = _
"=IF(RC[-7]=""A"",IF(RC[-18]="""",RC[-31],RC[-18]),if(RC[-7]=""X"","""",""""))"
Range("AO5").FormulaR1C1 = _
"=IF(RC[-8]=""A"",IF(RC[-18]="""",RC[-31],RC[-18]),if(RC[-8]=""X"","""",""""))"
Range ("AP5").Select
End Sub

Be careful with the line breaks.
__________________________________________________ _______________________


"DOGMA-DOT" wrote in message
...
I am new to macros. I got copies of a file and 2 of what the person who
gave
them to me called "Macros". They don't look like any macros I have seen
so
far.

Here are a few samples of lines in one of them. If this truly is a
"Macro"
I need to
know how to put it in my Personal macros. It won't allow me to cut and
paste into
the Personal worksheet.

Column A
Column B
fill macro
FILLS IN A,B,C INFO IF IT IS
=ACTIVATE("Panel1.xls") LEFT OUT.
=SELECT(!AM5)
=FORMULA("=IF(RC[-6]=""A"",IF(RC[-7]="""",RC[-32],RC[-7]),if(RC[-6]=""X"","""",""""))")
if pri=a,b,c,then copy
TC?...
=SELECT(!AN5)
=FORMULA("=IF(RC[-7]=""A"",IF(RC[-18]="""",RC[-31],RC[-18]),if(RC[-7]=""X"","""",""""))")
=SELECT(!AO5)
=FORMULA("=IF(RC[-8]=""A"",IF(RC[-18]="""",RC[-31],RC[-18]),if(RC[-8]=""X"","""",""""))")
=SELECT(!AP5)

Thanks
Dot