Selecting after Find Method

[Kou Vang]

How do I select the entire row of C after I find and select it? Thanks

Set C = .Find("Date", LookIn:=xlValues)
If C Is Nothing Then
MsgBox "Not Found!"
Else
C.Select

[Jim Thomlinson]

C.Entirerow.Select
--
HTH...

Jim Thomlinson


"Kou Vang" wrote:

> How do I select the entire row of C after I find and select it? Thanks
>
> Set C = .Find("Date", LookIn:=xlValues)
> If C Is Nothing Then
> MsgBox "Not Found!"
> Else
> C.Select
>
>
>

[Kou Vang]

I swear I tried that! But thanks again JIM!!! Once again, Access VBA is
frying my brains!

"Jim Thomlinson" wrote:

> C.Entirerow.Select
> --
> HTH...
>
> Jim Thomlinson
>
>
> "Kou Vang" wrote:
>
> > How do I select the entire row of C after I find and select it? Thanks
> >
> > Set C = .Find("Date", LookIn:=xlValues)
> > If C Is Nothing Then
> > MsgBox "Not Found!"
> > Else
> > C.Select
> >
> >
> >

[Kou Vang]

One more thing, if I wanted to select everything above C, then would I use an
autofill to do this?

"Jim Thomlinson" wrote:

> C.Entirerow.Select
> --
> HTH...
>
> Jim Thomlinson
>
>
> "Kou Vang" wrote:
>
> > How do I select the entire row of C after I find and select it? Thanks
> >
> > Set C = .Find("Date", LookIn:=xlValues)
> > If C Is Nothing Then
> > MsgBox "Not Found!"
> > Else
> > C.Select
> >
> >
> >

[Jim Thomlinson]

Nope you don't need the autofill for that matter you do not need the select.

With ActiveSheet.Range("a1:a50")

Set C = .Find("Date", LookIn:=xlValues)
If C Is Nothing Then
MsgBox "Not Found!"
Else
activesheet.Range("A1", C).entirerow.delete

--
HTH...

Jim Thomlinson


"Kou Vang" wrote:

> One more thing, if I wanted to select everything above C, then would I use an
> autofill to do this?
>
> "Jim Thomlinson" wrote:
>
> > C.Entirerow.Select
> > --
> > HTH...
> >
> > Jim Thomlinson
> >
> >
> > "Kou Vang" wrote:
> >
> > > How do I select the entire row of C after I find and select it? Thanks
> > >
> > > Set C = .Find("Date", LookIn:=xlValues)
> > > If C Is Nothing Then
> > > MsgBox "Not Found!"
> > > Else
> > > C.Select
> > >
> > >
> > >

[Ian Digby]

Kou Vang,

Use

C.EntireRow.Select

Regards
Ian
--
Work performed in the spirit of service is worship...Baha''''i Writings


"Kou Vang" wrote:

> How do I select the entire row of C after I find and select it? Thanks
>
> Set C = .Find("Date", LookIn:=xlValues)
> If C Is Nothing Then
> MsgBox "Not Found!"
> Else
> C.Select
>
>
>