Teach Yourself Excel Lesson Create Hyperlinks - Create Hyperlinks

I have exported a list of mp3's to excel and I would like to create a
hyperlink to each song. Is there a way to do this without going to each file?
I have over 3000 mp3's in the list I would like to link.

Please Help!!
Sams9

dear all

with the below data i need to create a hyperlink to PDF file
i will start by selecting the data in column C , then the code has to check the date in column A and base on the date it will create the hyperlink because the PDF files ( where i am going to link it) are named per date. for example the below data has a date of 16/07/11 and the PDF is named 160711.pdf.

Sheet1 A B C 1 Date Type Tips 2 16/07/11 Positive and Negative Colors in a Chart 3 16/07/11 Printing a Draft Watermark 4 16/07/11 Viewing Your Work Full-Screen 5 16/07/11 Counting the Times a Worksheet is Used 6 16/07/11 Using Data Forms 7 16/07/11 Creating Dependent Drop-Lists 8 16/07/11 Making Common Functions Available to Others 9 16/07/11 Error Opening Second Workbook Excel 2010



appreciate any help.

When I create a hyperlink, to a cell in a distant column, on the same row, it works perfectly. However, if I try to then Autofill it down a range of rows the Hyperlinks fail to link to the correct cell address.

The Hyperlink "text" displayed in each cell shows the correct destination cell address. However, the actual link address is identical to the very first cell used to create the Autofill.

In other words, if the Hyperlink in cell A1 points to destination cell AK1
and I autofill from that cell then cell A2...A40 all point to cell AK1. Even though the text displayed from cell A2...A40 has the correct incremented address, i.e. AK2......AK40
Here's the first hyperlink text: UTM Pipeline!AK6
Here's where the link takes me: UTM Pipeline!AK6

Here's the second hyperlink text: UTM Pipeline!AK7
Here's where the link takes me: UTM Pipeline!AK6

Hope this makes sense.

Hello,

I need help writing a macro to create hyperlinks to many folders. I have a macro that takes a company name in Column B of a worksheet and makes a new folder with the company name on it. There are about 3,000 rows involved. I want to put a hyperlink in Column C beside each company name that will automatically bring up that company's folder. Here is the code I use to create the folders:


Code:

Sub makefolders()

     MainPath = "C:\Documents and Settings\Master Folder\"

     StartRow = 5
     Set Wks = Worksheets(sheet 1)

          With Wks
              LastRow = .Cells(Rows.Count, "B") .End (x1Up) .Row
              LastRow = IIf(LastRow < StartRow, StartRow, LastRow)
          End With

          For R =  StartRow To LastRow
               MkDir MainPath & Wks.Cells(R, "B")
          Next
End Sub

Thanks in advance for any help with this.

Simple question. (I once knew this and just cant remember now).

I have a column with this type of data:

http://workorder/incidentReport.aspx?incident=3-4093
http://workorder/incidentReport.aspx?incident=3-4094
http://workorder/incidentReport.aspx?incident=3-4095
http://workorder/incidentReport.aspx?incident=3-4096
http://workorder/incidentReport.aspx?incident=3-4097
http://workorder/incidentReport.aspx?incident=3-4098
http://workorder/incidentReport.aspx?incident=3-4099
http://workorder/incidentReport.aspx?incident=3-4100
http://workorder/incidentReport.aspx?incident=3-4101

How can I turn them all into hyperlinks?

Thanks in advance.
Nathan

This code finds and matches the Text value of a Shape to the value of a cell on seperate worksheets within the same workbook.
Code:

Sub bbb()    'Creat hyperlinks to shape by text value
Dim shpTemp As Shape
Dim ShtRange   'ShtRange
Dim ShtLastRow    'ShtLastRow
Dim ShtCell    'ShtCell


If Left(ActiveWorkbook.Name, 3) = "MOT" Then
    With Sheets("Sheet1")    'Loop thru Column D
        ShtLastRow = .Cells(Rows.Count, "D").End(xlUp).Row
        Set ShtRange = .Range("D10:D" & ShtLastRow)
    End With
End If
If Left(ActiveWorkbook.Name, 6) = "AS9102" Then
    With Sheets("Sheet3")    'Loop thru Column A
        ShtLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        Set ShtRange = .Range("A6:A" & ShtLastRow)
    End With
End If

For Each shpTemp In ActiveSheet.Shapes
    For Each ShtCell In ShtRange
        If shpTemp.AutoShapeType = msoShapeOval Then
            With shpTemp.TextFrame
                If .Characters.Text = ShtCell Then
                    MsgBox .Characters.Text & " " & ShtCell    'for testing
                    MsgBox shpTemp.Name & " " & ShtCell    'for testing
                    'Create hyperlinks?
                    ActiveSheet.Shapes(shpTemp.Name).Select
                     ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
                            Address:="", SubAddress:=ShtCell 
                End If
            End With
        End If
    Next ShtCell
Next shpTemp
End Sub

Questions:
How can I write code to create a hyper link from the Shape to the cell? If the user clicks on the shape it links to a cell and vise~versa.
My attempt above fails, it seems to go thru the first found shape but generates an error after the second found shape.
No hyperlinks are created.

Quote:

Run-time error '5':
Invalid procedure call or argument

I want to loop through a list of numbers and add a hyperlink to each number. This hyperlink refer to a sheet with the same name as the number. Any suggestion on how I shall use hyperlink line below. The loop and everything else is ok. I use a loop like the one below and want to refer the Hyperlink to activecell each time

Code:

Do While Not ActiveCell = ""
    ShtName = ActiveCell
    Sheets.Add
    ActiveSheet.Move After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = ShtName
    
    Sheets("Home").Activate
    ActiveCell.Hyperlinks.Add ActiveCell, "", "Sheet1!A1"
    ActiveCell.Offset(1, 0).Activate
Loop

I have a simple macro for listing all the worksheets in a workbook,
essentially creating a table of contents for my file:

Sub ListSheets()
For iSheets = 1 To Sheets.Count
ActiveCell.Value = Sheets(iSheets).Name
ActiveCell.Offset(1, 0).Activate
Next iSheets
End Sub

What I would like to do is make each of those cells a hyperlink to the
corresponding worksheet, to cell A1. Any ideas?

Thanks,
Steve Mackay

Hello,

I have a very large column of individual website addresses. I would like to insert "www." in front of each and create a hyperlink for each also.

What is the easiest way to do this?

Thx