MS Excel

Téma: MAkro - název záložky

Zaslal/a simplynever 1.4.2019 16:50

Dobrý den,

na netu jsem našel makro, které na základě hodnoty bunky D4 mi přejmenovává sheet (viz níže).

s tabulkou často pracuji a jednotlivé sheete rozkopírovávám a potřebuji aby každej sheet měl jinej název, nicméně když si zkopíruji sheet s již použitým názvem tak mi to hodí, že tenhle název je již používám a at použiju jiný - dá se to jednoduše odklikat, ale je to asi pět kliků a při práci to zdržuje.

Jde to marko prosím upravit tak, aby mi to tolerovalo stejný název než ho přejmenuji a já to nemusel odklikávat?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("D4")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Zaslat odpověď >

Pavlus(1.4.2019 17:12)#043068

Já bych dal před samotné přejmenování listu příkaz:
On Error Resume NextPokud budeš mít již název použitý, tak se nic nestane, v opačném případě se ti list přejmenuje. Dva stejně nazvané listy současně mít nelze.
P.citovat

Anonym(15.4.2019 15:02)#043158

jsem v makrech dost velký amatér, proto se prosím ptám na který řádek mám doplnit kod "on Error Resume Next".

Díkycitovat

elninoslov(16.4.2019 0:16)#043165

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Name = Left$(Range("D4"), 31)
End Subcitovat

simplynever(25.4.2019 12:49)#043244

Funguje super díky moccitovat

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.