Hi,
I have problem with my vba code..
What I want it to do is pick a value from 1st cell and make a hyperlink in another cell with with that value. Value is only used for making a filename.
This need to be done for all 1st cells containing some value.
I will post my code it will be more clear.
Any suggestions?
Thanks.
I have problem with my vba code..
What I want it to do is pick a value from 1st cell and make a hyperlink in another cell with with that value. Value is only used for making a filename.
This need to be done for all 1st cells containing some value.
I will post my code it will be more clear.
Code:
Private Sub Worksheet_Activate()
Call UbaciLinkM
End Sub
Sub UbaciLinkM()
Dim rLastCell As Range
Dim Cell As Range
Dim Cell1 As Range
Dim DevNum As String
Dim fPath As String
Dim fName As String
Range("A2").Select
Set rLastCell = Worksheets("Gubici").Range("M" & Cells.Rows.Count).End(xlUp)
For Each Cell1 In Range("M2", rLastCell)
Dev_Num = ActiveCell.Offset(0, 0).Value
fPath = Application.ActiveWorkbook.Path
fPath = fPath & "\HACCP-07\"
fName = Dev_Num & ".pdf"
Set Cell = ActiveCell.Offset(0, 12)
Cell.Hyperlinks.Add Anchor:=Cell1, Address:=fPath & Replace([fName], "/", "-")
Next Cell
End Sub
Any suggestions?
Thanks.