View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default Activate Hyperlinks - Excel 2002

Good morning

Where do I place the macro's ?
1. Alt-F11
2. InsertModule from the Menubar
3. Paste the Code there
4. Alt-Q to go back to Excel
5. Alt-F8 to run the subs

http://www.mvps.org/dmcritchie/excel/getstarted.htm
See David McRitchie's site if you just started with VBA


Tools, Macros, then what? It looks like I can just cut and paste your
macros in changing my column number correct?


Correct


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Why Von" wrote in message ...
Brilliant Ron!

I don't know how to do Macros - but can you just walk me through it?

Tools, Macros, then what? It looks like I can just cut and paste your
macros in changing my column number correct?

Many thanks - looking for steps to create macros.

Whyvon

"Ron de Bruin" wrote:

Hi

In 2002-2003 you can turn automatic hyperlinking of
ToolsAutocorrect options

But you can use a macro to do this

With E-mail addresses in column B

Sub test()
For Each myCell In Columns("B").Cells.SpecialCells(xlCellTypeConstant s)
If myCell.Value Like "?*@?*.?*" Then
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
End If
Next
End Sub


With websites in column C (http://www.rondebruin.nl/tips.htm)

Sub test2()
For Each myCell In Columns("C").Cells.SpecialCells(xlCellTypeConstant s)
If myCell.Value Like "*www*" Then
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:=myCell.Value, TextToDisplay:=myCell.Value
End If
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Why Von" wrote in message ...
Hello,

I thought this would be simple - but I'm beginning to wonder. . .

I have a large "client contact" sheet with columns for "Email" and
"Website", but for some reason the email address and website addresses are
not active hyperlinks.

Short of right clicking on each cell (2600!) - is there a way to highlight
the column and perform this action - PLEASE I HOPE SO!

P.S. I am a general user - not advanced - don't know how to do macros.

Thank you,