l the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-------------------------
From: Mandeep Baluja
>To: excel-macros@googlegroups.com
>Sent: Tuesday, November 25, 2014 2:20 AM
>Subject: $$Excel-Macros$$ Re: How to select a range in vba
this is using mod function...
Sub SelectRows3X_2()
Dim r As Range
Dim c As Range, rng As Range, lRng As Range
Set r = Cells(1, 1)
Set lRng = Range("A" & Rows.Count).End(xlUp)
Set rng = Range(r.Address, lRng.Address)
'Debug.Print rng.Address
For Each c In rng
If c.Row Mod 3 = 1 Then
Set r = Union(r
Vabz you were absolutely correct. One thing i appreciate you can easily
understand the point of view of the query.
On Tuesday, November 25, 2014 1:49:32 PM UTC+5:30, Vabz wrote:
>
> I didnt get you?, do you want it without help of code?
>
> +
> *I did not do this for you. God is here working
I didnt get you?, do you want it without help of code?
+
*I did not do this for you. God is here working through me for you.*
On Tue, Nov 25, 2014 at 12:51 PM, Mandeep Baluja
wrote:
> I just want to know whether it's is possible with the help of code or not.
> I can achieve the same with th
Haha and the *master (vabz) *comes and the query resolved. I was looking
for this code. I have seen this code somewhere but it was slipped out of my
mind.
Gud one bro.
Regards,
Mandeep Baluja
Excel Specialist.
https://www.linkedin.com/profile/view?id=312532939
https://www.facebook.com/VB
hi
try this...
Sub RowsSelect3x()
Dim r As Range
Set r = Cells(1, 1)
For i = 1 To 1000 Step 3
Set r = Union(r, Cells(i, 1))
Next
r.EntireRow.Select
End Sub
Cheers!!
+
*I did not do this for you. God is here working through me for you.*
On Tue, Nov 25, 2014 at 12:50 PM, Mandeep Baluja
wro
I just want to know whether it's is possible with the help of code or not.
I can achieve the same with the help of helper column using a mod function.
On Monday, November 24, 2014 5:05:14 PM UTC+5:30, Mandeep Baluja wrote:
>
> Dear All,
>
> I hope you have a correct idea for my question I am as
bosss, you're not getting me i know that code is fine what I want is to run
a loop for my query select every alternate rows. why should i write
1:1,3:3,5:5.10001:10001.
Basically i can certainly understand to do an ope
Sub Exercise()
Range("1:1,3:3, 5:5, 7:7").Select
End Sub
See this how this rows are selected I want automation for this with the
help of loop .
On Tuesday, November 25, 2014 11:21:46 AM UTC+5:30, Mandeep Baluja wrote:
>
> Sorry not working try this this also selecting the
Sorry not working try this this also selecting the whole range.
On Monday, November 24, 2014 5:05:14 PM 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
Dear Mandeep,
Pls try this...
Sub SelRows()
Dim R
Rows(1).EntireRow.Select
For R = 2 To 100 Step 3
Range(Selection, Selection.Rows(R)).Select
Next R
End Sub
Thanks & Regards,
Ganesh N
On Tue, Nov 25, 2014 at 9:41 AM, Mandeep Baluja
wrote:
> Sorry to say I was not looking f
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
12 matches
Mail list logo
