Extracting and recording data and inserting into new cells

[jetpack]

I have 2 problems that I can not solve. I don't know if a solution to either of them is possible in excel.

1. From a large spreadsheet/database with time and price information I need to extract the data from every 15th row and insert it into a new spreadsheet in chronological order.

2. Is there any way to record live streaming data every nth second or minute to a new workbook or sheet?

If anyone can help it will be much appreciated.

 

[SteveO59L]

For the first part, see if you can adapt this

Dim c As Range, rng
Dim i As Long
Dim LASTROW As Long
Dim val1 As String
Dim LASTROW2 As Long

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row

Set rng = Range("a1:a" & LASTROW)
For Each c In rng
If c.Row Mod 15 = 0 Then
val1 = c.Value
Sheets("sheet2").Activate
LASTROW2 = Cells(Rows.Count, 1).End(xlUp).Row
Range("a" & LASTROW2).Offset(1, 0) = val1
Sheets("sheet1").Activate
End If
Next c

 

[jetpack]

Thank you very much for your reply to my problem.

I ran the code and received this error.
Compile error. Invalid outside procedure.

LASTROW = Cells(Rows.COUNT, 1).End(xlUp).Row
with the xlUp being underlined.

Not sure what might be the problem. Is this a user defined procedure that I need the code for?

Thanks