Excel 2002 SP3
Win XP HE

Hi,

I have a sheet with a column containing on each row a url such as
http://www.mydomain.com

The format of the cells is "General" as that is how the file is provided
to me.

How can I instantly/immediately convert the format so that I can click
the cell with a url and go to the website?

I mean for the whole column at once, etc.

Possible?

Sub MakeHyperlinks()
'David McRitchie
Dim cell As Range
For Each cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
With Worksheets(1)
.Hyperlinks.Add anchor:=cell, _
Address:=cell.Value, _
ScreenTip:=cell.Value, _
TextToDisplay:=cell.Value
End With
Next cell
End Sub


Gord Dibben MS Excel MVP

On Thu, 01 Mar 2007 18:35:03 +0100, stef <stef.bm_at_hotmail.removethis.com>
wrote:

>Excel 2002 SP3
>Win XP HE
>
>Hi,
>
>I have a sheet with a column containing on each row a url such as
>http://www.mydomain.com
>
>The format of the cells is "General" as that is how the file is provided
>to me.
>
>How can I instantly/immediately convert the format so that I can click
>the cell with a url and go to the website?
>
>I mean for the whole column at once, etc.
>
>Possible?

From yesterday in the programming group...

"If your weblinks are written correctly like www.google.co.uk you can change
them First make sure the auto correct for web links, check
tools>autocorrect>auto format as you type>check internet and network paths.
type in a web address in a cell like www.google.co.uk (should change to a
hyperlink), copy this cell and then select your row or column and paste
special>format.
--
John
MOS Master Instructor Office 2000, 2002 & 2003"

--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware





"stef" <stef.bm_at_hotmail.removethis.com> wrote in message
Excel 2002 SP3
Win XP HE
Hi,
I have a sheet with a column containing on each row a url such as
http://www.mydomain.com
The format of the cells is "General" as that is how the file is provided
to me.
How can I instantly/immediately convert the format so that I can click
the cell with a url and go to the website?
I mean for the whole column at once, etc.
Possible?

Jim Cone wrote:
> From yesterday in the programming group...
>
> "If your weblinks are written correctly like www.google.co.uk you can change
> them First make sure the auto correct for web links, check
> tools>autocorrect>auto format as you type>check internet and network paths.
> type in a web address in a cell like www.google.co.uk (should change to a
> hyperlink), copy this cell and then select your row or column and paste
> special>format.
> --
> John
> MOS Master Instructor Office 2000, 2002 & 2003"
>

hi, tx for ur reply; but unfortunately it doesn't work.

I mean, once the 1st cell in the top row of column has been converted to
http link, copy paste special the rest of columns only pastes the font
color and the underscore, etc., but does not create an actual http link.....

unless i am missing something, which is always possible......

Gord Dibben wrote:
> Sub MakeHyperlinks()
> 'David McRitchie
> Dim cell As Range
> For Each cell In Intersect(Selection, _
> Selection.SpecialCells(xlConstants, xlTextValues))
> With Worksheets(1)
> .Hyperlinks.Add anchor:=cell, _
> Address:=cell.Value, _
> ScreenTip:=cell.Value, _
> TextToDisplay:=cell.Value
> End With
> Next cell
> End Sub
>
>
> Gord Dibben MS Excel MVP
>
> On Thu, 01 Mar 2007 18:35:03 +0100, stef <stef.bm_at_hotmail.removethis.com>
> wrote:
>
>> Excel 2002 SP3
>> Win XP HE
>>
>> Hi,
>>
>> I have a sheet with a column containing on each row a url such as
>> http://www.mydomain.com
>>
>> The format of the cells is "General" as that is how the file is provided
>> to me.
>>
>> How can I instantly/immediately convert the format so that I can click
>> the cell with a url and go to the website?
>>
>> I mean for the whole column at once, etc.
>>
>> Possible?
>
I was hoping there would be a simpler way but I'll try that and post
back here.
tx!

Gord,
That's excellent!
Works like a charm and simple solution.
Thanks a lot.

Gord Dibben wrote:
> Sub MakeHyperlinks()
> 'David McRitchie
> Dim cell As Range
> For Each cell In Intersect(Selection, _
> Selection.SpecialCells(xlConstants, xlTextValues))
> With Worksheets(1)
> .Hyperlinks.Add anchor:=cell, _
> Address:=cell.Value, _
> ScreenTip:=cell.Value, _
> TextToDisplay:=cell.Value
> End With
> Next cell
> End Sub
>
>
> Gord Dibben MS Excel MVP
>
> On Thu, 01 Mar 2007 18:35:03 +0100, stef <stef.bm_at_hotmail.removethis.com>
> wrote:
>
>> Excel 2002 SP3
>> Win XP HE
>>
>> Hi,
>>
>> I have a sheet with a column containing on each row a url such as
>> http://www.mydomain.com
>>
>> The format of the cells is "General" as that is how the file is provided
>> to me.
>>
>> How can I instantly/immediately convert the format so that I can click
>> the cell with a url and go to the website?
>>
>> I mean for the whole column at once, etc.
>>
>> Possible?
>

Thanks for the feedback.

Thanks also to David for the code.


Gord

On Thu, 01 Mar 2007 23:50:48 +0100, stef <stef.bm_at_hotmail.removethis.com>
wrote:

>Gord,
>That's excellent!
>Works like a charm and simple solution.
>Thanks a lot.
>
>Gord Dibben wrote:
>> Sub MakeHyperlinks()
>> 'David McRitchie
>> Dim cell As Range
>> For Each cell In Intersect(Selection, _
>> Selection.SpecialCells(xlConstants, xlTextValues))
>> With Worksheets(1)
>> .Hyperlinks.Add anchor:=cell, _
>> Address:=cell.Value, _
>> ScreenTip:=cell.Value, _
>> TextToDisplay:=cell.Value
>> End With
>> Next cell
>> End Sub
>>
>>
>> Gord Dibben MS Excel MVP
>>
>> On Thu, 01 Mar 2007 18:35:03 +0100, stef <stef.bm_at_hotmail.removethis.com>
>> wrote:
>>
>>> Excel 2002 SP3
>>> Win XP HE
>>>
>>> Hi,
>>>
>>> I have a sheet with a column containing on each row a url such as
>>> http://www.mydomain.com
>>>
>>> The format of the cells is "General" as that is how the file is provided
>>> to me.
>>>
>>> How can I instantly/immediately convert the format so that I can click
>>> the cell with a url and go to the website?
>>>
>>> I mean for the whole column at once, etc.
>>>
>>> Possible?
>>