Hyperlink autofill help

[OdinIII]

Hello, I'm trying to simplify the addition of thousands of hyperlinks in a spreadsheet. I have the pictures in a folder and just need to figure out how to get autofill to work with the addressing.

The formula below points to the beginning of a series of pictures. How can I drag down and have the file name increment numerically?

=HYPERLINK("20181109 Audit Items\IMG_1364.JPG","IMG_1364.JPG")

This is what I'd like to happen when I drag down.

[TABLE="width: 500"]
<tbody>[TR]
[TD]=HYPERLINK("20181109 Audit Items\IMG_1364.JPG","IMG_1364.JPG")[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]=HYPERLINK("20181109 Audit Items\IMG_1365.JPG","IMG_1365.JPG")[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]=HYPERLINK("20181109 Audit Items\IMG_1366.JPG","IMG_1366.JPG")[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]=HYPERLINK("20181109 Audit Items\IMG_1367.JPG","IMG_1367.JPG")[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[cooper645]

You could insert just the number that needs to ascend (1364,1365 etc) and drag down the column. Then slightly edit the code I posted earlier here:

https://www.mrexcel.com/forum/excel-questions/1077242-link-lookups-corresponding-pdfs.html

Option Explicit

Sub InsertLinks()


'Decalrations
Dim LastRow As Long, cell As Range


'Error handling for blank rows in range
On Error Resume Next


'Asume a large amount of data, so turn off screen updating
Application.ScreenUpdating = False


'Find Last Row of Img Numbers (Assuming they are in column A)
LastRow = Cells(Rows.Count, "A").End(xlUp).Row


'Add hyperlink to each cell in the range from assumed range of Img numbers (A1 to A and whatever th lastrow was)
For Each cell In ActiveSheet.Range("A1:A" & LastRow)
    cell.Hyperlinks.Add Range(cell.Address), Address:="20181109 Audit Items\IMG_" & cell.Value & ".JPG", TextToDisplay:="IMG_" & cell.Value & ".JPG"
Next cell


'Turn Screen updating back on
Application.ScreenUpdating = True
End Sub

Or

List the numbers in Column A as I proposed
Then in column B: (assume Row 1 for first link)

=HYPERLINK("20181109 Audit Items\IMG_"&A1&".JPG","IMG_"&A1&".JPG")

 

[OdinIII]

List the numbers in Column A as I proposed
Then in column B: (assume Row 1 for first link)

=HYPERLINK("20181109 Audit Items\IMG_"&A1&".JPG","IMG_"&A1&".JPG")

Thanks Cooper645,

I went with the plan above. I was focused on creating code entirely inside the Hyperlink formula and didn't think of just putting the numbers in a hidden column. Thanks again.

 

[cooper645]

Glad to have helped. Thanks for letting us know.