• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Přejmenování dvou listů z buňky

Zaslal/a larmis 8.2.2021 8:26

Zdravím,
Pracuji s dokumentem, kde je na čtvrtém listu seznam jmen v sloučených buňkách K4:k5 až AD4:AD5. Ke každému jménu náleží dva listy, jeden se Jménem a druhý Trénink + jméno.
Potřeboval bych ,když změním jméno aby se přepsaly oba listy a zároveň aby buňka se jménem sloužila jako odkaz na první list se jménem.
Jde něco takového udělat, předem děkuji Petr

Zaslat odpověď >

---

veny(8.2.2021 8:50)#049723

kouněte http://wall.cz/index.php?m=topic&id=490
nicméně si myslím že problém budou sloučené buňky
Odkaz na list si jednoduše vytvoříte pravým klikem na buňku a vložením odkazucitovat

elninoslov(8.2.2021 10:42)#049724

To je docela rizikové na chybu. Musíte mať niekde uložené staré názvy. Tu som ich dal do listu OLD.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, rngOLD As Range, H As String, MSG As String
Set Zmena = Intersect(Range("K4:AD4"), Target)
If Not Zmena Is Nothing Then
On Error GoTo CHYBA
For Each Bunka In Zmena.Cells
Set rngOLD = wsOLD.Range(Bunka.Address)
H = Bunka.Value
Worksheets(rngOLD.Value).Name = H
Worksheets("Trénink " & rngOLD.Value).Name = "Trénink " & H
Bunka.Hyperlinks.Add Bunka, "", Split(Worksheets(H).Cells(1, 1).Address(, , 0, 1), "]")(1), H
rngOLD.Value = H
CHYBA:
If Err.Number <> 0 Then MSG = MSG & IIf(MSG = "", "", vbNewLine) & H
Next Bunka
If MSG <> "" Then MsgBox "Tieto zmenené hodnoty sa nepodarilo správne aplikovať:" & vbNewLine & MSG, vbCritical
End If
End Sub

Příloha: 49724_autorename-list.zip (22kB, staženo 11x)

citovat

larmis(8.2.2021 17:34)#049741

Děkuji, ale jsem začátečník a moc mi to nejde

https://drive.google.com/file/d/1WevpRIz5OfusSorQLrYhx5q7CI7SuXau/view?usp=sharingcitovat

elninoslov(8.2.2021 18:58)#049742

"Training" nieje "Trénink".
Worksheet_Change sa nedáva do modulu ale do listu.
Meno "Jméno 1" nie je to isté ako "Jméno1".
Upravené, vyskúšajte. Zmena tých mien je ale poriadne nepohodlná, kvôli tomu odkazu.
Link na súborcitovat

larmis(8.2.2021 19:22)#049743

Tak to je super, funguje to přesně tak jak jsem chtěl.
Mám se co učit
mockrát děkuji
Petrcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse