Vaše zdrojové soubory mají číslo 1, 2, ...
Zadejte číslo souboru které chcete importovat
např. u souboru "ŘEZAČKA-2" zadejte "2"
Může být?
Jen si upravte cestu k souboru.
Bylo by možno vložit přílohu? Např. dva zdroje a cílový soubor.
Nemáte za co. Ještě jsem udělal lehkou designovou úpravu.
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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.