Hvala Ivek ali nisam na to mislio
Ovaj kod mi odradjuje ali moram kliknuti na celiju
pa tek onda mi napravi putanju i tako svaki put
kad želim da mi napravi putanju do fajla,
a mislio sam da snima link jedan ispod drugog
Kod
Code:
Dim lngCount As Long
Dim cl As Range
Set cl = Range ("A10")
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
' Add Hyperlinks
cl.Worksheet.Hyperlinks.Add _
Anchor:=cl, Address:=.SelectedItems(lngCount), _
TextToDisplay:=.SelectedItems(lngCount)
' Add file name
'cl.Offset(0, 1) = _
' Mid(.SelectedItems(lngCount), InStrRev(.SelectedItems(lngCount), "\") + 1)
' Add file as formula
cl.Offset(0, 1).FormulaR1C1 = _
"=TRIM(RIGHT(SUBSTITUTE(RC[-1],""\"",REPT("" "",99)),99))"
Set cl = cl.Offset(1, 0)
Next lngCount
End With
Ovdje bi trebalo izmjeniti kod da snima jedan ispod drugog putanju
Code:
Jasmin