Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 125
Default Search and replace stuck on

I have never run into anything like this,
I looked into excels help on programming find and replace functionality,
they offer the following code:
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

I put a couple 2's in column a and ran and everything was fine. Went to work
with thoughts of how to put this to use in my head and when I got home needed
to type up a spreadsheet for work. Now whenever I typed a 2 it changed to a
5, I threw away the old Excel spreadsheet earlier and deleted it. Any clue on
how to stop this would be greatly appreciated.

-John
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 125
Default Search and replace stuck on

Thanks but that workbook is long gone, it is still doing it on all my
workbooks, its even changing it as i type, if i put =2+2 the answer is 10. It
never stopped running once I shut down, deleted and reset my computer. I've
read before that Excel saves some features of how you search but I've got no
clue

"Don Guillett" wrote:

Sounds like you put the code into a worksheet_change event that fires when
you change a cell that is not restricted. The line
c.Value = 5
is doing exactly what was asked of it. The code example was just that. An
example.

--
Don Guillett
SalesAid Software

"John Bundy" wrote in message
...
I have never run into anything like this,
I looked into excels help on programming find and replace functionality,
they offer the following code:
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

I put a couple 2's in column a and ran and everything was fine. Went to
work
with thoughts of how to put this to use in my head and when I got home
needed
to type up a spreadsheet for work. Now whenever I typed a 2 it changed to
a
5, I threw away the old Excel spreadsheet earlier and deleted it. Any clue
on
how to stop this would be greatly appreciated.

-John




  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,290
Default Search and replace stuck on

What you experiencing should not be happening.
Did you somehow create an Application.Event?
Was your code in a class module or in the ThisWorkbook module?

In any case, I would try to stop it by creating and running a sub / function
using the old procedure name and setting c to Nothing and FirstAddress
equal to vbNullString.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"John Bundy" wrote in message ...
Thanks but that workbook is long gone, it is still doing it on all my
workbooks, its even changing it as i type, if i put =2+2 the answer is 10. It
never stopped running once I shut down, deleted and reset my computer. I've
read before that Excel saves some features of how you search but I've got no
clue

"Don Guillett" wrote:

Sounds like you put the code into a worksheet_change event that fires when
you change a cell that is not restricted. The line
c.Value = 5
is doing exactly what was asked of it. The code example was just that. An
example.

--
Don Guillett
SalesAid Software

"John Bundy" wrote in message
...
I have never run into anything like this,
I looked into excels help on programming find and replace functionality,
they offer the following code:
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

I put a couple 2's in column a and ran and everything was fine. Went to
work
with thoughts of how to put this to use in my head and when I got home
needed
to type up a spreadsheet for work. Now whenever I typed a 2 it changed to
a
5, I threw away the old Excel spreadsheet earlier and deleted it. Any clue
on
how to stop this would be greatly appreciated.

-John




  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 125
Default Search and replace stuck on

Thanks, but no good, any way to repair or re-install?

"Jim Cone" wrote:

What you experiencing should not be happening.
Did you somehow create an Application.Event?
Was your code in a class module or in the ThisWorkbook module?

In any case, I would try to stop it by creating and running a sub / function
using the old procedure name and setting c to Nothing and FirstAddress
equal to vbNullString.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"John Bundy" wrote in message ...
Thanks but that workbook is long gone, it is still doing it on all my
workbooks, its even changing it as i type, if i put =2+2 the answer is 10. It
never stopped running once I shut down, deleted and reset my computer. I've
read before that Excel saves some features of how you search but I've got no
clue

"Don Guillett" wrote:

Sounds like you put the code into a worksheet_change event that fires when
you change a cell that is not restricted. The line
c.Value = 5
is doing exactly what was asked of it. The code example was just that. An
example.

--
Don Guillett
SalesAid Software

"John Bundy" wrote in message
...
I have never run into anything like this,
I looked into excels help on programming find and replace functionality,
they offer the following code:
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

I put a couple 2's in column a and ran and everything was fine. Went to
work
with thoughts of how to put this to use in my head and when I got home
needed
to type up a spreadsheet for work. Now whenever I typed a 2 it changed to
a
5, I threw away the old Excel spreadsheet earlier and deleted it. Any clue
on
how to stop this would be greatly appreciated.

-John







  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10,124
Default Search and replace stuck on

try
toolsauto correct optionsscroll down the list to see if you have a
replace 2 with 5
if so delete

--
Don Guillett
SalesAid Software

"John Bundy" wrote in message
...
Thanks, but no good, any way to repair or re-install?

"Jim Cone" wrote:

What you experiencing should not be happening.
Did you somehow create an Application.Event?
Was your code in a class module or in the ThisWorkbook module?

In any case, I would try to stop it by creating and running a sub /
function
using the old procedure name and setting c to Nothing and FirstAddress
equal to vbNullString.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"John Bundy" wrote in message
...
Thanks but that workbook is long gone, it is still doing it on all my
workbooks, its even changing it as i type, if i put =2+2 the answer is
10. It
never stopped running once I shut down, deleted and reset my computer.
I've
read before that Excel saves some features of how you search but I've got
no
clue

"Don Guillett" wrote:

Sounds like you put the code into a worksheet_change event that fires
when
you change a cell that is not restricted. The line
c.Value = 5
is doing exactly what was asked of it. The code example was just that.
An
example.

--
Don Guillett
SalesAid Software

"John Bundy" wrote in message
...
I have never run into anything like this,
I looked into excels help on programming find and replace
functionality,
they offer the following code:
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

I put a couple 2's in column a and ran and everything was fine. Went
to
work
with thoughts of how to put this to use in my head and when I got
home
needed
to type up a spreadsheet for work. Now whenever I typed a 2 it
changed to
a
5, I threw away the old Excel spreadsheet earlier and deleted it. Any
clue
on
how to stop this would be greatly appreciated.

-John






Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
search and replace Timo Excel Discussion (Misc queries) 1 August 25th 09 06:06 PM
Help with search and Replace icdoo Excel Programming 5 September 18th 05 12:03 AM
Limit search range then loop thru' each cell...a bit stuck... ste mac Excel Programming 1 December 17th 04 01:35 PM
search & replace Al Excel Worksheet Functions 0 November 9th 04 03:43 PM
search & replace Joe Excel Worksheet Functions 0 November 9th 04 02:55 PM


All times are GMT +1. The time now is 01:53 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"