Stránka 1 z 1
Odkaz na konkrétní soubor
Napsal: 11 kvě 2012 22:12
od 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"?
Re: Odkaz na konkrétní soubor
Napsal: 12 kvě 2012 06:49
od 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.
Re: Odkaz na konkrétní soubor
Napsal: 12 kvě 2012 12:04
od 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...
Re: Odkaz na konkrétní soubor
Napsal: 12 kvě 2012 19:30
od danko6
Ak dobre rozumiem potrebujes makro aby Ti zmenilo toto .
http://ulozto.sk/xNtZYe8/123-swf
Re: Odkaz na konkrétní soubor
Napsal: 12 kvě 2012 20:14
od 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).
Re: Odkaz na konkrétní soubor
Napsal: 13 kvě 2012 02:46
od 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
Re: Odkaz na konkrétní soubor
Napsal: 13 kvě 2012 10:49
od 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.
Re: Odkaz na konkrétní soubor Vyřešeno
Napsal: 13 kvě 2012 21:42
od esi32
Teď je to to pravé ořechové:-) Makro pracuje přesně podle mých představ.Moc děkuji za pomoc.