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 Vyřešeno
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í.