Excel VBA - opakující se hypertextový odkaz

[Yves]

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.

[Reklama]

[cmuch]

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.

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

[Yves]

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

[cmuch]

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.

[guest]

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))

[cmuch]

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?

[guest]

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.

[cmuch]

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....

[guest]

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.

[cmuch]

To je dobré