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! :)
podmíněný hypertextový odkaz Vyřešeno
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: podmíněný hypertextový odkaz Vyřešeno
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.
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
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)
=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
Super, děkuju moc! :)
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti