VBA EXCEL 2016 - Sostituire parola o frase in una colonna

Question

Salve,

il seguente script effettua una ricerca di una qualsiasi parola o frase nella colonna B (partendo da B2).

Private Sub TextLibro_Change()

Range("B2").AutoFilter field:=2, Criteria1:="*" & TextLibro.Text & "*"

If TextLibro.Text = "" Then

Selection.AutoFilter

End If

End Sub

Se dovessi sostituire la parola o la frase cercata, cosa dovrei aggiungere?

 Ad esempio:  cerco la frase 'libro AA1' (Excel mi fa vedere solo le righe che contengono la frase 'libro AA1' nella colonna B.

A questo punto voglio sostituire 'libro AA1' con 'libro MM11'. Cosa bisogna aggiungere allo script sopra scritto affinché avvenga la sostituzione?

Carlo - Verona

Answer 1

1. Esatto. Puoi quindi cancellare la parola o la frase di interesse.
2. E' solo la selezione della cella B3 al termine dell'operazione. Diversamente il range rimarrebbe selezionato.

Answer 2

1. Esatto. Puoi quindi cancellare la parola o la frase di interesse.
2. E' solo la selezione della cella B3 al termine dell'operazione. Diversamente il range rimarrebbe selezionato.

Grazie Sabrina. OK.

Carlo - Verona

Answer 3

Buongiorno Carlo,

mi chiamo Sabina, sono una consulente indipendente e sono qui per aiutarti. Se vuoi sostituire una parola o una frase in una colonna puoi usare semplicemente una macro del genere. Estendi il range a tuo piacimento.

Sub sostituzione()

Range("B3:B1000").Select

Selection.Replace What:="libro AA1", Replacement:="libro MM11", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Range("B3").Select

End Sub

Ciao,

Sabina

Ciao Sabina,

intanto grazie per la tempestiva risposta.

Solo una riflessione su questa parte: 

Selection.Replace What:="libro AA1", Replacement:="libro MM11",  

Se al posto di "libro MM11" scrivessi solo le virgolette "", in effetti Excel cancella 'libro AA1' e non scrive nulla?

Se così fosse, in questo modo potrei anche cancellare una parola o frase attraverso la sostituzione con nulla (ossia solo virgolette).

PS - A cosa si riferisce quel Range("B3").Select  in ultimo?

Carlo - Verona

Answer 4

Buongiorno Carlo,

mi chiamo Sabina, sono una consulente indipendente e sono qui per aiutarti. Se vuoi sostituire una parola o una frase in una colonna puoi usare semplicemente una macro del genere. Estendi il range a tuo piacimento.

Sub sostituzione()

Range("B3:B1000").Select

Selection.Replace What:="libro AA1", Replacement:="libro MM11", LookAt:=xlPart, \_

    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, \_

    ReplaceFormat:=False



Range("B3").Select

    

End Sub

Ciao,

Sabina