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

44472_zmena_nazvov_harkov.xlsx (26kB, staženo 29x)

citovat

Darbujan(4.10.2019 13:16)#044476

https://www.uschovna.cz/zasilka/QYE6XIBVBET54NK4-TC5/citovat

Zdeno-Frano(4.10.2019 14:35)#044478

Veľká vďaka!citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.