cerca e sostituisci solo su una determinata colonna

[jos235]

salve a tutti, mi chiedevo se fosse possibile fare questo: io dovrei fare un cerca e sotituisci che vada a cercare nella colonna D di tutti i fogli della cartella di lavoro (circa 70) e lasciando intatte tutte le altre colonne..
E' possibile fare ciò

[Flash30005]

beh, penso proprio di si.
Il dato da cercare è variabile?
il dato da sostituire è variabile?
se è fisso specifica cosa cercare e cosa sostituire
se è variabile e lo vuoi definire prima di ogni processo,
chiarisci dove vorresti inserire questi due dati,
in quali celle, di quale foglio?

Fai sapere
Ciao

[jos235]

Il valore da cercare è variabile così come quello da sostituire, quindi definirei entrambi prima di ogni processo.
L'intervallo di celle è sempre D8:D108.
Dovrei eseguire il processo in tutti i fogli della cartella, circa 70 ma hanno tutti nomi diversi..

[Flash30005]

Ok,
nella stessa cartella dove hai i fogli da modificare
aggiungi un foglio che nominerai "Impostazioni"
In A2 metterai il valore da cercare (vecchio)
In B2 il valore che andrà a sostituire (nuovo)
Volendo in A1 metterai un promemoria "Valorevecchio" e
In B1 "ValoreNuovo"
Incolla questa macro in un modulo del Vba

Codice: Seleziona tutto

Sub ModificaValoriFogli()
Righe = 108
For F = 1 To ActiveWorkbook.Worksheets.Count
If Sheets(F).Name <> "Impostazioni" Then
'Righe = Sheets(F).Cells(Rows.Count, 4).End(xlUp).Row      '<<<< Togliere commento se le righe variano di foglio in foglio
    For S = 8 To Righe 
        If Sheets(F).Range("D" & S).Value = Sheets("Impostazioni").Range("A2").Value Then Sheets(F).Range("D" & S).Value = Sheets("Impostazioni").Range("B2").Value
    Next S
End If
Next F
End Sub

Avvia la macro

Fai sapere se ok
Ciao

[jos235]

Ciao Flash, ti ringrazio infinitamente, ho testato e funziona perfettamente..
ciao e grazie mille