Comments on: Creating Hyperlinks

By: Rocco

Rocco — Thu, 28 Jul 2011 13:30:00 +0000

How to create the friendly name of the cell to hyperlink automatically to the file name in a folder.

By: Rachel

Rachel — Tue, 05 Jul 2011 17:38:00 +0000

I’m inserting hyperlinks in a spreadsheet so that customers can click the price/description of an item and it will take them to the appropriate website. The links work fine when I save it on the computer, but the file is too big to email so I had to save it to a CD. When I reopen the file on the CD, all of the hyperlinks are gone. Anyone know how to fix that?

By: Dick Kusleika

Dick Kusleika — Mon, 21 Mar 2011 14:56:00 +0000

Gregg: That # option only works within Excel, not from external sources. At least as far as I know. I don’t think you can get to a specific spot in a workbook from an external link.

By: Gregg Oliver

Gregg Oliver — Wed, 16 Mar 2011 22:34:00 +0000

I want to create a link in an email that, when clicked, would open an excel file and take the user to a specific sheet and cell address. I have been led to believe that

L:MyExcelDirectoryMyBook.xls#Sheet1!A1

is the correct syntax (where L: is a network drive to which users are mapped) - using the pound sign with the standard sheet and cell reference.

Doesn't work - any thoughts on what a working context should be?

By: Dick Kusleika

Dick Kusleika — Wed, 15 Dec 2010 15:55:00 +0000

If I understand your code correctly, this is how I would write it.

Sub AAperfmon()

Dim shDestination As Worksheet
Dim shSource As Worksheet
Dim lDestRow As Long
Dim lSheetCnt As Long

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.DisplayStatusBar = True

Set shDestination = ActiveWorkbook.Sheets("graphtab")
lSheetCnt = ActiveWorkbook.Sheets.Count
lDestRow = 2

For Each shSource In ActiveWorkbook.Worksheets
If shSource.Name <> shDestination.Name And Not shSource.Name Like "v.q.*" Then

'hyperlink from destSheet column A current row to srcSheet column A Row 61
shDestination.Hyperlinks.Add _
Anchor:=shDestination.Range("A" & lDestRow), _
Address:="", _
SubAddress:=shSource.Name & "!A61", _
TextToDisplay:=shSource.Name

shSource.Range("F62,T62,Z62,AF62,AL62,AR62,AX62").Copy
shDestination.Range("B" & lDestRow).PasteSpecial xlPasteValues

End If

lDestRow = lDestRow + 1
Application.StatusBar = shSource.Name & " complete"

Next shSource

shDestination.Range("B" & lDestRow).EntireColumn.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.CutCopyMode = False
Application.StatusBar = False
shDestination.Activate

End Sub

By: roy

roy — Tue, 14 Dec 2010 18:05:00 +0000

hmmm your compiler complains differently than mine.

By: roy

roy — Tue, 14 Dec 2010 18:02:00 +0000

I am not a programmer and dont have the concept 'object' in contrast with variant or deviant for that matter. I've made some changes however compiler still does not accept destSheet;
Worksheets destSheet! & "A" & destRow,

Sub AAperfmon()

Setup:
Dim destSheet As Worksheet 'name of destination sheet
Dim srcSheet As Worksheet 'current sheet - with data
Dim whatToCopy As Range 'list of cells to copy
Dim destRow As Long 'counter synchronizing srcSheet and row in destSheet
Dim cnt As Long 'loop limit to number of worksheets in workbook
'MsgBox "Start"
Start:
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.CutCopyMode = True
' initialize
destSheet = ActiveWorkbook.Sheet.graphtab
cnt = ActiveWorkbook.Sheets.Count
destRow = 2

Skip:
For Each srcSheet In Worksheets
If destRow = (cnt + 3) Then GoTo Cleanup:
If srcSheet.Name = "v.q." & "*'" Then ' if vdbench file skip
destRow = destRow + 1
Application.StatusBar = "Skipping"
GoTo Skip:
End If
Main: 'exclude destination sheet
If srcSheet.Name <> destSheet Then
'hyperlink from destSheet column A current row to srcSheet column A Row 61
Worksheets destSheet! & "A" & destRow, _
.Hyperlinks.Add, _
Anchor:=destheet! & "A" & destRow, _
Address:="", _
SubAddress:=srcSheet.Name & !A61, _
TextToDisplay:=srcSheet.Name
'specify cells to copy
Set whatToCopy = srcSheet.Range("F62,T62,Z62,AF62,AL62,AR62,AX62")
whatToCopy.Copy
'copy cell value not formula
Worksheets destSheet.Range("B" & destRow), .PasteSpecial
Worksheets destSheet.Range("B" & destRow), .xlPasteValues
'increment sheet pointer
destRow = destRow + 1
'adjust column to widest entry
Worksheet destSheet.Range("B" & destRow), .EntireColumn.AutoFit
End If
Application.StatusBar = srcSheetName & "complete"
Next 'get next sheet
Cleanup:
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.CutCopyMode = False
Application.StatusBar = False
Worksheets(destSheet).Active

End Sub

By: Dick Kusleika

Dick Kusleika — Fri, 10 Dec 2010 20:46:00 +0000

roy:

Const dSheet = "graphtab"

creates a String constant. I don't think it's possible to have an object constant. You can have a Variant, but I don't think it will let you put an object in there. You need to make it a variable, like

Dim sh as Worksheet
Const sSHEETNAME As String = "graphtab"

Set sh = Sheets(sSHEETNAME)
sh.Range("A1"...)

By: roy

roy — Thu, 09 Dec 2010 18:46:00 +0000

question - why does compiler choke on this?

'name of destination sheet
Const dSheet = "graphtab" 'destination sheet
Dim copyToRow As Long 'row counter
Dim insheet As Worksheet 'current worksheet

dSheet.Range("A" & copyToRow).Hyperlinks.Add _
Address:="#'" & insheet.Name & "'!A61", _
Anchor:=Worksheets(dSheet).Range("A" & copyToRow), _
TextToDisplay:=insheet

By: BrainOnDev

BrainOnDev — Sat, 06 Nov 2010 15:14:00 +0000

Hi all.
The goal is to filter worksheet data, using arguments passed from an hyperlink.
Can I use an hyperlink to achieve this?

Many thanks