MS Excel

Zhoda názvu v stĺpci Excelu s názvami word súborov v priečinku a ich prepojenie

Dobrý deň,
prosím o pomoc pri vytvorení prepojenia v stĺpci "číslo revízie" aby mi otvorilo wordovský dokument s rovnakým názvom... Viem, že sa to dá manuálne pomocou prepojenia hypertextového odkazu, ale pri dopisovaní nových riadkov, či by sa to dalo automaticky nastaviť, aby to vyhľadalo vo vybranom priečinku číslo revízie, a daný word súbor pripojilo na otvorenie. Napr. pomocou makra a pod. Nižšie pripájam excel a priečonok s word súbormi. Ďakujem

Zaslat odpověď >

Strana: 1 2 další »

Lugr(13.2.2021 17:22)#049851

Něco jsem tu pro Vás našel, ale myslím, že to nebude úplně to co si přejete.

Jen si v makru upravte adresu se složkou kde máte uložené dokumenty.

Příloha: zip

49851_revizie.zip (18kB, staženo 21x)

citovat

Lucia16116(14.2.2021 15:36)#049853

Ďakujem za odpoveď, makro po zmene adresy zložky vyhľadá súbory a pripojí ich na otvorenie...

...jediný problém je, že po aktualizácií (spustení makra) mi usporiada "čísla revízie" od A-Z, bohužiaľ ostatné stĺpce ostanú nezmenené. Dalo by sa s tým ešte niečo spraviť?citovat

Lugr(14.2.2021 18:06)#049855

Takhle?

Příloha: zip

49855_revizie.zip (17kB, staženo 17x)

citovat

Lucia16116(14.2.2021 19:16)#049856

Perfektné, ďakujem.citovat

Lugr(14.2.2021 19:38)#049857

Rádo se stalo.

citovat

Anonym(15.2.2021 15:50)#049862

Dalo by sa ešte makro upraviť tak, aby nebežalo len po určitý riadok (v našom prípade po 10 riadok), ale v každom riadku, v ktorom je hodnota? Mám tabuľku do ktorej budem pravidelne dopisovať (možno aj cez 500 riadkov) a ak definujem makro do konkrétnej bunky (napr. do 500) tak mi zakaždým zbehne makro do každého riadku. Nezapíše mi tam nič, len vždy mi zastane kurzor na poslednom riadku, kde malo bežať makro a ak som len pri prvých 10 riadkoch ... ide skôr o praktickosť ... ďakujem.citovat

Lugr(15.2.2021 16:02)#049863

Sub Odkaz()

Dim link As String
Dim i As Integer
Dim wsData As Worksheet
Set wsData = Worksheets("Hárok1")

RADEK = wsData.Cells(Rows.Count, 3).End(xlUp).Row

For i = 2 To RADEK

Range("C" & i).Select

If ActiveCell = "" Then

ActiveCell = ""

Else

link = "C:\49848_excel-revizie\Revizie dokumenty\" & ActiveCell & ".docx"

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=link, TextToDisplay:=link

End If

Next i

End Subcitovat

Anonym(16.2.2021 21:59)#049885

Ďakujem, kód funguje, ale len v prípade ak ho nepoužívam už v zadefinovanej tabuľke...inak mi zas beží na každom riadku tabuľky :(

Ešte sa chcem opýtať, keď mám v stĺpci "Číslo poslednej revízie" kombináciu čísiel a písmen, tak mi v bunke zobrazí link, resp. cestu k súboru (dokument pripojí správne), len či by sa nedalo zadefinovať, aby mi v bunke vypísalo názov súboru?citovat

elninoslov(17.2.2021 0:10)#049887

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Are As Range, Bunka As Range, Zlozka As String, Subor As String
Set Zmena = Intersect(Columns(3), Target)
If Not Zmena Is Nothing Then
Zlozka = ThisWorkbook.Path & "\Revizie dokumenty\"
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each Are In Zmena.Areas
For Each Bunka In Are.Cells
Subor = Bunka.Value
Subor = Subor & IIf(Right$(Subor, 5) = ".docx", "", ".docx")
If LenB(Subor) = 5 Or Len(Dir(Zlozka & Subor, vbNormal)) = 0 Then
Bunka.Hyperlinks.Delete
Else
Bunka.Value = Subor
Bunka.Hyperlinks.Add Anchor:=Bunka, Address:=Zlozka & Subor, TextToDisplay:=Subor, ScreenTip:=Subor
End If
Next Bunka
Next Are
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Subcitovat

Lucia16116(18.2.2021 16:48)#049899

elninoslov pozriete sa prosím kde mám chybu?

Příloha: rar

49899_revizie_odkaz.rar (174kB, staženo 9x)

citovat

Strana: 1 2 další »

Téma: Zhoda názvu v Exceli s názvami súborov v priecin

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje