Odkaz na konkrétní soubor Vyřešeno

[esi32]

Zdravím,
Potřeboval bych v rámci antiblbových opatření a zrychlení práce vyřešit tento problém.Potřebuji makro,které by vytvořilo odkaz na soubor uložený v počítači.Aby podle jména ve sloupci "B" mi ve sloupci "G"vytvořilo odkaz k souboru uloženým pod jménem v "B" sloupci.Uložené soubory jsou faktury ve formátu.pdf..( Franta Novák-faktura.pdf).
Sám to dohromady nedám:-(
Přikládám sešit s popisem.
Děkuji za případnou pomoc.

--- Doplnění předchozího příspěvku (12 Kvě 2012 02:52) ---

Tak jsem to zvládl,funguje,ale musím ho spustit tlačítkem a to bych potřeboval změnit.Chci,aby se makro spustilo,když do bunky"B"zadám jméno.A ještě jeden problém.Faktury ukládá makro ve tvaru Jméno a přidává k tomu jménu dodatek "faktura".tedy např.Karel Novák-faktura.Ale vytvořený odkaz je podle bunky"B"a tam je pouze jméno(bez dodatku faktura).Jak ho donutit,aby odkaz vytvořil ve formátu"jméno-faktura"?

[Reklama]

[danko6]

Ahoj Esi32.

Podobnu vec som riesil no nemal som problem kym som na 1 uzivatela nemal viac riadkov.
Preto ja som si to nastavil tak aby sa odkaz vytvaral podla poradoveho cisla v stlpci "A" zadanim dalsieho cisla.
Ukladal som subory pod poradovym cislom.

Toto je len priklad robeny na rychlo.

Daniel.

[esi32]

Dík za pokus..zkusím přizpůsobit.

--- Doplnění předchozího příspěvku (12 Kvě 2012 16:00) ---

Tak se nedaří.Potřebuji,aby mi Excel za jméno doplnil dodatek"-Faktura".Tím by se vytvořil odkaz na konkrétní soubor.

--- Doplnění předchozího příspěvku (12 Kvě 2012 16:36) ---

Tož opět hlásím úspěch:-).Takže s názvem už problém není.Teď už jen spustit makro ne tlačítkem,ale změnou hodnoty v bunce.Tedy když se mi do bunky"B" z formuláře uloží jméno,tak v ten okamžik,aby se makro spustilo.Pak přibude další jméno a opět dál a dál...

[danko6]

Ak dobre rozumiem potrebujes makro aby Ti zmenilo toto .


http://ulozto.sk/xNtZYe8/123-swf

[cmuch]

Nahraď své makro tímto.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cesta As String
Dim Pripona As String

Cesta = "C:\Excell\RS\"
Pripona = ".pdf"

Application.ScreenUpdating = False
Application.EnableEvents = False

If Target.Column = 2 Then

For i = 2 To Application.WorksheetFunction.CountA(Range("a:a"))

Cells(i, 8).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cesta & Cells(i, 7) & Pripona, TextToDisplay:=Cells(i, 7) & Pripona

Next


Cesta = "C:\Excell\Dopisy\"
Pripona = ".pdf"

For i = 2 To Application.WorksheetFunction.CountA(Range("a:a"))

Cells(i, 9).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cesta & Cells(i, 7) & Dopis & Pripona, TextToDisplay:=Cells(i, 7) & Dopis & Pripona

Next
Cesta = "C:\Excell\Faktury\"
Pripona = ".pdf"

For i = 2 To Application.WorksheetFunction.CountA(Range("a:a"))

Cells(i, 10).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cesta & Cells(i, 7) & Pripona, TextToDisplay:=Cells(i, 7) & Pripona

Next

End If

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


Zpustí se po změně v Buňce ve sloupci B (Target.Column=2).

[esi32]

Dík za snahu..tvoje makro funguje,ale pouze v případě,že do bunky zadám hodnotu ručně.Ale mě tam hodnoty skáčou z jiného listu.Mám v bunce vzorec:=Archiv!B2.Dokážeš to ošetřit?Já na to nemůžu přijít

[cmuch]

To je jiná.

Kód: Vybrat vše

Private Sub Worksheet_Activate()
Dim Cesta As String
Dim Pripona As String

Cesta = "C:\Excell\RS\"
Pripona = ".pdf"

Application.ScreenUpdating = False
Application.EnableEvents = False

For i = 2 To Application.WorksheetFunction.CountA(Range("a:a"))

Cells(i, 8).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cesta & Cells(i, 7) & Pripona, TextToDisplay:=Cells(i, 7) & Pripona

Next

Cesta = "C:\Excell\Dopisy\"
Pripona = ".pdf"

For i = 2 To Application.WorksheetFunction.CountA(Range("a:a"))

Cells(i, 9).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cesta & Cells(i, 7) & Dopis & Pripona, TextToDisplay:=Cells(i, 7) & Dopis & Pripona

Next
Cesta = "C:\Excell\Faktury\"
Pripona = ".pdf"

For i = 2 To Application.WorksheetFunction.CountA(Range("a:a"))

Cells(i, 10).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cesta & Cells(i, 7) & Pripona, TextToDisplay:=Cells(i, 7) & Pripona

Next

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


Změněno na Aktivaci listu místo Změny v listu, zrušeno hlídání sloupce B.

[esi32]

Teď je to to pravé ořechové:-) Makro pracuje přesně podle mých představ.Moc děkuji za pomoc.