How to insert Cells VALUE (Search and Replace Macro)

**NatanZ** · 11-27-2010, 01:12 PM

Hi there guys.

I have this Search and Replace Macro:

Public Sub Priority()

For Each cell In Selection
cell.Value = Replace(cell.Value, "xxx", "B4.Value")
Next cell
End Sub

As you can see,
the outcome is that xxx becomes "B4.Value", instead of 0001, which is cells' B4 value.
note that each day 0001 changes (to 0002 and so on...)

How can I do the macro to put in real B4.Value and not B4.Value as text?

Thanks ahead!

**mikerickson** · 11-27-2010, 01:58 PM

Repace "B4.Value" with CStr(ActiveSheet.Range("B4").Value)

**NatanZ** · 11-27-2010, 02:18 PM

Thanks, but error.

**NatanZ** · 11-27-2010, 02:22 PM

Sorry, Works!

But, I cant undo that. Is there a way to fix it?

By the way,
I changed the code a bit,

ActiveCell.Replace What:="xxx", Replacement:=CStr(ActiveSheet.Range("B4").Value), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Thanks ahead, again...

**NatanZ** · 11-29-2010, 01:29 PM

Bump, please.
Sorry about the tri-post.

**mikerickson** · 11-29-2010, 04:57 PM

The short answer about UNDO is no, you cannot undo the actions of a macro. You can write a macro that will "counter do" the action of another, but how easy that is depends on the actions of the first (e.g if one macro sorts, how is the counter macro to know the existing order before the first sorted, unless the first stores it somewhere......)

In short, no.

**NatanZ** · 11-30-2010, 01:58 PM

Originally Posted by mikerickson

The short answer about UNDO is no, you cannot undo the actions of a macro. You can write a macro that will "counter do" the action of another, but how easy that is depends on the actions of the first (e.g if one macro sorts, how is the counter macro to know the existing order before the first sorted, unless the first stores it somewhere......)

In short, no.

The important thing is not to undo the macro, but to undo multiple times... I guess not, then.