Find replace issues!! Help!!

AbeLincolnVampSlayer · #1 07-03-2012, 07:15 AM

Wow I have a feeling I am behind the times on doing stuff the easy way in excell. I do not know a lot about macros, is there any book or training you could recomend that would get me up to speed?

Thanks a lot!!

Quote:

Originally Posted by macropod

Try the following macro:

Code:

Sub UpdateRefs()
Dim StrFnd As String, StrRep As String
StrFnd = InputBox("Please input the string to FIND for the replacement.", "Find/Replace")
If StrFnd = "" Then Exit Sub
StrRep = InputBox("Please input the string with which to REPLACE the Find String.", "Find/Replace")
With Application
  .DisplayAlerts = False
  .ScreenUpdating = False
  .Calculation = xlManual
  .ActiveSheet.Cells.Replace What:=StrFnd, Replacement:=StrRep, LookAt:=xlPart, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  .Calculation = xlAutomatic
  .DisplayAlerts = True
  .ScreenUpdating = True
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using Find/Replace or VBA	davidku	Word	4	04-27-2012 04:39 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM
Is there a way to use "find/replace" to find italics words?	slayda	Word	3	09-14-2011 02:16 PM
Find and Replace	kjxavier	Word	9	08-11-2011 04:47 AM
Help with find and replace or query and replace	shabbaranks	Excel	4	03-19-2011 08:38 AM