I found the following code that does precisely what I need it to do EXCEPT
I need to modify it so that it reviews all values in a delimited cell (;).
The code I had been using works great for the first instance of a match,
but for the purposes of a new project, I need it to be an exact match.
Thank you in advance for any and all assistance and pointers!
Find Value Replace with Value Values to be
Changed:
REL0000000329 ATI-000036_0001
REL0000000329.0001;REL0000000329.0002
REL0000000329.0001 ATI-000037_0001
REL0000000329.0002 ATI-000038_0001
Option Explicit
Sub Multi_FindReplace()
Dim sRng As Range, InputRng As Range, ReplaceRng As Range, Cls As
Range, Rg0 As Range
Dim MyAdd$, xTitleId$
xTitleId = "ERS : Applying Abbreviation"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Select the Columns to Apply
Standards ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Standard Abbreviations Sheet
Range (Col A and ColB):", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Cls In ReplaceRng.Columns(1).Cells
Set sRng = InputRng.Find(Cls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
If Rg0 Is Nothing Then
Set Rg0 = sRng
Else
Set Rg0 = Union(Rg0, sRng)
End If
Set sRng = InputRng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
If Not Rg0 Is Nothing Then
Rg0.Value = Cls.Offset(, 1).Value
Set Rg0 = Nothing
End If
Next Cls
Application.ScreenUpdating = True
End Sub
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
