problem using formula in VBA macro Excel 2010

[deekar]

I am trying piece together various code to create a macro.
I am having a problem with one line of code.
The error is that object does not support this property or method

Where am I going wrong.


Range(Cells(2, Found.Column + 1), Cells(LR, Found.Column + 1)).ActiveCell.FormulaR1C1 = "=IfError(Mid(H2, Find(""(ID:"", H2) + 4, 10), "")"

Thank you.

 

[MARK858]

Try removing the R1C1

 

[gorem]

Also, look at the end of your IFERROR. I think to return a blank, you want """" rather than simply "".

 

[Marcelo Branco]

I am trying piece together various code to create a macro.
I am having a problem with one line of code.
The error is that object does not support this property or method

Where am I going wrong.


Range(Cells(2, Found.Column + 1), Cells(LR, Found.Column + 1)).ActiveCell.FormulaR1C1 = "=IfError(Mid(H2, Find(""(ID:"", H2) + 4, 10), "")"

Thank you.

Try

Range(Cells(2, Found.Column + 1), Cells(LR, Found.Column + 1)).Formula = "=IfError(Mid(H2, Find(""(ID:"", H2) + 4, 10), """")"

M.

 

[faraz502]

Dear All,

I need help in <acronym title="visual basic for applications">VBA</acronym> Code after Selection.End(xlDown).Select i need going on next down cell,

kindly help me.

Thanks

 

[Marcelo Branco]

Dear All,

I need help in <ACRONYM title="visual basic for applications">VBA</ACRONYM> Code after Selection.End(xlDown).Select i need going on next down cell,

kindly help me.

Thanks

This is not related with the original question.

To improve your chances of get help, please, create your own Thread.

M.

 

[faraz502]

Dear Marcelo Branco,

how i make a new thread i have no idea,

Sorry for disturbance.

Frz

 

[Marcelo Branco]

Dear Marcelo Branco,

how i make a new thread i have no idea,

Sorry for disturbance.

Frz

Use this link
Excel Questions

In the upper left you'll see a brown button like
+Post New Thread

Use it

M.

 

[faraz502]

thankx