Stránka 1 z 1

podmíněný hypertextový odkaz

Napsal: 22 lis 2013 12:21
od Lůjík
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:

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

Napsal: 22 lis 2013 20:23
od cmuch
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

Re: podmíněný hypertextový odkaz

Napsal: 22 lis 2013 23:34
od lubo.
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)

Re: podmíněný hypertextový odkaz

Napsal: 25 lis 2013 09:16
od Lůjík
Super, děkuju moc! :)