Hyperlinking in Excel

**Scooternm** · 07-04-2008, 01:39 PM

Thanks a lot. I've been playing around with this and have ONE more question. Going back to the first module...is it possible, rather than having to select the cells to run the macro on....to say if the value in column E is greater than 0, then run on column A of the same row(s)?

**Ron Coderre** · 07-04-2008, 02:07 PM

I need a clarification....

Are you saying that:
Col_A will still contain the hyperlink destination text
and
Col_E will contain a numeric value
AND
you want to only create hyperlinks in Col_A where the
corresponding Col_E value is greater than zero?

**Scooternm** · 07-04-2008, 02:31 PM

Exactly, basically column E would be the number of records on each log, so if it where 0, there's no reason to hyperlink. So, exactly what you said, numeric value is in E...if it's greater than 0 than the entry in column A would be hyperlinked.

**Ron Coderre** · 07-04-2008, 04:17 PM

OK.....Try this:

Sub ConvertTxt2HyperlinkInColA()
Dim cCell As Range
Dim strPath As String

strPath = ""
For Each cCell In Selection.Cells
    If cCell.Offset(ColumnOffset:=4).Value > 0 Then
        On Error Resume Next
        ActiveSheet.Hyperlinks.Add _
            Anchor:=cCell, _
            Address:=strPath & cCell.Value, _
            TextToDisplay:=cCell.Value
    End If
Next cCell
End Sub

Before running it....select the Col_A cells.

Is that something you can work with?