< návrat zpět

MS Excel

Téma: SVYHLEDAT s Hypertextovým odkazem rss

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
avatar
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
avatar
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ý 7 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 5citovat
icon eLCHa(8.7.2014 9:14)#020417
eLCHa
Můžete vložit přílohu?citovat
skyker(8.7.2014 9:54)#020422
avatar
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: zip20422_hyper.xls.zip (8kB, staženo 61x)
citovat
icon eLCHa(8.7.2014 12:46)#020429
eLCHa
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
avatar
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 5citovat
ruzickap(21.1.2016 12:25)#029438
avatar
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
icon eLCHa(22.1.2016 10:31)#029462
eLCHa
@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
avatar
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: zip29467_balicak_test.zip (15kB, staženo 51x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje