VBA adding formula to cell

[Hlatigo]

I am having problems...my code keeps erroring out. what am I doing wrong? Is the formula relative or do I have some areas to a absolute range that doesnt need? Please help



Sub addFormula()



Dim cell As Range


Range("AQ65536").End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Offset(1, 1).Select



For Each cell In Selection
ActiveCell.Formular1c1 = "=IF(OR(K6>Impacts!$B$29,K6=Impacts!$B$29),IF(ISERROR(VLOOKUP _
(Mdata!A6,Subset!$A$339:$A$65536,1,FALSE)),"No","Yes"),"No")"
Next cell

End Sub

 

[Hlatigo]

just thought of something...should i be using activecell.worksheet function ??

 

[arch4672]

Try this:

Sub addFormula()

Dim cell As Range
Dim Quote As String

Range("AQ65536").End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Offset(1, 1).Select

Quote = Chr(34)

For Each cell In Selection

ActiveCell = "=IF(OR(K6>Impacts!$B$29,K6=Impacts!$B$29),IF(ISERROR(VLOOKUP(Mdata!A6,Subset!$A$339:$A$65536,1,FALSE))," & Quote & "No" & Quote & "," & Quote & "Yes" & Quote & ")," & Quote & "No" & Quote & ")"

Next cell

End Sub

 

[just_jon]

What do you want your formula to do, and in which cells do you want to put it?

 

[Hlatigo]

Ultimately I want it to say yes or no based on a couple of criterias. The formula works well when it is manually inserted into the spreadsheet but everytime I update the query the formula gets messed up. So I assume that I can just create a command that will update the workbook with the new data and then add the formula. But as you can tell, some cells need to be absolute and others relative. any thoughts?

 

[Hlatigo]

Hi arch


I just tried your code and it runs but nothing get populated in the field. i also added .formula to activecell just in case that did something, but no luck

 

[just_jon]

Explain in words what needs to be done - your formula is ambiguous