Adding a hyperlink with VBA--coding syntax - vba

Question

I am trying to add a hyperlink to the workbook data is pulled from to a summary workbook. I can get the filepath to populate the cell no problem but when I enter hyperlink.add I usually get a parameter error.
This provides me with the URL in the selected cell:
.offset(rowcount,112)=sXLFile
I tried this to add a hyperlink but I get a parameter error with the second comma after 'sXLFile' being highlighted:
hyperlinks.Add (anchor:=.Offset(rowcount, 112), address:= sXLFile,,, incidentreport & agentname)
What I think this could would do is make a hyperlink to the filepath saved in sXLFile and read as IncidentReportAgentName. When I reference the exact workbook/sheet in the code below I get a runtime error 13: Type Mismatch.
Workbooks("Incident Reports").Worksheets("Supplementary").Hyperlink.Add anchor:=.Offset(rowcount, 112), Address:=sXLFile, TextToDisplay:=IncidentReport & AgentName
Does anyone see what I am doing wrong?

Answer 1

You've got a couple things going on. You're trying to accomplish too much at once, so we'll need to take a step back.
First issue - you said:
When looking at the arguments needed for the Hyperlink.Add, I didn't want to add a subaddress or screentip and these are optional arguments. I thought I still needed to use the "," as a placemark for those arguments.
Parameters for functions can be entered one of two ways:
FunctionName Parameter1Name:=Parameter1Value, Parameter2Name:=Parameter2Value, Parameter3Name:=Parameter3Value
...is equivalent to:
FunctionName Parameter1Value, Parameter2Value, Parameter3Value
...however the purpose of using the Parameter1Name:= is so that you can skip parameters or include them out-of-order without a problem.
So this:
FunctionName Parameter1Value, , Parameter3Value
...is the same as:
FunctionName Parameter1Name:=Parameter1Value, Parameter3Name:=Parameter3Value
...which is also the same as:
FunctionName Parameter3Name:=Parameter3Value, Parameter1Name:=Parameter1Value
Therefore, when you're specifying parameters with :=, do not add additional commas for missing parameters.
Troubleshooting 101
If the correction above still does not solve you problem try this.
A couple early steps in troubleshooting should be:
Replace all variables and referenced values with the actual values. For example: instead of referring to an Offset to reference the location of the anchor, specify the actual range.
So instead of anchor:=.Offset(rowcount, 112), specify anchor:=Range("A1") or whatever cell the link is supposed to be in.
Instead of address:= sXLFile, use address:= "http://www.google.com (or wherever the destination address is.
Simplify the expression as much as possible to get the basic functionality working. For example, you don't need the "TextToDisplay" label right now to make your link work. Get rid of it, temporarily.
So after those changes, your entire line should be a nice, simplified and functioning:
Workbooks("Incident Reports").Worksheets("Supplementary").Hyperlink.Add Anchor:=Range("A1"), Address:= "http://www.google.com"
If that's indeed doing what it is supposed to, now you can start changing the values to variables and adding more parameters... but make a single change, and then test it. Then make the next change, and test it. One change at a time.
More Information:
MSDN : Hyperlinks.Add Method (Excel)
Chip Pearson : Debugging VBA