< návrat zpět

MS Excel

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

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 10

Zaslat odpověď >
veny(8.2.2021 8:50)#049723
avatar
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
elninoslov
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: zip49724_autorename-list.zip (22kB, staženo 12x)
citovat
larmis(8.2.2021 17:34)#049741
avatar
Děkuji, ale jsem začátečník a moc mi to nejde 6

https://drive.google.com/file/d/1WevpRIz5OfusSorQLrYhx5q7CI7SuXau/view?usp=sharingcitovat
elninoslov(8.2.2021 18:58)#049742
elninoslov
"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
avatar
Tak to je super, funguje to přesně tak jak jsem chtěl.
Mám se co učit 4
mockrát děkuji
Petrcitovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje