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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 11:51 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com