CODEWITHSUNDEEP
excelvbahyperlink
Uroš Grum
Uroš Grum

Reputation: 138

Excel Hyperlink does not work

I have been batling this suposedly simple problem for 2 hours now and I just cant figure it out. I am trying to make a link and no matter how many " marks I try it always ends up in error or the link says & Poracun(Z).Ime & Can anyone find me a way that I can change the link name ? Here is my code: 

Cells(i, "B").Formula = "=HYPERLINK(""[" & ActiveWorkbook.Path & "\" & "DN_Pokalkulacija.xlsx" & "]" & "'" & "Sheet1" & "'" & "!E" & Poracun(Z).Vrstica & ""","" & Poracun(Z).Ime & "")"

Upvotes: 0

Views: 97

Answers (2)

Uroš Grum
Uroš Grum

Reputation: 138

I have figured it out , it was quotation problem, i forgot all about it and now i have read up on it inside quotation string you need to make double quotation to use as single in final string. Here is a working link :

g = "=HYPERLINK(""[" & ActiveWorkbook.Path & "\" & "DN_Pokalkulacija.xlsx" & "]" & "'" & "Sheet1" & "'" & "!E" & Poracun(Z).Vrstica & """,""" & Poracun(Z).Ime & """)"

It was all in quotation (") marks :)

Upvotes: 0

chris neilsen
chris neilsen

Reputation: 53136

Two issues:

  1. Your " delimiting is not quite right
  2. Formula expects ' around the file name, not the sheet. Like '[FileName]SheetName'!

Try

Cells(5, "B").Formula = "=HYPERLINK('[" & ActiveWorkbook.Path & "\" & "DN_Pokalkulacija.xlsx" & "]" & "Sheet1" & "'" & "!E" & Poracun(Z).Vrstica & ",""" & Poracun(Z).Ime & """)"

Upvotes: 1

Related Questions