Select every other row

[swaink]

Hi everyone

Im trying to find a way select several rows at the same time but starting at say row 3 and then alternate rows so rows 3,5,7,9 etc

Can anyone advise please

regards

Kevin

[Anne Troy]

Just manually? Hold the ctrl key while you click on row numbers.

[Cosmos75]

Are you trying to do that manually or from a macro?

[Al Chara]

You can adapt this to your needs and maybe throw it in a for loop or something.

Range("3:3,5:5,7:7,9:9").Select

[swaink]

I would prefer doing it by macro if i can as there are some 200 rows that I'm looking to work with.

I want to hide and unhide them again using code.

Kev

[swaink]

Al

Many thanks,I'll give that a try

Kev

[daleyman]

well in that case you don't need to actually select them...


Sub hide_alternates()
For rowx = 2 To 200 Step 2
Cells(rowx, 1).RowHeight = 0
Next
End Sub

Sub unhide_alternates()
For rowx = 2 To 200 Step 2
Cells(rowx, 1).EntireRow.AutoFit
Next
End Sub

[swaink]

Daleyman

Yep that looks like just the thing I need thank you

And thanks to everyone for your response's

Kev

[jreeper]

Sub hide_Alternates()
For x = 2 To 200 Step 2
Cells(x, 1).EntireRow.Hidden = True 'switch =False to unhide
Next
End Sub

[Jay Petrulis]

On 2002-04-05 14:05, jreeper wrote:
Sub hide_Alternates()
For x = 2 To 200 Step 2
Cells(x, 1).EntireRow.Hidden = True 'switch =False to unhide
Next
End Sub

Hi Jeff,

Here is an interesting way to switch back and forth, rather than your commented out section (=false)

------------------
Sub toggle_row_setting()

Application.ScreenUpdating = False
For x = 2 To 200 Step 2
Rows(x).Hidden = Not Rows(x).Hidden
Next
Application.ScreenUpdating = True

End Sub
--------------------

Same idea, less writing.

Regards,
Jay