repeated end(xldown)

i have to write
activecell.end(xldown).end(xldown).end(xldown).select

is there easier way of writing this repeated functions.

I you're trying to select the last non-blank cell in the column then this
would work:

Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select

ht,

Doug


"R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
news:emeN0WcCGHA.344@TK2MSFTNGP11.phx.gbl...
>i have to write
> activecell.end(xldown).end(xldown).end(xldown).select
>
> is there easier way of writing this repeated functions.
>
>

thanks.
that is not the last non blank cell but i have to come down to a particular
cell which needs end(xldonw) 2 or 3 times.
is there something like
<end(xldown)(2)>
if know this gives me some other cell i.e. gives me
end(xldown).offset(1,0)

my data is
1
2
3
(two blank cells)

4
5
6
I want to go to 4
<range("a1").end(xldown).end(xldown).select >gives 4







"Doug Glancy" <nobodyhere@replytogroup.com> wrote in message
news:uMk73hdCGHA.2664@TK2MSFTNGP15.phx.gbl...
> I you're trying to select the last non-blank cell in the column then this
> would work:
>
> Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
>
> ht,
>
> Doug
>
>
> "R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
> news:emeN0WcCGHA.344@TK2MSFTNGP11.phx.gbl...
> >i have to write
> > activecell.end(xldown).end(xldown).end(xldown).select
> >
> > is there easier way of writing this repeated functions.
> >
> >
>
>

Is it always the next cell after the first two blank cells, but the row can
be different? If so, I think your solution is as good as any. You could
also do something like:

Range("A1").End(xlDown).Offset(3).Select

but it looks like you've thought of something like that. I need a better
description of the pattern.

hth,

Doug


"R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
news:%23EIM57oCGHA.3340@TK2MSFTNGP10.phx.gbl...
> thanks.
> that is not the last non blank cell but i have to come down to a
> particular
> cell which needs end(xldonw) 2 or 3 times.
> is there something like
> <end(xldown)(2)>
> if know this gives me some other cell i.e. gives me
> end(xldown).offset(1,0)
>
> my data is
> 1
> 2
> 3
> (two blank cells)
>
> 4
> 5
> 6
> I want to go to 4
> <range("a1").end(xldown).end(xldown).select >gives 4
>
>
>
>
>
>
>
> "Doug Glancy" <nobodyhere@replytogroup.com> wrote in message
> news:uMk73hdCGHA.2664@TK2MSFTNGP15.phx.gbl...
>> I you're trying to select the last non-blank cell in the column then this
>> would work:
>>
>> Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
>>
>> ht,
>>
>> Doug
>>
>>
>> "R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
>> news:emeN0WcCGHA.344@TK2MSFTNGP11.phx.gbl...
>> >i have to write
>> > activecell.end(xldown).end(xldown).end(xldown).select
>> >
>> > is there easier way of writing this repeated functions.
>> >
>> >
>>
>>
>
>

thanks for your patience.
the number of blank cells is variable after first set of non blank
cells.




Doug Glancy wrote:
> Is it always the next cell after the first two blank cells, but the row can
> be different? If so, I think your solution is as good as any. You could
> also do something like:
>
> Range("A1").End(xlDown).Offset(3).Select
>
> but it looks like you've thought of something like that. I need a better
> description of the pattern.
>
> hth,
>
> Doug
>
>
> "R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
> news:%23EIM57oCGHA.3340@TK2MSFTNGP10.phx.gbl...
> > thanks.
> > that is not the last non blank cell but i have to come down to a
> > particular
> > cell which needs end(xldonw) 2 or 3 times.
> > is there something like
> > <end(xldown)(2)>
> > if know this gives me some other cell i.e. gives me
> > end(xldown).offset(1,0)
> >
> > my data is
> > 1
> > 2
> > 3
> > (two blank cells)
> >
> > 4
> > 5
> > 6
> > I want to go to 4
> > <range("a1").end(xldown).end(xldown).select >gives 4
> >
> >
> >
> >
> >
> >
> >
> > "Doug Glancy" <nobodyhere@replytogroup.com> wrote in message
> > news:uMk73hdCGHA.2664@TK2MSFTNGP15.phx.gbl...
> >> I you're trying to select the last non-blank cell in the column then this
> >> would work:
> >>
> >> Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
> >>
> >> ht,
> >>
> >> Doug
> >>
> >>
> >> "R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
> >> news:emeN0WcCGHA.344@TK2MSFTNGP11.phx.gbl...
> >> >i have to write
> >> > activecell.end(xldown).end(xldown).end(xldown).select
> >> >
> >> > is there easier way of writing this repeated functions.
> >> >
> >> >
> >>
> >>
> >
> >

Maybe you could just loop the number of times you need:

dim HowMany as long
dim iCtr as long
dim DestCell as Range

howmany = 3

set destcell = range("a1")

for ictr = 1 to howmany
set destcell = destcell.end(xldown)
next ictr

msgbox destcell.address

venkat1926@yahoo.com wrote:
>
> thanks for your patience.
> the number of blank cells is variable after first set of non blank
> cells.
>
> Doug Glancy wrote:
> > Is it always the next cell after the first two blank cells, but the row can
> > be different? If so, I think your solution is as good as any. You could
> > also do something like:
> >
> > Range("A1").End(xlDown).Offset(3).Select
> >
> > but it looks like you've thought of something like that. I need a better
> > description of the pattern.
> >
> > hth,
> >
> > Doug
> >
> >
> > "R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
> > news:%23EIM57oCGHA.3340@TK2MSFTNGP10.phx.gbl...
> > > thanks.
> > > that is not the last non blank cell but i have to come down to a
> > > particular
> > > cell which needs end(xldonw) 2 or 3 times.
> > > is there something like
> > > <end(xldown)(2)>
> > > if know this gives me some other cell i.e. gives me
> > > end(xldown).offset(1,0)
> > >
> > > my data is
> > > 1
> > > 2
> > > 3
> > > (two blank cells)
> > >
> > > 4
> > > 5
> > > 6
> > > I want to go to 4
> > > <range("a1").end(xldown).end(xldown).select >gives 4
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > "Doug Glancy" <nobodyhere@replytogroup.com> wrote in message
> > > news:uMk73hdCGHA.2664@TK2MSFTNGP15.phx.gbl...
> > >> I you're trying to select the last non-blank cell in the column then this
> > >> would work:
> > >>
> > >> Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
> > >>
> > >> ht,
> > >>
> > >> Doug
> > >>
> > >>
> > >> "R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
> > >> news:emeN0WcCGHA.344@TK2MSFTNGP11.phx.gbl...
> > >> >i have to write
> > >> > activecell.end(xldown).end(xldown).end(xldown).select
> > >> >
> > >> > is there easier way of writing this repeated functions.
> > >> >
> > >> >
> > >>
> > >>
> > >
> > >

--

Dave Peterson