Get-URL.xlsm

<div>
How can I loop through all the rows in the active worksheet to do this?<br />

<pre><code id="code-20-40638196-1">If (cell.Range(&quot;D1&quot;).Hyperlinks.Count &lt;&gt; 1) Then
cell.Range(&quot;D1&quot;).Text = cell.Range(&quot;D1&quot;).Hyperlinks(1).Address &amp; &quot;#&quot; &amp; cell.Range(&quot;D1&quot;).Hyperlinks(1).SubAddress
End If</code></pre>
</div>


How can I loop through all the rows in the active worksheet to do this?


If (cell.Range("D1").Hyperlinks.Count <> 1) Then
cell.Range("D1").Text = cell.Range("D1").Hyperlinks(1).Address & "#" & cell.Range("D1").Hyperlinks(1).SubAddress
End If

<div>
Actually, you don't need to change anything in the module.<br />
<br />
Just by pasting the formula in the cells will automatically update the URL text.<br />
Ex:<br />
<a href="https://filedb.experts-exchange.com/incoming/2015/03_w10/900909/Get-url-no2.jpg" target="_blank" title="get url (49 KB)"><img alt="get url" class="file-block lazyload" style="max-width: 800px;" data-src="https://filedb.experts-exchange.com/incoming/2015/03_w10/800_900909/Get-url-no2.jpg" /></a><a href="https://filedb.experts-exchange.com/incoming/2015/03_w10/900910/Get-URL-2.xlsm" target="_blank" class="file-inline" title="Get URL 2 (14 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Get-URL-2.xlsm</a>
</div>


Actually, you don't need to change anything in the module.

Just by pasting the formula in the cells will automatically update the URL text.
Ex:
get urlhttps://filedb.experts-exchange.com/incoming/2015/03_w10/900909/Get-url-no2.jpgGet-URL-2.xlsm [https://filedb.experts-exchange.com/incoming/2015/03_w10/900910/Get-URL-2.xlsm]

Get-url-no2.jpg

Get-URL-2.xlsm

<div>
Are you able to test like this?<br />
<br />
Module:<br />

<pre><code id="code-20-40638242-1">Function GetURL(rang As Range) As String
  If rang(1).Hyperlinks.Count Then GetURL = rang.Hyperlinks(1).Address
End Function</code></pre>
<br />
Then, the formula will again be for example:<b> =GetURL(D1)</b><br />
<br />
To your question, yes, it is only a function call.
</div>


Are you able to test like this?

Module:


Function GetURL(rang As Range) As String
  If rang(1).Hyperlinks.Count Then GetURL = rang.Hyperlinks(1).Address
End Function


Then, the formula will again be for example: =GetURL(D1)

To your question, yes, it is only a function call.

<div>
You may want to also try my last function. shorter and still work great. :)
</div>


You may want to also try my last function. shorter and still work great. :)

<div>
<div class="content wysiwyg-content">
I have an excel worksheet with two columns: <br />
<br />
Site &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;url<br />
-------- &nbsp; &nbsp; &nbsp;------<br />
<a href="https://www.experts-exchange.com/questions/28626967/Get-url-from-hyperlink-column-cells.html" rel="ugc">Site1</a> &nbsp; &nbsp; &nbsp; ...<br />
<a href="https://www.experts-exchange.com/questions/28626967/Get-url-from-hyperlink-column-cells.html" rel="ugc">Site2</a> &nbsp; &nbsp; &nbsp; ... <br />
.<br />
.<br />
<br />
Question: How can I get url text from hyperlinked Site column and store it as text in url column for each row?
</div>
</div>


I have an excel worksheet with two columns: 

Site          url
--------      ------
Site1 (https://www.experts-exchange.com/questions/28626967/Get-url-from-hyperlink-column-cells.html)       ...
Site2 (https://www.experts-exchange.com/questions/28626967/Get-url-from-hyperlink-column-cells.html)       ... 
.
.

Question: How can I get url text from hyperlinked Site column and store it as text in url column for each row?

Get url from hyperlink column cells

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft Applications

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.