Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 148
Default Copy HYPERLINKS

I have about 200 entries in col a
Some of these entries are hyperlinks to other locations
I would like a macro to copy ONLY the hyperlinks from Col a to Col b
Currently the hyperlinked items are interspaced over the entire col a, I
would like to have all the hyperlinks moved to Col B one under the other
with no spaces.
Thanks

  #2   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 11,058
Default Copy HYPERLINKS

Are they =HYPERLINK functions or Inserted hyperlinks??
--
Gary''s Student - gsnu200750


"pcor" wrote:

I have about 200 entries in col a
Some of these entries are hyperlinks to other locations
I would like a macro to copy ONLY the hyperlinks from Col a to Col b
Currently the hyperlinked items are interspaced over the entire col a, I
would like to have all the hyperlinks moved to Col B one under the other
with no spaces.
Thanks

  #3   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 11,058
Default Copy HYPERLINKS

Try:

Sub marine()
Range("A:A").Copy Range("B1")
n = Cells(Rows.Count, "B").End(xlUp).Row
For m = n To 1 Step -1
If Cells(m, "B").Hyperlinks.Count = 0 Then
Cells(m, "B").Delete Shift:=xlUp
End If
Next
End Sub
--
Gary''s Student - gsnu200750


"pcor" wrote:

I have about 200 entries in col a
Some of these entries are hyperlinks to other locations
I would like a macro to copy ONLY the hyperlinks from Col a to Col b
Currently the hyperlinked items are interspaced over the entire col a, I
would like to have all the hyperlinks moved to Col B one under the other
with no spaces.
Thanks

  #4   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 148
Default Copy HYPERLINKS

I did TRY and it worked the VERY BEST. Thanks a great deal


"Gary''s Student" wrote:

Try:

Sub marine()
Range("A:A").Copy Range("B1")
n = Cells(Rows.Count, "B").End(xlUp).Row
For m = n To 1 Step -1
If Cells(m, "B").Hyperlinks.Count = 0 Then
Cells(m, "B").Delete Shift:=xlUp
End If
Next
End Sub
--
Gary''s Student - gsnu200750


"pcor" wrote:

I have about 200 entries in col a
Some of these entries are hyperlinks to other locations
I would like a macro to copy ONLY the hyperlinks from Col a to Col b
Currently the hyperlinked items are interspaced over the entire col a, I
would like to have all the hyperlinks moved to Col B one under the other
with no spaces.
Thanks

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Copy worksheet with internal hyperlinks andy62 Excel Worksheet Functions 9 September 3rd 07 03:38 PM
Copy/Paste hyperlinks between workbooks sooner1ksn Excel Discussion (Misc queries) 0 April 5th 06 03:23 PM
Why does excel change my hyperlinks when I copy a worksheet? TWIN HYPE New Users to Excel 1 August 29th 05 09:45 PM
Copy & paste from Word to Excel with hyperlinks Phil RL Excel Discussion (Misc queries) 0 February 9th 05 04:25 PM
how do you copy hyperlinks from one worksheet to another Philip Excel Worksheet Functions 0 February 9th 05 01:37 PM


All times are GMT +1. The time now is 12:10 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"