copying every nth cell value to another cell in order

[smashgear]

Guys, I need help on this. Can someone lend a hand?

What I did was I have a series of speed data recorded per second. I wanted a speed data for every 15 minutes, so I was able to find a VB code to select every 900th speed data.

The thing is, the data is too large to navigate manually and copy the selected values and group them into another column, right next to each other.

Anyone can help? Thanks in advance.

Here is how it looks (example, every 3rd value):

 

[ADAMC]

Is this what your looking for?

You need to highlight all the columns in your range:

Sub PullEveryNthRow()

' Pull every Nth row from the selected range and place those values in
' a new worksheet.

   Dim Increment As Long
   Dim Source As Range
   Dim TargetSheet As Worksheet
   Dim SourceRow As Long
   Dim TargetRow As Long
   
   ' Use the current selection for the source
   Set Source = Selection
   
   ' Query user for the increment
   Do
      Increment = InputBox("Enter increment:")
      If Increment < 1 Then
         Exit Sub
      End If
   Loop Until Increment > 0

   ' Add a new sheet and move the data
   Sheets.Add
   Set TargetSheet = ActiveSheet
   TargetRow = 1
   For SourceRow = 1 To Source.Rows.Count Step Increment
      TargetSheet.Rows(TargetRow). _
         Resize(1, Source.Columns.Count).Value _
         = Source.Rows(SourceRow).Value
      TargetRow = TargetRow + 1
   Next SourceRow

End Sub

When the enter incriment box appears selecting 3 would copy every 3rd row and paste it to a new sheet but not sure if this is what you need?

Not my work..One of the guys in my office wrote this for me but hope it helps.

 

[smashgear]

Is this what your looking for?

You need to highlight all the columns in your range:

Sub PullEveryNthRow()

' Pull every Nth row from the selected range and place those values in
' a new worksheet.

   Dim Increment As Long
   Dim Source As Range
   Dim TargetSheet As Worksheet
   Dim SourceRow As Long
   Dim TargetRow As Long
   
   ' Use the current selection for the source
   Set Source = Selection
   
   ' Query user for the increment
   Do
      Increment = InputBox("Enter increment:")
      If Increment < 1 Then
         Exit Sub
      End If
   Loop Until Increment > 0

   ' Add a new sheet and move the data
   Sheets.Add
   Set TargetSheet = ActiveSheet
   TargetRow = 1
   For SourceRow = 1 To Source.Rows.Count Step Increment
      TargetSheet.Rows(TargetRow). _
         Resize(1, Source.Columns.Count).Value _
         = Source.Rows(SourceRow).Value
      TargetRow = TargetRow + 1
   Next SourceRow

End Sub

When the enter incriment box appears selecting 3 would copy every 3rd row and paste it to a new sheet but not sure if this is what you need?

Not my work..One of the guys in my office wrote this for me but hope it helps.

this is it! wow thanks.. i used it already. thanks for posting it.

greetings!