Skip

[kenpcli]

I have a vb looking to pull rows that return a certain value and place at the bottom, but it errors if it doesnt find a row with that name. Sometimes the sheet will have it and sometimes not, how do I tell it to ignore it and move on if that name doesnt appear. Here is the code so far:

With Columns(3)
.Replace "Totals For NO INSURANCE", True, xlWhole, , False, , False, False
Set Ar = .SpecialCells(xlConstants, xlLogical).Areas
.Replace True, "Totals For NO INSURANCE", xlWhole, , False, , False, False
End With

 

[Roderick_E]

maybe add on error resume next?

[COLOR=#ff0000]
on error resume next[/COLOR]
With Columns(3)
.Replace "Totals For NO INSURANCE", True, xlWhole, , False, , False, False
Set Ar = .SpecialCells(xlConstants, xlLogical).Areas
.Replace True, "Totals For NO INSURANCE", xlWhole, , False, , False, False
End With
[COLOR=#ff0000]resume next[/COLOR]

 

[Rick Rothstein]

maybe add on error resume next?

[COLOR=#ff0000]
on error resume next[/COLOR]
With Columns(3)
.Replace "Totals For NO INSURANCE", True, xlWhole, , False, , False, False
Set Ar = .SpecialCells(xlConstants, xlLogical).Areas
.Replace True, "Totals For NO INSURANCE", xlWhole, , False, , False, False
End With
[COLOR=#ff0000]resume next[/COLOR]

I think that last line of code should be this instead..

On Error GoTo 0

in order to turn the error checking off.

 

[kenpcli]

Thank you, that worked

 

[Rick Rothstein]

Thank you, that worked

I noticed you clicked the "Like" link for my message but not for Roderick_E's message. Just reminding you that the code I posted in my message was written by Roderick, not me... all I did was offer a correction to a type of "typo" in his code.

 

[kenpcli]

Thank you, I seen it but forgot to reply to his as well, both of you were a great help.