Inlocuire caractere dintr-un range filtrat

[RAMBO]

Fie fisierul de exemplu.
Cum as putea sa fac (intr-o maniera automatizata) pentru ca toate celulele in care este caracterul "X" din coloana status sa fie inlocuite cu "XV"? Initial am incercat sa fac un cod care filtreaza toate X-rile apoi se selecta tot range-ul ramas in urma filtrarii si "scria" "XV". Nu merge corect deoarece va scrie si in celulele goale, resp pentru item05-item07. Banuiesc ca ar trebui ceva pe baza de for cu next, dar ma depaseste cu mult ideea.
NOTA: tabelul original are ~23000 randuri, iar manual e crima.
Multumesc.

[IPP]

Buna ziua

Ati incercat un macro cu find and replace?

Cod: Selectaţi tot

Sheets("Foaie1").ListObjects("Tabel1").ListColumns("status").DataBodyRange.Replace What:="X", Replacement:="XV", LookAt:=xlWhole, SearchOrder:=xlByColumns

IP

[RAMBO]

Ideea asta nu mi-a venit.
Functioneaza perfect. Din cat pot eu sa inteleg, in codul dvs find&replace-ul are loc doar in coloana status, corect? Nu de alta, dar tabelul original contine numeroase alte coloane cu text.
Multumesc.

[IPP]

Buna ziua

Codul se uita in foaia numita "Foaie1" dupa un table numit "Tabel1" pe o coloana din acel tabel (fara a tine cont de capul de coloana) numita "status"
Ca atare va trebui sa modificati aceste elemente in consecinta si exact, orice editare gresita poate sa duca la erori sau prelucrare gresita deci, faceti teste pe un fisier copie.

IP