< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#043068
avatar
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
#043158
avatar
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
#043165
elninoslov
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Name = Left$(Range("D4"), 31)
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse