Hi

Does anyone know how i can get the following simple macro to repeat, but
following the hyperlink in the next cell down (which will be A3) and then
pasting the result 10 rows down (A13), and to continue the process (A4 and
A23, then A5 and A33..etc etc) until it reaches an empty cell and stops?

If anyone can help i'd be very grateful, thanks,
\sh

(i'm using Excel 2002 SP3)

----------------------------------------------------

Sub Test()
' Test Macro

' Macro recorded 02/11/2006 by \sh

' Keyboard Shortcut: Ctrl+p

Range("A2").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Sheets("Sheet2").Select

ActiveSheet.Paste

Sheets("Sheet1").Select

Range("A3").Select

End Sub

Not sure of what you are trying to do here, but:
Here's an example of Looping thru the values beginning in
Range A2 of Sheet1 and continuing down until you reach a blank cell.

In a Standard Module paste in:

Sub tester()
Sheets("Sheet1").Range("A2").Select
Do Until ActiveCell = ""
Selection.Hyperlinks(1).Follow
Sheets("Sheet1").Activate
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Come back with questions,,,



"\sh" wrote in message
:

Hi

Does anyone know how i can get the following simple macro to repeat, but
following the hyperlink in the next cell down (which will be A3) and then
pasting the result 10 rows down (A13), and to continue the process (A4 and
A23, then A5 and A33..etc etc) until it reaches an empty cell and stops?

If anyone can help i'd be very grateful, thanks,
\sh

(i'm using Excel 2002 SP3)

----------------------------------------------------

Sub Test()
' Test Macro

' Macro recorded 02/11/2006 by \sh

' Keyboard Shortcut: Ctrl+p

Range("A2").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Sheets("Sheet2").Select

ActiveSheet.Paste

Sheets("Sheet1").Select

Range("A3").Select

End Sub

Thanks, Jim

But i got it sorted with the help of the fellas over at MrExcel.com in the
end.

FYI:

http://www.mrexcel.com/board2/viewto...157961#1157961

Cheers!
\sh


"Jim May" wrote in message
...
Not sure of what you are trying to do here, but:
Here's an example of Looping thru the values beginning in
Range A2 of Sheet1 and continuing down until you reach a blank cell.

In a Standard Module paste in:

Sub tester()
Sheets("Sheet1").Range("A2").Select
Do Until ActiveCell = ""
Selection.Hyperlinks(1).Follow
Sheets("Sheet1").Activate
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Come back with questions,,,



"\sh" wrote in message
:

Hi

Does anyone know how i can get the following simple macro to repeat, but
following the hyperlink in the next cell down (which will be A3) and then
pasting the result 10 rows down (A13), and to continue the process (A4
and
A23, then A5 and A33..etc etc) until it reaches an empty cell and stops?

If anyone can help i'd be very grateful, thanks,
\sh

(i'm using Excel 2002 SP3)

----------------------------------------------------

Sub Test()
' Test Macro

' Macro recorded 02/11/2006 by \sh

' Keyboard Shortcut: Ctrl+p

Range("A2").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Sheets("Sheet2").Select

ActiveSheet.Paste

Sheets("Sheet1").Select

Range("A3").Select

End Sub