Dear All,

I hope you have a correct idea for my question I am asking to select rows in data with the help of loop. Please note that what i want is to run a loop select a row move next and keep the previous row selected too. I need a efficient code for this.


Sorry to say I was not looking for this , Try to run this code it will select 1 to 10 rows. Lets change the code little bit run it and found it's still selecting all what i want is select rows after every three and keep the previous rows selected too. Every one can do a operation with alternate rows even i can do the same. here the point is select next row keeping the previous rows selected too.

Sub SelRows()
Dim R
For R = 1 To 100 step 3
Range(Cells(1, "A"), Cells(R, "A")).EntireRow.Select
Next R
End Sub

Regards,
Mandeep Baluja.

I think it doing what you want, see if with the MsgBox to pause the loop if that is not what you want.


Sub SelRows()
Dim R
For R = 1 To 10 'Step 3
Range(Cells(1, "A"), Cells(R, "A")).EntireRow.Select
MsgBox "Row " & R & " selected"
Next R
End Sub


Howard

No body is getting me how to select alternate rows. like 1 , 3 , 5, 7


On Tuesday, November 25, 2014 9:42:51 AM UTC+5:30, Mandeep Baluja wrote:
Dear All,

I hope you have a correct idea for my question I am asking to select rows in data with the help of loop. Please note that what i want is to run a loop select a row move next and keep the previous row selected too. I need a efficient code for this.


Sorry to say I was not looking for this , Try to run this code it will select 1 to 10 rows. Lets change the code little bit run it and found it's still selecting all what i want is select rows after every three and keep the previous rows selected too. Every one can do a operation with alternate rows even i can do the same. here the point is select next row keeping the previous rows selected too.

Sub SelRows()
Dim R
For R = 1 To 100 step 3
Range(Cells(1, "A"), Cells(R, "A")).EntireRow.Select
Next R
End Sub

Regards,
Mandeep Baluja.

Hi;

Am Mon, 24 Nov 2014 20:12:48 -0800 (PST) schrieb Mandeep Baluja:

Sub SelRows()
Dim R
For R = 1 To 100 step 3
Range(Cells(1, "A"), Cells(R, "A")).EntireRow.Select
Next R
End Sub

try:

Sub Test()
Dim i As Long
Dim rngBig As Range

For i = 1 To 100 Step 3
If rngBig Is Nothing Then
Set rngBig = Rows(i)
Else
Set rngBig = Union(rngBig, Rows(i))
End If
Next
rngBig.Select
End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional