Stránka 1 z 1
Proměnný hypertextový odkaz
Napsal: 30 kvě 2013 12:26
od spespe
Zdravim všechny
Potřebuji vytvořit makro, které bude vytvářet pro každý řádek hyperodkaz, ale problém je že soubory jsou uloženy v různých složkách podle datumu
v podstatě jsem to vytvořil,ale když na to koukám tak mi to příjde zbytečně složitý
a ještě mám jeden problém ,pokud v jeden den soubor od jednoho člověka je označen _2 a tam už mne nenapadá jak to udělat.
Snad to bude k pochopeni v přiloženém souboru.
A ještě něco, jde nějak ověřit zda odkaz funguje?
Díky za každou radu
Re: Proměnný hypertextový odkaz
Napsal: 30 kvě 2013 13:27
od cmuch
Ten datum bych zjednoduššil takto
Kód: Vybrat vše
Dim datumek As Variant
datumek = Format(Cells(A, 6), "ddmmyy")
a ještě mám jeden problém ,pokud v jeden den soubor od jednoho člověka je označen _2 a tam už mne nenapadá jak to udělat.
Přidal bych ještě jeden sloupec s fcí countifs a výsledek bych přidal do hypertextového odkazu.
Re: Proměnný hypertextový odkaz
Napsal: 30 kvě 2013 18:39
od spespe
Super, tak rady zabraly.
Dík
--- Doplnění předchozího příspěvku (30 Kvě 2013 18:42) ---
Ještě kdyby někdo věděl jestli se dá zjistit jetli je odkaz funkční (myslim zjistit makrem,kliknout si na něj umim
), sice to neni nutný ,ale spiš by mně to zajímalo.
Re: Proměnný hypertextový odkaz
Napsal: 30 kvě 2013 20:14
od cmuch
Vyzkoušej toto
" Existuje Soubor "
Kód: Vybrat vše
Sub ExistujeSoubor()
'
Dim Cesta As String
Dim Response As Byte
Cesta = "C:\Users\Cmuch\Documents\pepa.pdf"
' Zkontrolujeme, zda soubor existuje
If Dir(Cesta) = "" Then
Response = MsgBox("Soubor nenalezen !! ", vbCritical)
End If
Response = MsgBox("Soubor existuje !! ", vbInformation)
End Sub
Re: Proměnný hypertextový odkaz
Napsal: 31 kvě 2013 14:38
od spespe
Tady člověk prostě zjistí všechno
Díky
Akorát se tam vloudila malá chybička, když soubor nexistuje tak to hodí i hlášku o existujícim. Ale to jsem si opravil.
Díky za rady
Re: Proměnný hypertextový odkaz
Napsal: 31 kvě 2013 17:27
od pavel.lasak
Upravený skript, kdyby někdo nevěděl jak upravit ať funguje jak má
Kód: Vybrat vše
Sub ExistujeSoubor()
Dim Cesta As String
Dim Response As Byte
Cesta = "C:\Users\Cmuch\Documents\pepa.pdf"
' Zkontrolujeme, zda soubor existuje
If Dir(Cesta) = "" Then
Response = MsgBox("Soubor nenalezen !! ", vbCritical)
Else
Response = MsgBox("Soubor existuje !! ", vbInformation)
End If
End Sub
Re: Proměnný hypertextový odkaz
Napsal: 01 čer 2013 12:58
od cmuch
Omlouvám se za chybičku.
Vypadlo mi Exit sub, ale jak to upravil Pavel je také řešení.