Hi,

I want to copy hyperlink property of one cell to another cell using excel
programming.

Thanks in advance.
--
(:P) ee (:D) i

try this code.


Sub test()

a = Range("D16")
ActiveSheet.Hyperlinks.Add Range("D1"), a


End Sub


"PeeDi" wrote:

Hi,

I want to copy hyperlink property of one cell to another cell using excel
programming.

Thanks in advance.
--
(:P) ee (:D) i

Thanks Joel....

however the scenario is this....

Range 'a' has value "Click" and is linked to "www.testpage.com"

i want to copy it to another Range say 'b'=(different in different scenario)
which is in worksheet 'wkSht' (a variable) and its rows and columns are in
variables 'r, 'c'


--
(:P) ee (:D) i


"Joel" wrote:

try this code.


Sub test()

a = Range("D16")
ActiveSheet.Hyperlinks.Add Range("D1"), a


End Sub


"PeeDi" wrote:

Hi,

I want to copy hyperlink property of one cell to another cell using excel
programming.

Thanks in advance.
--
(:P) ee (:D) i

Is wksht the name of the worksheett or a worksheet object?

Sub test()

a = Range("D16")
worksheets(wkSht).Hyperlinks.Add cells(r,c), a

End Sub

or (if worksheet is an object)

Sub test()

a = Range("D16")
wkSht.Hyperlinks.Add cells(r,c), a

End Sub

"PeeDi" wrote:

Thanks Joel....

however the scenario is this....

Range 'a' has value "Click" and is linked to "www.testpage.com"

i want to copy it to another Range say 'b'=(different in different scenario)
which is in worksheet 'wkSht' (a variable) and its rows and columns are in
variables 'r, 'c'


--
(:P) ee (:D) i


"Joel" wrote:

try this code.


Sub test()

a = Range("D16")
ActiveSheet.Hyperlinks.Add Range("D1"), a


End Sub


"PeeDi" wrote:

Hi,

I want to copy hyperlink property of one cell to another cell using excel
programming.

Thanks in advance.
--
(:P) ee (:D) i

Thaks a lot Joel....wksht is worksheet object....
--
(:P) ee (:D) i


"Joel" wrote:

Is wksht the name of the worksheett or a worksheet object?

Sub test()

a = Range("D16")
worksheets(wkSht).Hyperlinks.Add cells(r,c), a

End Sub

or (if worksheet is an object)

Sub test()

a = Range("D16")
wkSht.Hyperlinks.Add cells(r,c), a

End Sub

"PeeDi" wrote:

Thanks Joel....

however the scenario is this....

Range 'a' has value "Click" and is linked to "www.testpage.com"

i want to copy it to another Range say 'b'=(different in different scenario)
which is in worksheet 'wkSht' (a variable) and its rows and columns are in
variables 'r, 'c'


--
(:P) ee (:D) i


"Joel" wrote:

try this code.


Sub test()

a = Range("D16")
ActiveSheet.Hyperlinks.Add Range("D1"), a


End Sub


"PeeDi" wrote:

Hi,

I want to copy hyperlink property of one cell to another cell using excel
programming.

Thanks in advance.
--
(:P) ee (:D) i