Selecting rows.

  • Thread starter Thread starter Mandeep Baluja
  • Start date Start date
M

Mandeep Baluja

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 loopselect 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 rowseven 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
 
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
Click to expand...

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.
 
Back
Top