software

Hello

I have some tabular data,
With column A containing number, 1 to 10
With coumn B containing some names opposite to each number in column A

Each Number in column A points to its own webpage link.
I want to copy these hyperlink to/as hyperlink to respective name in
column B

Any ideas how can i achieve this

RegardsPlease provide some examples. Regards.It is unclear how column B relates to Column A

A1: IBM with a hyperlink to www.ibm.com
B1: 2 unclear what is wanted

If you want to see the hyperlink in A1 you can use
a user defined function
www.mvps.org/dmcritchie/excel...perlinkaddress
so that B1 would show www.ibm.com
but that does not seem to be what you are looking for.---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: www.mvps.org/dmcritchie/excel/excel.htm
Search Page: www.mvps.org/dmcritchie/excel/search.htm

quot;YogSquot; gt; wrote in message oups.com...
gt; Hello
gt;
gt; I have some tabular data,
gt; With column A containing number, 1 to 10
gt; With coumn B containing some names opposite to each number in column A
gt;
gt; Each Number in column A points to its own webpage link.
gt; I want to copy these hyperlink to/as hyperlink to respective name in
gt; column B
gt;
gt; Any ideas how can i achieve this
gt;
gt; Regards
gt;
Hello All
Probably my question was not clear

I have data like
No. ID
1 dts0100309695
2 dts0100309692
3 dts0100309688
4 dts0100309338
5 dts0100309323
6 dts0100309313
7 dts0100309310
8 dts0100309235
9 dts0100309229
10 dts0100309204
11 dts0100292049The data under column quot;No.quot; contains hyperlink. I want to copy
hyperlink from entries in column quot;No.quot; as hyperlink to corresponding
entry in Column quot;IDquot;

eg if entry quot;1quot; in column quot;No.quot; contain underlying hyperlink quot;
www.google.comquot; I want to copy this hyperlink as hyperlink to
corresponding entry quot;dts0100309695quot; in column ID

Regards
YogSHow about an event macro invoked by a double-click , the
following macro will use the object type hyperlink of the
cell in the first column of the same row.

Install by rightclick on sheet tab, view code, insert the following:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:=Cells(Target.Row, 1).Hyperlinks(1).Address, _
NewWindow:=False, AddHistory:=True
If Err.Number lt;gt; 0 And Err.Number lt;gt; 9 Then
MsgBox Err.Number amp; quot; quot; amp; Err.Description
End If
End Sub
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: www.mvps.org/dmcritchie/excel/excel.htm
Search Page: www.mvps.org/dmcritchie/excel/search.htm

quot;YogSquot; gt; wrote in message ups.com...
gt; Hello All
gt; Probably my question was not clear
gt;
gt; I have data like
gt; No. ID
gt; 1 dts0100309695
gt; 2 dts0100309692
gt; 3 dts0100309688
gt; 4 dts0100309338
gt; 5 dts0100309323
gt; 6 dts0100309313
gt; 7 dts0100309310
gt; 8 dts0100309235
gt; 9 dts0100309229
gt; 10 dts0100309204
gt; 11 dts0100292049
gt;
gt;
gt; The data under column quot;No.quot; contains hyperlink. I want to copy
gt; hyperlink from entries in column quot;No.quot; as hyperlink to corresponding
gt; entry in Column quot;IDquot;
gt;
gt; eg if entry quot;1quot; in column quot;No.quot; contain underlying hyperlink quot;
gt; www.google.comquot; I want to copy this hyperlink as hyperlink to
gt; corresponding entry quot;dts0100309695quot; in column ID
gt;
gt; Regards
gt; YogS
gt;
Hi All,

Finally I was able to write a SUB which copies hyperlink from one cell
to/as hyperlink of another cell
But this code fails if source cell doesn't contains hyperlinks

Incidently this is my very first VBA introduction. So can any one guide
me how to check if cell do contains hyperlink amp; skip if it doesnot
contains hyperlinks

Sub copyHyperlink()
r = Selection.Rows.Count
For i = 1 To r
ActiveSheet.Hyperlinks.Add Anchor:=Selection.Cells(i, 2), _
Address:=Selection.Cells(i, 1).Hyperlinks(1).Address
Next
End Sub

Regards
YogSTo check beforehand check if hyperlink.count = 0

Sub copyHyperlink()
Dim r As Long, i As Long
r = Selection.Rows.Count
For i = 1 To r
If Selection.Cells(i, 1).Hyperlinks.Count lt;gt; 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection.Cells(i, 2), _
Address:=Selection.Cells(i, 1).Hyperlinks(1).Address
if trim(selection.cells(i,2)) = quot;quot; then
Selection.Cells(i, 2).Value = Selection.Cells(i, 1).Value
End If
End If
Next
End SubIf you are satisfied with the way that your macro works then
you can include On error resume next
Which would do nothing if an error occurs.

If you want to check for the hyperlink ahead of time in your macro
Sub copyHyperlink()
Dim r As Long, i As Long
r = Selection.Rows.Count
For i = 1 To r
On Error Resume Next
ActiveSheet.Hyperlinks.Add Anchor:=Selection.Cells(i, 2), _
Address:=Selection.Cells(i, 1).Hyperlinks(1).Address
If Err.Number = 0 And Selection.Cells(i, 2).Value = quot;quot; Then
Selection.Cells(i, 2).Value = Selection.Cells(i, 1).Value
End If
on error goto 0 'restore normal error
Next
End Sub

However I think the event macro that I provided before would be
less likely to cause problems since you intend to use the link
in one cell for other cells on the row.

Some links of interest:
www.mvps.org/dmcritchie/excel/buildtoc.htm

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: www.mvps.org/dmcritchie/excel/excel.htm
Search Page: www.mvps.org/dmcritchie/excel/search.htm

quot;YogSquot; gt; wrote in message oups.com...
gt; Hi All,
gt;
gt; Finally I was able to write a SUB which copies hyperlink from one cell
gt; to/as hyperlink of another cell
gt; But this code fails if source cell doesn't contains hyperlinks
gt;
gt; Incidently this is my very first VBA introduction. So can any one guide
gt; me how to check if cell do contains hyperlink amp; skip if it doesnot
gt; contains hyperlinks
gt;
gt; Sub copyHyperlink()
gt; r = Selection.Rows.Count
gt; For i = 1 To r
gt; ActiveSheet.Hyperlinks.Add Anchor:=Selection.Cells(i, 2), _
gt; Address:=Selection.Cells(i, 1).Hyperlinks(1).Address
gt; Next
gt; End Sub
gt;
gt; Regards
gt; YogS
gt;