vba help for copy range every 15 minutes

[shahnanu]

i get in my work sheet prices updated from exchange in row 2 every minutes
for 30 cells i.e.from cell A2 to Z2

i want to copy value of this row copied every 15 minutes in same worksheet
from row 3 onwards( or new rows ) for study of rate changes every minutes

i use excel 2007

thank you for the help
plz answer if u have any vba code to paste

 

[hiker95]

shahnanu,

You are very welcome. Glad I could help.

Thanks for the feedback. And, come back anytime.

 

[bhushanvshah]

hi..

could someone help me to modify the above solution provided in this thread.

instead of copying values of rows a2 to z2

i want it to copy values of column b1 to b100 (to be copied every 15 mins )

the concept is the same.

Thanks
Bhushan Shah

 

[hiker95]

hi..

could someone help me to modify the above solution provided in this thread.

instead of copying values of rows a2 to z2

i want it to copy values of column b1 to b100 (to be copied every 15 mins )

the concept is the same.

Thanks
Bhushan Shah

bhushanvshah,

Because of the range of the raw data, screenshots may not work correctly.

So that we can get it right on the first try:

1. Can we see the actual raw data worksheet?

2. And, can we see the worksheet that will be receiving the results (manually formatted by you for the results that you are looking for)?


You can post your workbook/worksheets to the following free site (sensitive data changed), mark the workbook for sharing, and, provide us with a link to your workbook:

https://dropbox.com

 

[bhushanvshah]

Dear hiker95,

Thanks for your reply.

just did some trial and error on your code...

'nr = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row



and arrived at the solution !!

nr = Sheet2.Cells(1, Sheet2.Columns.Count).End(xlToLeft).Offset(, 1).Column

Working smoothly as it can get... thanks once again.. Cheers
Bhushan

 

[hiker95]

just did some trial and error on your code...

'nr = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row

and arrived at the solution !!

nr = Sheet2.Cells(1, Sheet2.Columns.Count).End(xlToLeft).Offset(, 1).Column

Working smoothly as it can get

bhushanvshah,

Nicely done.

Glad that you were able to solve your request.

And, come back anytime.