Find/Replace Macro; Need Loop
sub main simply scans column A .. each name is to be replaced by the name in
column B for any row
Sub Main
dim cell as range
for each cell in worksheets("List of names to change").Columns(1").Cells
if cell.Value<"" then
FindReplace() cell.Value, cell.Offset(,1).Value
end if
next
End Sub
Sub FindReplace(FindName as string, replacename as string)
ActiveSheet.Columns("A:B").Replace What:=findname, _
Replacement:=replacename, LookAt:=xlPart,
SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
End Sub
However, the list of What:="" names will change frequently. This past
week
there were 10 names; next week there may be many more. All names are
listed
on a Sheet named €˜List of names to change (1 sheet). Basically, I am
trying
to come up with a way of activating the Sheet named €˜List of names to
change, selecting the variables (actually text/names, in column A) and
then
replacing the variables (actually text/names, in column B€¦the same row as
Column A). By the way, all name replacements (all names will be in Column
A
or Column B) will happen in sheets named €˜top 20 - AFTER or €˜top
Industry -
AFTER (2 sheets). The names originally come from sheets named €˜top 20 -
BEFORE and €˜top Industry - BEFORE.
Any ideas on how to do this?
Thanks so much,
Ryan---
--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.
|