Stránka 1 z 1
Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 23 led 2013 08:54
od 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
Re: Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 23 led 2013 11:09
od 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
Re: Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 23 led 2013 11:33
od Štučka
Nebo varianta jednodušší
Private Sub Worksheet_Calculate()
If Range("B24").Value <> 0 Then
ActiveSheet.Name = Range("B24").Value
End If
End Sub
Re: Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 23 led 2013 12:38
od 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.
Re: Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 23 led 2013 13:27
od 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
Re: Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 23 led 2013 14:31
od 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.
Re: Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 23 led 2013 14:54
od Mirdad69
pokud nebude odstraněn list s indexem 1, tak bude mít stále index 2.
Re: Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 23 led 2013 15:48
od 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.
Re: Nazev listu podle buňky - pokud se buňka mění jako odkaz
Napsal: 24 led 2013 00:29
od Mirdad69
Nebát se a vyzkoušet, tak jsem se učil s excelem.