• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: SVYHLEDAT s Hypertextovým odkazem

Zaslal/a skyker 4.7.2014 15:58

Dobrý den,

prosím Vás o radu.

Nemůžu přijít na nejspíše triviální věc, jak přes funkci SVYHLADAT najít buňku s hypertextovým odkazem, konkrétně odkaz na jiný list v sešitě a aby se mi obsah včetně tohoto odkazu zkopiroval do buňky se vzorcem SVYHLEDAT.

Zatím mám vzoreček =HYPERTEXTOVÝ.ODKAZ(KDYŽ(A10="";"";SVYHLEDAT(A10;zákazník!$A$2:$C$65536;2;NEPRAVDA)))

To mi funguje tak, že mi zkopíruje pouze obsah buňky.
Jak to udělat aby mi to zkopírovalo i včetně odkazu?

Nejraději bych to vyřešil jen vzorcem, ale pokud by to jinak nešlo, tak i přes VBA. Akorát potřebuju ten vzorec rozkopírovat do dalších řádku, tak si myslím že ideální by bylo si vytvořit vlastní funkci, ale s tím si nevím rady.

Podařilo se mi dát dohromady tuhle funkci:

Function ExLink(rng As Range) As String
If rng(1).Hyperlinks.Count Then ExLink = rng.Hyperlinks(1).Address
End Function

Ta ale dokáže vytáhnout pouze externí odkaz, ne odkaz na list v sešitě.

Předem děkuji za jakoukoliv pomoc

Zaslat odpověď >

---

lubo(4.7.2014 17:00)#020364

Co máš ve druhém sloupci?

Musí tam být adresa:

[sešit]List!A1

nebo oprav vzorec např.:

=HYPERTEXTOVÝ.ODKAZ(KDYŽ(A10="";"";"[sešit.xlsx]"&SVYHLEDAT(A10;zákazník!$A$2:$C$65536;2;NEPRAVDA)))citovat

skyker(8.7.2014 9:01)#020413

Ve druhém sloupci mám nějaký text a po kliknutí se mi to odkáže na jiný list v sešitě, i když tam napíšu přimo tu adresu, tak se mi vytáhne jenom ten text, nevytvoří se mi hypertextový odkaz, respektive hypertextový odkaz se mi vytvoří díky =HYPERTEXTOVÝ.ODKAZ ale ten je prázdý Potřebuji aby se mi vytáhnul jak ten text, tak i ten odkaz, spokojil bych se i s tím kdybych musel mít napsaný ve druhém sloupci v textu odkaz na sešit.

Doufám že jsem to napsal nějak srozumitelně :) Pátral jsem různě po internetu, ale nic funkčního jsem nenašel.

Přeci není možné, že by taková jednoduchá věc nešla udělat :(

Kdo mi to pomůže vyřešit, má u mě flašku citovat

eLCHa(8.7.2014 9:14)#020417

Můžete vložit přílohu?citovat

skyker(8.7.2014 9:54)#020422

Trochu jsem to zjednodušil.List 1 sloupec B, vzorec SVYHLEDAT z List 2, kde potřebuji ze sloupce B zkopírovat text ano,ne, když je ano, tak i s hypertextovým odkazem. Ten hypertextový odkaz v Listu dvě, se zadává ručně na různé listy v sešitě.

Příloha: 20422_hyper.xls.zip (8kB, staženo 58x)

citovat

eLCHa(8.7.2014 12:46)#020429

Trochu jsem si s tím hrál, ale nic moc to není.
Vlastní fceFunction fncGetHyperlinkURL(rCell As Range) As String
On Error Resume Next
fncGetHyperlinkURL = "[" & ThisWorkbook.Name & "]" & rCell.Hyperlinks(1).SubAddress
On Error GoTo 0
End Function
Fce na listu=HYPERTEXTOVÝ.ODKAZ(fncGetHyperlinkURL(INDEX(List2!$B$2:$B$65536;POZVYHLEDAT(A2;List2!$A$2:$A$65536;0)));INDEX(List2!$B$2:$B$65536;POZVYHLEDAT(A2;List2!$A$2:$A$65536;0)))

Běhá to, ale já htodkazy v listu nepoužívám, takže s tím extra zkušenosti nemám. Pravděpodobně vymyslí někdo něco lepšího ;)citovat

skyker(8.7.2014 13:43)#020432

No páni, funguje to, díky moc, jseš borec. Tohle bych nedal dohromady ani omylem. Moc jsi mi pomohl, pošli mi do mejlu adresu, něco ti pošlu citovat

ruzickap(21.1.2016 12:25)#029438

Ahoj eLCHa,
mám prosbu. Využil jsem tuto tvojí skvělou funkci. Všechno funguje, ale odkaz nefunguje :( nemůžu za nic najít chybu, myslím ale, že to bude souviset s tím, že se jedná o odkaz na soubor, nikoliv na buňku v rámci sešitu. můžu poprosit o radu? :)
díky moc
Pavelcitovat

eLCHa(22.1.2016 10:31)#029462

@ruzickap
Ježiš. Už jsem zapomněl, že jsem něco takového vymýšlel ;))

Všechno funguje, ale odkaz nefunguje
V tom tvrzení mi něco nesedí ;)))

Ale bez přílohy vám neřeknu, co děláte špatně. Zkoušel jste toto?Function fncGetHyperlinkURL(rCell As Range) As String
On Error Resume Next
fncGetHyperlinkURL = rCell.Hyperlinks(1).SubAddress
On Error GoTo 0
End Functioncitovat

ruzickap(22.1.2016 12:57)#029467

díky za rychlou odpověď! Pravda, v tom tvrzení moc logiky nebylo :)) dávám přílohu. nedaří se mi, aby se obrázek otevřel přes "přesunutý" hypertext. tváří se jako hypertext, ale nic to nedělá..
díky:))

Příloha: 29467_balicak_test.zip (15kB, staženo 49x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse