Hej jag har ett makro som hämtar uppgifter i flera exceldokument som ligger i en mapp.
Detta fungerar bra men jag vill i A-kolumen hyperlänka så att jag kan öppna detta dokument genom att klicka på texten som finns i A.
Man kan ju lägga in länkar manuellt men det handlar om flera hundra & blir fler hela tiden.
Bifogar nuvarande kod !
Sub DataFiler()
Dim Sökväg As String
Dim Fil As String
Dim i As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
Sökväg = "F:\KINGSTON\Rep\*.xls"
i = 1
Fil = Dir(Sökväg)
Do While Fil <> ""
Set wb = Workbooks.Open(Left(Sökväg, InStr(1, Sökväg, "*") - 1) & Fil)
' Set wb = Workbooks.Open(Fil)
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 3) = wb.Worksheets("Blad1").Range("C2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 1) = wb.Worksheets("Blad1").Range("A2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 2) = wb.Worksheets("Blad1").Range("B2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 5) = wb.Worksheets("Blad1").Range("F2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 4) = wb.Worksheets("Blad1").Range("D2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 6) = wb.Worksheets("Blad1").Range("G2")
wb.Close False
Fil = Dir
Application.StatusBar = i & " : " & Fil
i = i + 1
Loop
' Sortering
Range("A5:F234").Sort Key1:=Range("B5"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Tacksam för hjälp...