Proměnný hypertextový odkaz Vyřešeno

[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

[Reklama]

[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.

[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.

[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


[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

[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


[cmuch]

Omlouvám se za chybičku.
Vypadlo mi Exit sub, ale jak to upravil Pavel je také řešení.