View Single Post
  #6   Report Post  
Dave Peterson
 
Posts: n/a
Default

You could make your life a lot easier if you changed your formulas to text by
using a different string.

I use this.

Edit|replace
what: = (equal sign)
with: $$$$$= (as long as $$$$$ was not used anywhere in the worksheet)
replace all.

Then copy|paste and do the reverse:

edit|replace
what: $$$$$=
with: = (equal sign)
replace all.

Is it too late to go back and do it this way?

Or do you need to have a macro that corrects your current problem?

Maybe something like:

Option Explicit
Sub testme()

Dim myCell As Range
Dim myRng As Range

Set myRng = Nothing
On Error Resume Next
Set myRng = ActiveSheet.UsedRange.Cells _
.SpecialCells(xlCellTypeConstants, xlTextValues)
On Error GoTo 0

If myRng Is Nothing Then
MsgBox "no constants!"
Exit Sub
End If

For Each myCell In myRng.Cells
myCell.Value = myCell.Value
Next myCell

End Sub

Bonnie wrote:

Hi there! Using E02 on XP. Have zillions of formulas to
create and if I can get my template going, it will be much
easier. Only problem is this: I used Replace to change all
my ='1'!'s with '=1'1! so I can see my formulas and use
copy/replace to create my boiler templates on multiple
worksheets. I have done this in the past and then just
replace in reverse and voila! I have formulas linked to
the correct worksheet locations. This time I keep getting
the Excel can't find anything to replace, check your
formating, etc.

What am I doing wrong? I really do not want to key in 10
sheets of formulas.

Here is what my cell reads: '='1'!M68
My formula would be: ='1'!M68

Is it because I have used a number for the worksheet name?
I've played with it but can't fix it. Tried reformating
the cells, etc.

Would really appreciate any help or advice on this before
I wear my fingers down to nubs and get sheetsick. Thanks a
bunch for your time!


--

Dave Peterson