Temat: Automatyczne wstawianie hiperłacza do katalogu z plikiem,...

Witam, Sporo czasu pracowałem w Excelu ale jest dość przeciążony, postanowiłem przesiąść się na bazy danych ACCESS. W excel'u miałem makro które automatycznie tworzyło hiperłacze do pliku z danego folderu. A wyglądało to tak:
""""""""""""""""""
Sub HiperłączaDoReklamacji()

Dim ilosc As Long
Dim i As Long
Dim numer As String
'indeks kolumny (1 - 256)

kolumna = 1

'pobranie indeksu ostatniej komórki w danej kolumnie

ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row

ilosc = ostatnia - 1
For i = 4 To ilosc

numer = ActiveSheet.Range("B" & i).Value
ActiveSheet.Range("B" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"G:\Public\Reklamacje\" & numer & ".pdf", TextToDisplay:= _
"" & numer & ""

numer = ActiveSheet.Range("M" & i).Value
ActiveSheet.Range("M" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"G:\Public\Reklamacje\" & numer & ".pdf", TextToDisplay:= _
"" & numer & ""

Next i
"""""""""""""""""""""

Posiadam Folder z plikami w formacje PDF, np.:
C:/folder1/folder2/plik1.pdf
C:/folder1/folder2/plik2.pdf
C:/folder1/folder2/plik3.pdf

Chciałbym aby po wpisaniu w komórkę kolumny(REKLAMACJE) nazwę "plik1" automatycznie przypisywało hiperłącze do danego pliku z ww ścieżki.

Proszę o wsparcie :)
Pozdrawiam - KrzysztofTen post został edytowany przez Autora dnia 25.01.20 o godzinie 17:19