GetURL

[handysmurf]

I have a sub to display the URL of a link for me. But it sometimes returns a 0 instead of the link.

Public Function GetURL(Cell As Range, Optional default_value As Variant) As Variant
Dim output As Variant
If (Cell.Range("A1").Hyperlinks.Count <> 1) Then
output = default_value
Else
output = Cell.Range("A1").Hyperlinks(1).Address
End If
GetURL = output
End Function

Help ... it's annoying.

 

[Micron]

You've got to be more clear, concise and forthcoming - and answer questions otherwise no one can help you. After 10 posts I might understand what you have and what is needed. Here's my last guess:

- you have dates in col A; a hyperlink in some, but not all rows in col B. Where B contains a link, the code should return the path of the hyperlink contained in B, not the display text of the hyperlink. Where there is no hyperlink as in rows 2 and 4 below, return the value from col C on the same row (what looks like 1st row in table below is really the column headers, so 1st row has a link)

A	B	C
5/31/23	Link	D:\OneDrive\Owen Divorce\1 (1).jpg	row 1
5/31/23		D:\OneDrive\Owen Divorce\1 (1).jpg	row 2
5/31/23	Link	D:\OneDrive\Owen Divorce\1 (1).jpg
5/31/23		D:\OneDrive\Owen Divorce\1 (1).png	row 4
6/01/23	Link	D:\OneDrive\Owen Divorce\1 (1).png
6/01/23	Link	D:\OneDrive\Owen Divorce\1 (1).png
6/01/23	Link	D:\OneDrive\Owen Divorce\1 (2).png
6/01/23	Link	D:\OneDrive\Owen Divorce\1 (3).jpg
6/01/23	Link	D:\OneDrive\Owen Divorce\1 (3).jpg

If that's it, and I manage to code something and you come back and say, no the hyperlinks are in column C (or whatever is not correct/disclosed), you'll be closer I guess, but that will be it for me.

 

[handysmurf]

Actually .... don't worry about it ... sorry ... I just realized that it would be quicker and easier to have the link reference the address in the next cell instead of this way.