Příspěvky uživatele
< návrat zpět
Mrkněte na to jestli je to takhle dobré.
Teď to nechápu. Máte data v listech 1 - 12 a zbytek udělá makro ne?
Přidal jsem název, množstvo jste tam měla, tak ještě cenu, ale to už si nastavíte sama.
Proto tam máte KT
Třeba tak?
Je to takový ten přebytečný "balast" co dělá tu diskotéku na monitoru.
Není za co. Odstranil jsem ty přebytečný selecty a atd z Vašeho původního makra.
Tak?
Tak?
lze i takto:
=A1&B1
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.
Uživatelské menu
\nFormulář 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