How to extract Url and make it clickable automatically?

[happydz]

Hello,
I have a set of websites listed in an excel sheet, I tried to extract hyperlink using VBA code (I found it online), but I find out that they not clickable. Could you edit it or give another trick to fix this problem, please?

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

 

[Logit]

The following works if the list of the URLs are listed as:

www.somewhere.com
www.nowhere.com
www.here.com
etc.
etc.

Sub ConvertTextURLsToHyperlinks()
    Dim Cell As Range
    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
        If Cell <> "" Then
            ActiveSheet.Hyperlinks.Add Cell, "HTTP://" & Cell.Value
        End If
    Next
End Sub

You will first need to highlight all of the cell range to be converted then run the macro.

 

[happydz]

The following works if the list of the URLs are listed as:

www.somewhere.com
www.nowhere.com
www.here.com
etc.
etc.

Sub ConvertTextURLsToHyperlinks()
    Dim Cell As Range
    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
        If Cell <> "" Then
            ActiveSheet.Hyperlinks.Add Cell, "HTTP://" & Cell.Value
        End If
    Next
End Sub

You will first need to highlight all of the cell range to be converted then run the macro.

I tried this macro code, but it did not work.

test_hyperlinks.xlsm
	A	B	C	D
1	Sites	Hyperlinks
2	facebook
3	somewhere
4	nowhere
5	here
6
Feuil2

 

[Logit]

Can you post your workbook to a cloud site for download ?

 

[happydz]

Can you post your workbook to a cloud site for download ?

Classeur1.xlsm

Microsoft Excel Workbook

1drv.ms

 

[Logit]

From the example list there is no reliable means of determining if the link requires a ".com" or ".net" or ".edu", etc. etc. to be added by vba.

???

 

[happydz]

From the example list there is no reliable means of determining if the link requires a ".com" or ".net" or ".edu", etc. etc. to be added by vba.

???

Classeur1.xlsm

Microsoft Excel Workbook

1drv.ms

 

[Logit]

The following will work with the example you have provided. HOWEVER, keep in mind, if there is a website term that does not end in ".com", the following code will not work.

'' NOTE: First select the cells for conversion, then click the button :

Sub ConvertTextURLsToHyperlinks()
    Dim Cell As Range
    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
        If Cell <> "" Then
            ActiveSheet.Hyperlinks.Add Cell, "HTTP://" & Cell.Value & ".com"
        End If
    Next
End Sub

Also ... prior to clicking the Command Button, the cells with the website names must be highlighted (selected).

 

[happydz]

The following will work with the example you have provided. HOWEVER, keep in mind, if there is a website term that does not end in ".com", the following code will not work.

'' NOTE: First select the cells for conversion, then click the button :

Sub ConvertTextURLsToHyperlinks()
    Dim Cell As Range
    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
        If Cell <> "" Then
            ActiveSheet.Hyperlinks.Add Cell, "HTTP://" & Cell.Value & ".com"
        End If
    Next
End Sub

Also ... prior to clicking the Command Button, the cells with the website names must be highlighted (selected).

The code works very fine; thank you.
Please!
I need a second favor from you if you don't mind.
Based on the same example where the column A contains the websites, I need the extract the hyperlinks in the column B without me clicking twise on the cell to make the hyperlink active. so the code should extracts and activates the hyperlinks from column A into column B. Would that be possible?

 

[Logit]

I dont understand having to click twice. Here it only requires one click to initiate the link.