View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson
 
Posts: n/a
Default find and replace macro strange behaviour

Your code worked fine for me. I used xl2003 to test.

What version of excel are you using?

I seem to recall in earlier versions if I had a cell that was formatted as text
that looked like a formula (started with an equal sign)

=Header1=
or
=========

Then when I did that kind of mass change, excel wanted to convert those cells to
real formulas. They'd either convert to nonsense (lots of #name? errors) or the
macro would yell at me that the formula wasn't correct.

Is it possible that you have this problem?

If it is, maybe you could limit your replacement to just the cells with
formulas. (I'm guessing that you're trying to get the workbook to recalculate.)

Option Explicit
Sub remplacement()

Dim myRng As Range

With Sheets("Sheet2")
Set myRng = Nothing
On Error Resume Next
Set myRng = .Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0

If myRng Is Nothing Then
MsgBox "No formulas found"
Exit Sub
End If

myRng.Replace What:="=", replacement:="=", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

End With
End Sub



But maybe I'm remembering incorrectly?????




Nicawette wrote:

I've tested this procedure :

1- format a cell in text

2- copy the below formula in the cell

=IF(26;TRUE;FALSE)

4- change the format of the cell into general

3- run this macro

Sub remplacement()
Sheets("Sheet2").Select
Cells.Replace What:="=", replacement:="=", LookAt:=xlPart,
SearchOrder _
:=xlByRows, MatchCase:=False
End Sub

and I've an error : "replace method of range class failed" ?

BUT if I do a "Find and replace" it works, If I edit the cell and hit
enter it works, the formula give the value "FALSE"

is it an excel bug ? why this macros doesn't work, this maccro has been
recorded with the "find and replace" menu, it has to be the same way of
doing ???!!!!

tx

nic


--

Dave Peterson