hello
I try finding way to add hyperlink in sheet data after save the file as pdf what i want after save file then create hyperlink in column a in sheet data based on cells value I1 in sheet "brand"
so far this is what I got
Sub createhyperlink()
Application.ScreenUpdating = False
Dim wb As Workbook, srcSh As Worksheet, dstSh As Worksheet
Dim src As Range, dst As Range, pth$, docNm$
Set wb = ThisWorkbook
Set srcSh = wb.Worksheets("brand")
Set src = srcSh.[I1]
Set dstSh = wb.Worksheets("data")
Set dst = dstSh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
docNm = src & " - " & src
pth = Environ("userprofile") & "\Documents\" & docNm & ".pdf"
srcSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pth
dst(1) = src: dstSh.Hyperlinks.Add dst(2), pth, , src
Application.ScreenUpdating = True
End Sub