Excel - aut. pojmenovat list stejně jako buňku Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Dubák
Level 2
Level 2
Příspěvky: 219
Registrován: červenec 06
Bydliště: podkrkonoší
Pohlaví: Muž
Stav:
Offline

Excel - aut. pojmenovat list stejně jako buňku

Příspěvekod Dubák » 27 bře 2009 12:03

Zdravím,
lze v Excel 2007 zařídit, aby se listy sešitu automaticky pojmenovávali podle určené buňky, kterou list obsahuje???
NB: HP ProBook 4720s (XX838EA)
PC: AMD Phenom II X4 925; MB GA-770T-USB3; RAM Zeppelin Gold - Evolve 4GB (kit 2x 2GB) 1600MHz; Sapphire ATI Radeon HD 5750 512MB DDR5; W7 HP 64-bit.

Reklama
Uživatelský avatar
X
Elite Level 12.5
Elite Level 12.5
Příspěvky: 19360
Registrován: květen 07
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Excel - aut. pojmenovat list stejně jako buňku

Příspěvekod X » 27 bře 2009 12:58

VBA příkaz (jméno aktivního listu):

ActiveSheet.Name

Rozpitvej to nápovědou, velmi užitečná funkce Excelu a VBA :D

P.S.: Buňka:

Range("A1")

nebo:

Cells(1, 1)

Dubák
Level 2
Level 2
Příspěvky: 219
Registrován: červenec 06
Bydliště: podkrkonoší
Pohlaví: Muž
Stav:
Offline

Re: Excel - aut. pojmenovat list stejně jako buňku

Příspěvekod Dubák » 27 bře 2009 13:29

nějak tomu nemůžu přijít na zoubek :-(
a také nevím zda si dobře rozumíme, potřebuji aby se list jmenoval stejně jako je hodnota například v buňce A3 a v případě že se hodnota změní, změní se zároveň i jméno listu.
NB: HP ProBook 4720s (XX838EA)
PC: AMD Phenom II X4 925; MB GA-770T-USB3; RAM Zeppelin Gold - Evolve 4GB (kit 2x 2GB) 1600MHz; Sapphire ATI Radeon HD 5750 512MB DDR5; W7 HP 64-bit.

Dubák
Level 2
Level 2
Příspěvky: 219
Registrován: červenec 06
Bydliště: podkrkonoší
Pohlaví: Muž
Stav:
Offline

Re: Excel - aut. pojmenovat list stejně jako buňku

Příspěvekod Dubák » 27 bře 2009 14:17

x: A ty by si mi to makro nenapsal? Prostě potřebuji aby se list jmenoval podle buňky A3.
Prosííím.
NB: HP ProBook 4720s (XX838EA)
PC: AMD Phenom II X4 925; MB GA-770T-USB3; RAM Zeppelin Gold - Evolve 4GB (kit 2x 2GB) 1600MHz; Sapphire ATI Radeon HD 5750 512MB DDR5; W7 HP 64-bit.

navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - aut. pojmenovat list stejně jako buňku  Vyřešeno

Příspěvekod navstevnik » 27 bře 2009 14:56

Kdyz tak pekne prosis, tak v editoru VBA (Alt+F11) vloz do modulu prislusnho listu (v okne Project - VBAProject vyber modul listu) a vloz udalostni proceduru:

Kód: Vybrat vše

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$A$3" Then Exit Sub
  ActiveSheet.Name = Range("a3").Value
End Sub

ktera zajisti pri zmene hodnoty v bunce A3 zmenu nazvu listu.

Dubák
Level 2
Level 2
Příspěvky: 219
Registrován: červenec 06
Bydliště: podkrkonoší
Pohlaví: Muž
Stav:
Offline

Re: Excel - aut. pojmenovat list stejně jako buňku

Příspěvekod Dubák » 27 bře 2009 15:00

BOOOOMBAAAAA -
Dííííky moooc. Zvu tě na pivo!!!

// Vlákno označuji za vyřešené. Příště to udělej sám. Díky!
// mike007
NB: HP ProBook 4720s (XX838EA)
PC: AMD Phenom II X4 925; MB GA-770T-USB3; RAM Zeppelin Gold - Evolve 4GB (kit 2x 2GB) 1600MHz; Sapphire ATI Radeon HD 5750 512MB DDR5; W7 HP 64-bit.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4738
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12159
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    4517
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41
  • Excel - výpočet nočních hodin Příloha(y)
    od Uziv00 » 17 říj 2024 11:22 » v Kancelářské balíky
    3
    3292
    od lubo. Zobrazit poslední příspěvek
    24 říj 2024 00:00
  • Excel 2016 - vzorec kombinace podmínek Příloha(y)
    od MK_Vs » 08 led 2025 17:56 » v Kancelářské balíky
    5
    4038
    od lubo. Zobrazit poslední příspěvek
    14 led 2025 00:51

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů