Find cells containing @

[drgstr]

i am running a macro, i need it to fill entire column (G) with the formula.
if it finds an @ then it needs to return a value (B).

LastRow = Range("B" & Rows.count).End(xlUp).Row
Range("G1:G" & LastRow).Formula = "=IF(OR(ISNUMBER(FIND({"@"},B2))),B2,"")"

I keep getting syntax error.
it doesnt seem to like the @ symbol.

any ideas would be appreciated.
thanks

 

[schielrn]

You do not have your quotes correctly set up, try this:

Range("G1:G" & LastRow).Formula = "=IF(OR(ISNUMBER(FIND({""@""},B2))),B2,"""")"

Also I don't think you need the curly brackets OR the or statement for this exact formula, so this would probably work also:

Range("G1:G" & LastRow).Formula = "=IF(ISNUMBER(FIND(""@"",B2)),B2,"""")"

Hope that helps.