Home » Forums » Open Source Learning Center » Question and Answer

Select Successive Rows

Submitted by walterusher on 9 October, 2012 - 05:58

Hi All

I need a Macro that will select every tenth row in a worksheet, beginning with the 5th Row, so the selected Rows should be 5,15,25,35,45,55...........

Thanks in advance

Walter

‹ How to still scroll wheel when run vba ?? I need to Sheets.Add a single sheet of a template containing two sheets ›
»
Nick's picture

Select alternate rows

Submitted by Nick on 9 October, 2012 - 08:26.
Sub SelectEveryNthRow()
 
SelectionRow = 5
N = 10
Set SelectionRange = Rows(SelectionRow).EntireRow
EndRow = ActiveSheet.UsedRange.Rows.Count
While SelectionRow < EndRow
 SelectionRow = SelectionRow + N
 Set SelectionRange = Union(SelectionRange, Rows(SelectionRow).EntireRow)
 
Wend
SelectionRange.Select
End Sub
»