Nazev listu podle buňky - pokud se buňka mění jako odkaz

[MK_Vs]

DObrý den,

změna názvu listu pomocí ruční změny hodnoty buňky funguje pomocí

Kód: Vybrat vše

Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address <> "$B$24" Then Exit Sub
      ActiveSheet.Name = Range("B24").Value
    End Sub


Jak ale měnit název listu, pokud chci mít odkaz na buňku, ve které se mění text podle zadání různých hodnot funkcí CONCATENATE.

Děkuji

[Reklama]

[Mirdad69]

Dobrý den,
pokud ten CONCATENATE je na základě změny více dalších buněk, tak se jen rozšíří ta podmínka.
Takže ke změně jména dojde po změně kterékoliv z té kontrolované buňky.
Do názvu se bude plnit hodnota z té buňky, ve které je concatenate.
Např.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address = "$B$2" Or Target.Address = "$B$1" Or Target.Address = "$A$1" Then
      ActiveSheet.Name = Range("B2").Value
      End If
End Sub


[Štučka]

Nebo varianta jednodušší

Private Sub Worksheet_Calculate()

If Range("B24").Value <> 0 Then
ActiveSheet.Name = Range("B24").Value

End If


End Sub

[MK_Vs]

Dobrý den,

jak lze upravit tento vzorec, v případě, že se bude pojmenování listu řídit odkazem z jiného listu?

V Listu1 se buňky B2 napíši text.
Tento se promítne do buňky C5 na Listu2.
Z buňky C5 List2 by se měl pojmenovat aktuální List, tedy List2.

[Mirdad69]

V okně Immediate si zjistím index toho listu:
?activesheet.index
a pak změním ActiveSheet na Sheets(index)

Kód: Vybrat vše

 Private Sub Worksheet_Calculate()
If Range("B24").Value <> 0 Then
Sheets(2).Name = Range("B24").Value
End If
End Sub


[MK_Vs]

DObrý den,

děkuji za rady, funguje.

Když bude mít dokumet např. 20 listů, je možno automaticky přejmonovávat Sheets(2).Name v daném makru, nebo nezbyde než ručně.

Děkuji.

[Mirdad69]

pokud nebude odstraněn list s indexem 1, tak bude mít stále index 2.

[MK_Vs]

Dobrý den,

to znamená, že i když bude list 10. v pořadí, budou vždy se přejmenuje správně.
Makro pak bude muset být vkaždém listu kde přejmenovávám.

[Mirdad69]

Nebát se a vyzkoušet, tak jsem se učil s excelem.