re : choose every second row 
Author Message
 re : choose every second row

this should work:

Sub SelectEverySecondRow()

StepR = 2
your_str = ""

For i = ActiveCell.Row + StepR To Cells.SpecialCells
(xlCellTypeLastCell).Row Step StepR
 your_str = your_str & i & ":" & i & ","
Next
your_str = Left(your_str, Len(your_str) - 1)
Range(your_str).Select

End Sub

Gilad

Sent via Deja.com http://www.*-*-*.com/
Before you buy.



Wed, 18 Jun 1902 08:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. how to delete every second row

2. duplicating every second row

3. Deleting every second row?

4. Please - Macro that deletes every second row

5. inserting a row to every second line.

6. adding every second cell in a row

7. delete every second row

8. Deleting every second row

9. every second row

10. duplicating every second row


 
Powered by phpBB® Forum Software © phpBB Group