MS Excel

Téma: Automatická zmena názvov hárkov

Zaslal/a Zdeno-Frano 4.10.2019 11:29

Dobrý deň.
Poprosím vás o pomoc.
V zošite (formulár z kontroly objektu) sa mi automaticky menia názvy hárkov podľa zoznamu v jednom z nich (v Hárku1). Pri zmene hodnoty v zozname (napr. názvu haly) sa mi ale zmenia až pri aktivácii každého hárku, nie hneď a všetky naraz.
Poradí mi niekto ako spraviť, aby sa zmenili všetky naraz?
Ďakujem

Kód:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Hárok1.Range("F20")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Zaslat odpověď >

Darbujan(4.10.2019 12:00)#044470

Ach jo.

a) Někdo Vám měl říct, že SelectionChange je událostní procedura listu, navíc pro danou situaci nevhodná, a zjevně ji používáte na listu, kde nemá co dělat. Lepší by byla událost Change na listu se seznamem, ale doporučil bych změnu provádět po kliku na tlačítko.

b) Kód v jejím těle je také chybný, přímo nesmyslný.
Kde seznam začíná, kde končí, kolik je listů? Co takhle dodat korektní zadání?citovat

Zdeno-Frano(4.10.2019 12:52)#044472

Pardon.

Prikladám vzorový zošit.
V hárku Zoznam je zoznam názvov + 25 hárkov, v ktorých sa má názov meniť.
Moc ďakujem.

Příloha: xlsx