podmíněný hypertextový odkaz Vyřešeno

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

Moderátor: Mods_senior

Lůjík
nováček
Příspěvky: 19
Registrován: listopad 13
Pohlaví: Žena
Stav:
Offline

podmíněný hypertextový odkaz

Příspěvekod Lůjík » 22 lis 2013 12:21

Ahoj,
v první řadě bych Vám ráda poděkovala za všechny cenné rady, které jsem zde dosud získala :)
Mám ale ještě jednu vychytávku, se kterou si bohužel nevím rady, a to podmíněný hypertextový odkaz.
Jde o to, že mám v buňce X rozbalovací seznam... řekněmě třeba nabídku "Rozpočet" a "Rozpočet - není součástí".
A potřebovala bych, aby v případě že v buňce X bude "Rozpočet", aktivuje se hypertextový odkaz (který odkazuje na list "Rozpočet").
Můžete mi, prosím, někdo poradit?
Děkuju moc moc! :) :thumbup:

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: podmíněný hypertextový odkaz  Vyřešeno

Příspěvekod cmuch » 22 lis 2013 20:23

Nevím zda to jde jinak než makrem, nepřišel jsem na to.

Tady je makro, které vlož do modulu příslušného listu, v kterém chceš vytvářet ten hypertextový odkaz.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

 Dim rngHlidani As Range

 'nastaveni hlidani oblasti
 Set rngHlidani = Range("E14")

 ' pokud je vybrana bunka z definovane oblasti a rovna se hodnote tak proved
 If Target.Value = "Rozpočet" And Union(rngHlidani, Target).Address = rngHlidani.Address Then

    Target.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & Target.Value & "'!A1", TextToDisplay:=Target.Value
  Else
 
   Target.Hyperlinks.Delete

 End If
End Sub

lubo.
Level 2
Level 2
Příspěvky: 192
Registrován: červen 13
Pohlaví: Nespecifikováno
Stav:
Offline

Re: podmíněný hypertextový odkaz

Příspěvekod lubo. » 22 lis 2013 23:34

Předpokládám, že jméno listu je v A1 a sešit se jmenuje Sešit1.xlsx

=HYPERTEXTOVÝ.ODKAZ("[Sešit1.xlsx]"&A1&"!A5";A1)

(Kdyř to budete zkoušet, musí mít sešit kopii na disku)

Lůjík
nováček
Příspěvky: 19
Registrován: listopad 13
Pohlaví: Žena
Stav:
Offline

Re: podmíněný hypertextový odkaz

Příspěvekod Lůjík » 25 lis 2013 09:16

Super, děkuju moc! :)


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

Kdo je online

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