Sub ABC()
Dim s1 as String, s2 as String
s1 = "=IF(OR(E2=""11 - MARKETING XXXXXXXX"";E2" & _
"=""12 - MARKETING XXXXXXXXXX"";E2" & _
"=""13 - INTERNATIONAL MARKETING"";E2" & _
"=""14- XXXXXXXXXXXXX"");VLOOKUP(H2;" & _
"'[MARKETNGHELP.xls]vlookup'!$P:$Q;2;FALSE);" & _
"VLOOKUP(E2;'[MARKEINGHELP.xls]vlookup'!$I:$J;2;FALSE))"
s2 = Application.Replace(s1,";",",")
activecell.formula = s2
End sub
when using the formula property, the formula is entered using us English
conventions.
--
Regards,
Tom Ogilvy
"steven" wrote:
> Hello i am trying to record a macro with the recorder but i get a "cannot
> record macro" error message.
>
> the formula i am trying to record is (this is the way it looks in excel
> mode) :
>
> IF(OR(E2="11 - MARKETING XXXXXXXX";E2="12 - MARKETING XXXXXXXXXX";E2="13 -
> INTERNATIONAL MARKETING";E2="14-
> XXXXXXXXXXXXX");VLOOKUP(H2;'[MARKETNGHELP.xls]vlookup'!$P:$Q;2;FALSE);VLOOKUP(E2;'[MARKEINGHELP.xls]vlookup'!$I:$J;2;FALSE))
>
> why can't i record it? can someone give me the code to paste it directly in
> a module?
>
> thank you.
>
> Steven.
|