problem with replace command

[ruchie]

in this macro i am trying to find and replace data in the rows of a
particular column (25th). can someone guide me where im going wrong?

Sub ReplaceData()
Dim x As Integer
For x = 2 To 40000
Cells(x, 25).Select
cell.Value = Replace(cell.Value, "FALSE", "FAL")

Next x
End Sub



this code gives an overflow error

 

[Chip Pearson]

Try

Sub ReplaceData()
Dim x As Long
For x = 2 To 40000
Cells(x, 25).Value = Replace(Cells(x, 25).Value, "FALSE",
"FAL")
Next x
End Sub




--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Guest]

You defined x as an integer. Integers don't up to 40000. Change it to a Long.

Hope this helps,

Hutch

 

[ruchie]

thanks a ton Chip! it worked now!!!

 

[ruchie]

Cells(x, 25).Value = Replace(Cells(x, 25).Value, "", "TRU")

should this work to replace blanks as well?

 

[Bob Phillips]

If IsEmpty(Cells(x, 25).Value) Then Cells(x, 25).Value = "TRU"

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)