Makro na vložení hypertextového odkazu

[mmmartin]

Řeším problém, jak pomocí makra v EXCELu vložit do aktuálně zvolené buňky písmeno x a tomuto písmenu přiřadit hypertextový odkaz. Vzhledem k tomu, že cíl hypertextového odkazu bude pokaždé jiný, potřebuji, aby makro "skončilo" v okamžiku, kdy se otevře okno Vložit hypertextový odkaz, ve kterém má být cíl odkazu vybrán. Dál už by se pokračovalo"ručně", tj. proklikáním se k cíli odkazu a potvrzením kliknutím na OK.

// Opraven překlep v názvu tématu
// Přesunuto do správné sekce - Kancelářské balíky
// Styď se, moderátore !!!
// mike007

[mike007]

Třeba takto:

Kód: Vybrat vše

Sub vlozit_odkaz()
ActiveCell = "x"
odkaz = InputBox("Zadej odkaz", "Odkaz", "http://")
ActiveCell.Hyperlinks.Add ActiveCell, odkaz
End Sub

[mmmartin]

A děkuju.

[mmmartin]

Ještě jednou se vracím k problému: makro funguje, ale okno, které se otevře, mi dává jenom možnost napsat cíl odkazu z klávesnice. Šlo by způsob vkládání změnit tak, aby bylo možné se k cíli "proklikat" ?

PS: ještě se trochu stydím...

[mike007]

Nestyď se furt a raděj mi pořádně vysvětli odkud a jak chceš odkaz tahat

[mmmartin]

Vytváří se Přehled souborů, které jsou uloženy v různých složkách na serveru. Do Přehledu se zapisují do sloupců B a C základní údaje,v dalších sloupcích se znakem X vyznačuje, že došla poptávka, že byla vytvořená nabídka, že přišla objednávka atd. Přijde poptávka, já ji uložím na server do složky Poptávky, napíšu nabídku a tu uložím do složky Nabídky. V Přehledu vyplním údaje ve sloupcích B a C, vyberu buňku ve sloupci D, E,... a spustím makro.
To by mělo do vybrané buňky vložit znak X jako označení, že soubor existuje a mělo by tomuto znaku přiřadit hypertextovým odkazem příslušný soubor (poptávku,...) na serveru. Až potud tvoje makro funguje. Problém je v tom, že cesta k souboru je poměrně dlouhá a cílových složek je pro každý druh souboru 12 do roka a je proto dost pracné cestu vypisovat ručně. Uvítal bych, kdyby v tom okně pro vložení cíle odkazu bylo něco na způsob tlačítka Procházet, aby se dalo k souboru docestovat postupným proklikáváním se strukturou adresáře.
Ve finále by měl soubor Přehled umožňovat otvírat jednotlivé poptávky, nabídky,..... kliknutím na příslušný znak X.

[mike007]

Tak tady to máš.
Pokud hledané soubory nejsou v Excelu, tak si uprav příponu nebo vymaž FileFilter:="Excel Files (*.xls), *.xls",

Kód: Vybrat vše

Sub vlozit_odkaz()
odkaz = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Prosím vyber XLS dokument")
If odkaz = False Then Exit Sub
ActiveCell = "x"
ActiveCell.Hyperlinks.Add ActiveCell, odkaz
End Sub

[mmmartin]

To nemá chybu, funguje to přesně podle představ. Děkuji!!