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


"ruchie" <ruchie.sharma@gmail.com> wrote in message
news:1153772636.865756.49450@p79g2000cwp.googlegroups.com...
> 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
>

[Tom Hutchins]

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

Hope this helps,

Hutch

"ruchie" wrote:

> 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


"ruchie" <ruchie.sharma@gmail.com> wrote in message
news:1153772636.865756.49450@p79g2000cwp.googlegroups.com...
> 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
>

[Tom Hutchins]

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

Hope this helps,

Hutch

"ruchie" wrote:

> 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
>
>

[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)

"ruchie" <ruchie.sharma@gmail.com> wrote in message
news:1153774592.466650.312950@75g2000cwc.googlegroups.com...
> Cells(x, 25).Value = Replace(Cells(x, 25).Value, "", "TRU")
>
> should this work to replace blanks as well?
>