[Pindelek]

Cześć,
Prośba o napisanie makra, które dokona zmiany nazw wg. arkusza „ustawienia” z „Miejscowość” na „ Miejscowość_ok” we wszystkich arkuszach (widoczne i ukryte, łącznie z arkuszem ustawienia).
Liczba arkuszy i miejscowości może być różna.
Plik wzorcowy z przykładami w załączeniu.
Z góry dziękuję

---

makro_zmiana_we wszystkich_arkuszach.xlsm

Pobierz Plik ściągnięto 45 raz(y) 27.19 KB

[Prot]

[Pindelek]

Prot dzięki za pomoc, ale makro działa tylko w arkusz „ustawienia” a zależy żeby zadziałało na wszystkich arkuszach

[Prot]

[Pindelek]

Zrobiłem tak jak piszesz, lecz nadal to samo
Zmiany nastąpiły tylko w arkuszu „ustawienia”.
Plik w załączeniu
ps. pracuję na Excel 2016

---

makro_zmiana_we wszystkich_arkuszach.xlsm.xlsx

Pobierz Plik ściągnięto 44 raz(y) 32.86 KB

[Prot]

[Maciej Gonet]

Nie chciałem wchodzić w rolę rozjemcy, ale ta dyskusja powoli staje się irracjonalna.
Wykonałem kod z załącznika i zmiany następują tylko w arkuszu "Ustawienia".
Jeśli przeanalizować kod, to nie ma tam żadnej pętli po arkuszach, a Cells bez kwalifikatora oznacza tyle co Activesheet.Cells.
A że aktywny w momencie wykonywania metody Replace jest arkusz "Ustawienia", więc tylko w nim dokonuje się zamiana.
Arkusz3 jest tylko odkrywany i ukrywany, ale nic w nim się nie dzieje.

---

Prot_zmiana_we wszystkich_arkuszach_po_wykonaniu.xlsm

Pobierz Plik ściągnięto 45 raz(y) 26.27 KB

[Tajan]

Moja propozycja:

Kod:

Sub tst() Dim sht As Worksheet Dim i As Long Dim tbl tbl = Worksheets("Ustawienia").ListObjects(1).DataBodyRange.Value For Each sht In Worksheets   For i = 1 To UBound(tbl)     sht.Cells.Replace What:=tbl(i, 1), Replacement:=tbl(i, 2), _                   LookAt:=xlPart, SearchOrder:=xlByRows, _                   MatchCase:=False, SearchFormat:=False, _                   ReplaceFormat:=False   Next Next Worksheets("Ustawienia").ListObjects(1).DataBodyRange.Value = tbl End Sub

[Pindelek]

Tajan – działa idealnie, dziękuję
Pkt dla Ciebie
ps. w kolumnie „Miejscowość” błędny wpis Miejscowość1 zamieniłem na Warszawa

[Prot]

[Maciej Gonet]

Prot, teraz dopiero sprawa się wyjaśniła. Bo samym kodem nie da się (chyba) ustawić wyszukiwania w całym skoroszycie.
Swoją drogą jest tu chyba jakaś niekonsekwencja. Bo Cells wg Microsoftu powinno oznaczać komórki arkusza aktywnego, a jeśli zmiany są w całym skoroszycie, to coś tu się chyba nie zgadza.

[Prot]

[Maciej Gonet]

Ten kod:

Kod:

Application.CommandBars.FindControl(ID:=1849).Execute

wg moich obserwacji nie zmienia ustawienia Arkusz/Skoroszyt, pozwala natomiast na jego ręczną zmianę.
Natomiast starsza wersja tego kodu:

Kod:

Application.Dialogs(xlDialogFormulaReplace).Show

nie zawiera opcji zmiany Arkusz/Skoroszyt, ale wymusza ustawienie domyślnie na Skoroszyt (z tym, że to nie zawsze działa i nie bardzo rozumiem, dlaczego).
W tej wersji po Show można też podać parametry. Jest dostępny ich wykaz, natomiast nie znalazłem opisu. Trzeba by poeksperymentować.

Kod:

xlDialogFormulaReplace    find_text, replace_text, look_at, look_by, active_cell, match_case, match_byte xlDialogFormulaFind    text, in_num, at_num, by_num, dir_num, match_case, match_byte

Tylko użycie tego wyświetla okno dialogowe i wymaga ręcznej aktywacji. I działa też jakoś kapryśnie. Jeśli ręcznie zaznaczamy sekwencję Znajdź następny/Zamień to działa, natomiast jeśli zaznaczymy Zamień wszystko to raz faktycznie zamienia wszystko, a innym razem tylko pierwsze wystąpienie i kończy działanie. Nie wiem od czego to zależy.
W sumie jest to sposób niepewny i myślę, że jawna pętla po arkuszach jest bezpieczniejsza.