Hyperlinking in Excel

**Scooternm** · 07-04-2008, 11:54 AM

That's a better solution than I was hoping for, I think that will work great for me.

On the first sheet of the workbook, the links will link to a matching entry on another sheet. Basically the first sheet is an overview and then the other sheets are broken down into sections. So, your module will work great on the other sheets. Should that module, with a little tweaking, also work on my first sheet...to link to other sheets rather than an external file.

In any event, you solved a problem I wasn't sure I could solve. Thanks a lot!

Scott

**Ron Coderre** · 07-04-2008, 12:47 PM

If you want to hyperlink to cell C13 on Sheet5....

Enter this in the cell to be converted:
#Sheet5!C13

Note: Before running the CovertTxt2Hyperlink macro,
Set the strPath variable to an empty string:

strPath = ""

Does that help?
Post back with more questions

**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?

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

Thanks Ron!!!

Hyperlinking in Excel

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Wow, thanks