View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Seeker Seeker is offline
external usenet poster
 
Posts: 137
Default place a formula in a cell with macro

P.S. I used the recorder to start with the macro sheet, this macro sheet
start with Sub Macro1() and at the very end with End Sub, so would this cause
the problem? If so, how could I rectify it please?

"Seeker" wrote:

Hi Don,
Tks for your reply. However, when I placed following

Sub placeformula()
Range("F3").Formula = "IF(AND(............)" (had changed all " " to "" ""
for textwithin formula)
End Sub

It prompt me "must be an End Sub" at line above Sub placeformula() ???

"Don Guillett" wrote:

The key is to use "" "" instead of " "

Sub placeformula()'one line
Range("f3").Formula =
"=IF(AND(F2<""AA"",UPPER(F12)<""BB""),VLOOKUP(F9 &"".""&G10,Records!C2:R65536,6),IF(OR(AND(F2<""AA "",UPPER(F12)=""BB""),AND(F2=""AA"",UPPER(F12)=""B B"")),""N/A"",""writesomething""))"

End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Seeker" wrote in message
...
I have following formula in a cell which shows output depends on other
cells
conditions, it also prompt users to write data in same cell thus this
formula
will be erased, I am looking for a macro which can place this formula back
into cell after user finished every single input.

=IF(AND(F2<"AA",UPPER(F12)<"BB"),VLOOKUP(F9&"."& G10,Records!C2:R65536,6),IF(OR(AND(F2<"AA",UPPER( F12)="BB"),AND(F2="AA",UPPER(F12)="BB")),"N/A","write
something"))

Tks