Příspěvky uživatele
< návrat zpět
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
Nešlo by využít něco z předešlého tématu:
Zhoda názvu v Exceli s názvami súborov v priecin
Rádo se stalo. 
Takhle?
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.
Možná by bylo lepší než obrázky vložit vzorový soubor a pokud tam máte citlivá data, tak klidně i bez dat.
Tohle klidně přenechám někomu jinému.
Mě neděkujte, vyřešil jste si to sám.
Tak?
Ale funguje pouze za předpokladu, že rozsah bude v daném roce.
Omlouvám se, ale tohle je dlouhé zimní večery. Jak říká můj kolega "Pokud to funguje, tak se v tom nevrtej!"
Není za co. Zítra na to mrknu, když bude chvilka. Já jsem taky jen samouk, je tu spousta jiných borců co dokáží vyloženě zázraky.
Tak pokud to máte propojené ještě s jinými tabulkami, tak to Vás nepotěší moje přílohy, protože jsem Vám to poněkud překopal. 
Tak jsem ještě odstranil KT. Jen se mi tam nelíbí ten odemčený sloupec G na listech s měsíci, jinak si myslím, že je to použitelné.
Zamknul jsem Vám (bez hesla) buňky se vzorci a na Kartě Data jsem dal makro, na kopírování dat z listů s měsíci.
Bohužel nemám teď čas se tomu věnovat, tak snad si už poradíte, případně na to mrknu v pondělí.
Něco takového?
Ok, ráno na to mrknu.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články