Copying a cell's contents into a string

[mj0lnr]

Hello,

I'm sure this has been asked before, but I couldn't locate it. I have a range of cells that I'd like to have checked for data (it's always going to numbers) and if it's populated with a number, it copies those contents into a hyperlink text string. The hyperlink always stays the same, only the contents of the cell will have an effect on it. The only thing I'm really asking for is help with the if, next statements.

Sincerely any appreciate help in advance -
A.

 

[mj0lnr]

Parry, it works great, but another request :wink: you hit it with the other post you put up there. The cell with the actual data I would like to be the actual link, not an empty one. Sawry

A.

 

[parry]

enjoy

Sub HyperLinkColH()
Dim MyAddress As String, NBR As Long, c

'Find next blank row in column H. Start at row 23 if its blank.
If IsEmpty(Range("h23")) Then
NBR = 23
Else
NBR = Range("h65536").End(xlUp).Row + 1
End If

'Look thru selection and place hyperlink in Col H if the
'cell is a number
For Each c In Selection
If IsNumeric(c) Then
MyAddress = "http://IM/Peregrine/WhatsMyStatus/default.asp?ProbID=IM" _
& c & "&submit1=Get+Ticket+Information&SearchName="

Cells(NBR, 8).Hyperlinks.Add Anchor:=Cells(NBR, 8), _
Address:=MyAddress, TextToDisplay:=Str(c.Value)
NBR = NBR + 1
End If

Next c

End Sub

 

[mj0lnr]

Parry, I cannot thank you enough.....works like a champ.....I don't supposed I can ask you for another favor? I have two sets of code that I need to combine into one very smooth macro, if I post both sets of code up here could you help me tidy it up and see if they can fit together?

A.

 

[parry]

I see youve already got this covered in another thread.