< návrat zpět

MS Excel


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

Zaslal/a 12.2.2021 22:26

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

Příloha: rar49848_excel-revizie.rar (43kB, staženo 11x)
Zaslat odpověď >

Strana:  1 2   další »
#049851
Lugr
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: zip49851_revizie.zip (18kB, staženo 20x)
citovat
#049853
avatar
Ď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
#049855
Lugr
Takhle?
Příloha: zip49855_revizie.zip (17kB, staženo 16x)
citovat
#049856
avatar
Perfektné, ďakujem.citovat
#049857
Lugr
Rádo se stalo. 1citovat
#049862
avatar
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
#049863
Lugr
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 Sub
citovat
#049885
avatar
Ď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
#049887
elninoslov
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 Sub
citovat
#049899
avatar
elninoslov pozriete sa prosím kde mám chybu?
Příloha: rar49899_revizie_odkaz.rar (174kB, staženo 8x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09