Zdravím a prosím o pomoc. Ve VBA jsem totální začátečník, ale poslední dobou se v tom šťourám (i když třeba nerozumím úplně všemu, tak se aspoň snažím - na msgboxy už jsem machr ).
Ale dalo by se udělat makro, které by fungovalo tak:
Na Listu 1 mám ve sloupci B seznam hodnot, a potřebuju, aby se mi kliknutí na buňku B2 odkázalo na buňku B2 v Listu 2, z B3 na listu 1 na B3 v listu 2 atd.
Vím, že to jde udělat přes klasický hypertextový odkaz, jenže těch hodnot jsou tisíce, a dělat to s každou zvlášť..
nebo pokud to jde udělat bez makra, budu taky ráda.
Díky předem za pomoc.
Excel VBA - opakující se hypertextový odkaz
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - opakující se hypertextový odkaz
Bez makra by to šlo taky, ale byl by to opruz.
Tady je makro co vybere bunku na nasledujícím listu.
Pokud je list posledni tak se vybere buka na prvnim listu.
V tech bunkach nemej HTodkazy.
nebo pokud chceš HT tak by se muselo udělat jine makro které by přidalo HT po změně v sl. B
Tady je makro co vybere bunku na nasledujícím listu.
Pokud je list posledni tak se vybere buka na prvnim listu.
V tech bunkach nemej HTodkazy.
Kód: Vybrat vše
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rVyber As Variant
'je vyber ve sl. B (A=1)
If Target.Column = 2 Then
Application.EnableEvents = False
'vybere se bunka na nasledujicim listu
'pokud je aktivni posledni list tak se vybere bunka na prvnim listu
If Sh.Index + 1 <= Sheets.Count Then
rVyber = Target.Address
Sheets(Sh.Index + 1).Select
Range(rVyber).Select
Else
rVyber = Target.Address
Sheets(1).Select
Range(rVyber).Select
End If
Application.EnableEvents = True
End If
End Sub
nebo pokud chceš HT tak by se muselo udělat jine makro které by přidalo HT po změně v sl. B
Re: Excel VBA - opakující se hypertextový odkaz
Bohužel, v některých je už mám, a už se mi nechtějí mazat.. ale i tak děkuju. Nic takovýho bych nevymyslela ani za sto let
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - opakující se hypertextový odkaz
Jeste jsem zapomel uvestt, ze to makro prijde do modulu ThisWorkbook.
Jinak ty HT odkazy tam byt mohou, vadit to nebude.
Nebo jak jsem psal, slo by po zmene bunky sl.B tam zapisovat HT automaticky.
A klidne i makro co by doplnilo HT i do jiz obsazenych bunek.
Staci si vybrat popripade sem dam obe varianty.
Jinak ty HT odkazy tam byt mohou, vadit to nebude.
Nebo jak jsem psal, slo by po zmene bunky sl.B tam zapisovat HT automaticky.
A klidne i makro co by doplnilo HT i do jiz obsazenych bunek.
Staci si vybrat popripade sem dam obe varianty.
-
- Pohlaví:
Re: Excel VBA - opakující se hypertextový odkaz
A proč makro??? Ono by chtělo vědět, že existuje i funkce pro hypertextové odkazy, že...
Od boku pro B2 a roztáhnout dolů:
=HYPERTEXTOVÝ.ODKAZ("#'List2'!"&ODKAZ(ŘÁDEK();2;4);ODKAZ(ŘÁDEK();2;4))
Od boku pro B2 a roztáhnout dolů:
=HYPERTEXTOVÝ.ODKAZ("#'List2'!"&ODKAZ(ŘÁDEK();2;4);ODKAZ(ŘÁDEK();2;4))
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - opakující se hypertextový odkaz
xlnc píše:A proč makro??? Ono by chtělo vědět, že existuje i funkce pro hypertextové odkazy, že...
No to sice ano, ale pokud v buňkách jsou již hodnoty tak pak jak s fci?
-
- Pohlaví:
Re: Excel VBA - opakující se hypertextový odkaz
No a je těžké to předělat, poslepovat do podoby:
=HYPERTEXTOVÝ.ODKAZ("#'List2'!"&ODKAZ(ŘÁDEK();2;4);"původní hodnota")
Nebo nevím, v čem je problém.
=HYPERTEXTOVÝ.ODKAZ("#'List2'!"&ODKAZ(ŘÁDEK();2;4);"původní hodnota")
Nebo nevím, v čem je problém.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - opakující se hypertextový odkaz
To ano, ale pokud nechci použít pomocný sloupec tak bych musel původní hodnotu psát do fce ručně.
A když je hodnot spousty....
A když je hodnot spousty....
-
- Pohlaví:
Re: Excel VBA - opakující se hypertextový odkaz
Ale nemusel, i když je to trochu pracné. Udělat ze vzorce slepenec ve smyslu ="první část vzorce" & odkaz & "druhá část vzorce" (je potřeba správně naložit s uvozovkami podle pravidla "za každé viditelné jedny navíc"). Rozkopírovat vzorec dolů, převést vzorce na hodnoty a nahradit HYP za =HYP. Následně výsledkem nahradit původní hodnoty ve sloupci B.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Windows 10 - neustále se opakující neúspěšná aktualizace Příloha(y)
od Ferdinand » 20 pro 2023 21:31 » v Windows 11, 10, 8... - 15
- 2752
-
od Ferdinand
Zobrazit poslední příspěvek
11 led 2024 18:45
-
-
- 16
- 6948
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3705
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 1
- 752
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 3
- 2346
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti