EXCEL - trova sostituisci valori multipli

[Wikipino]

Buongiorno a tutti
avrei bisogno di una macro in excel che facesse un trova sostituisci di una lunga lista di valori che possono trovarsi o meno nel foglio su cui sto lavorando

in altre parole ho due colonne con i valori da sostituire
AAA sostituisci con HHH
BBB sostituisci con III
CCC sostituisci con JJJ
DDD sostituisci con KKK
EEE sostituisci con LLL
FFF sostituisci con MMM
GGG sostituisci con NNN

la lista è lunghissima e vorrei applicarla su diversi file in cui possono anche non essere presenti tutti i valori da sostituire.
per questo mi servirebbe una macro
in genere faccio con il cerca.vert mettendo i valori in una colonna accanto alla prima e funziona benissimo, ma per farlo devo sempre far riferimento al foglio in cui ho la lista
invece con la macro, basterebbe un pulsante ( o una combinazione di tasti )
sapete dirmi come può essere il codice ? ( eventualmente con l'esempio fatto sopra , poi per i valori reali ce li metto io )
grazie

[Marius44]

Ciao
ritengo che la cosa sia fattibile ma, per non dare consigli a vanvera, sarebbe utile vedere il tuo file (senza dati sensibili) dove dovresti indicare in quale colonna sostituire i dati e dove sono elencati questi dati da sostituire.
L'esempio che hai fatto può andar bene se tutto è nello stesso foglio non se siamo in presenza di fogli diversi (come mi sembra di capire) o, addirittura, di file diversi.

Ciao,
Mario

[Anthony47]

Creati un file chiamato OldNew.xlsm e in Foglio1, da riga 2 in avanti, metti le parole che vuoi sostituire e la sostituzione.
In un modulo standard del vba, esempio Modulo1, inserisci questa macro:

Codice: Seleziona tutto

Sub globRepl()
Dim repSh As Worksheet, I As Long
'
Set repSh = ThisWorkbook.Sheets("Foglio1")
If ActiveSheet Is repSh Then MsgBox ("Cambia foglio"): Exit Sub
For I = 2 To repSh.Cells(Rows.Count, 1).End(xlUp).Row
'
    Cells.Replace What:=repSh.Cells(I, 1), Replacement:=repSh.Cells(I, 2), LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next I
MsgBox ("Completata sostituzione...")
End Sub


Quando vuoi effettuare le sostituzioni:
-attiva il foglio interessato, anche appartenente a un altro file.
-manda in esecuzione la Sub globRepl

Ciao.

[Wikipino]

Anthony
Prima di tutto scusa se rispondo dopo tanto tempo ma per vari motivi non avevo avuto modo di provare il codice da te suggerito
Funziona perfettamente GRAZIE!!!

unica piccola cosa
in questo modo la macro fa la sostituzione su tutto il foglio attivo
se volessi farla solo sulle celle selezionate ?
( eventualmente se volessi farlo su tutto il foglio posso sempre selezionare tutto il foglio)
grazie mille

[Anthony47]

Invece che Cells.Replace etc etc prova con

Codice: Seleziona tutto

Selection.Replace  etc etc


Ciao