Removing non numeric rows

HI I have a spreadsheet imported from a csv file . In column A I have a list
of stock numbers which are 6 digit numerals. The file also has header columns
and page headers etc which I need to remove so that I have a straight list of
stock reocrds only to be able to sort etc.

To do this I need to select all rows which do not have the numeric stock
number value in column A. is there code to select non-numeric values?

In an adjacent column add the formula

=IF(ISNUMBER(A1),"","X")

and then do an autofilter on that column (Data>Autofilter), and select X,
then just delete the visible rows.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Alan M" <[email protected]> wrote in message
news:[email protected]...
> HI I have a spreadsheet imported from a csv file . In column A I have a
list
> of stock numbers which are 6 digit numerals. The file also has header
columns
> and page headers etc which I need to remove so that I have a straight list
of
> stock reocrds only to be able to sort etc.
>
> To do this I need to select all rows which do not have the numeric stock
> number value in column A. is there code to select non-numeric values?

Sorry Bob,

I did not make it clear..this operation is all being done within a macro
which formats the listing to a clean list of all the stock records
automatically.

"Bob Phillips" wrote:

> In an adjacent column add the formula
>
> =IF(ISNUMBER(A1),"","X")
>
> and then do an autofilter on that column (Data>Autofilter), and select X,
> then just delete the visible rows.
>
> --
>
> HTH
>
> Bob Phillips
>
> (remove nothere from the email address if mailing direct)
>
> "Alan M" <[email protected]> wrote in message
> news:[email protected]...
> > HI I have a spreadsheet imported from a csv file . In column A I have a
> list
> > of stock numbers which are 6 digit numerals. The file also has header
> columns
> > and page headers etc which I need to remove so that I have a straight list
> of
> > stock reocrds only to be able to sort etc.
> >
> > To do this I need to select all rows which do not have the numeric stock
> > number value in column A. is there code to select non-numeric values?
>
>
>

For i = Cells(Rows.Count,"A").End(xlUp).Row
If Not Isnumeric(Cells(i,"A").Value) Then
Rows(i).Delete
End If
Next i

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Alan M" <[email protected]> wrote in message
news:[email protected]...
> Sorry Bob,
>
> I did not make it clear..this operation is all being done within a macro
> which formats the listing to a clean list of all the stock records
> automatically.
>
> "Bob Phillips" wrote:
>
> > In an adjacent column add the formula
> >
> > =IF(ISNUMBER(A1),"","X")
> >
> > and then do an autofilter on that column (Data>Autofilter), and select
X,
> > then just delete the visible rows.
> >
> > --
> >
> > HTH
> >
> > Bob Phillips
> >
> > (remove nothere from the email address if mailing direct)
> >
> > "Alan M" <[email protected]> wrote in message
> > news:[email protected]...
> > > HI I have a spreadsheet imported from a csv file . In column A I have
a
> > list
> > > of stock numbers which are 6 digit numerals. The file also has header
> > columns
> > > and page headers etc which I need to remove so that I have a straight
list
> > of
> > > stock reocrds only to be able to sort etc.
> > >
> > > To do this I need to select all rows which do not have the numeric
stock
> > > number value in column A. is there code to select non-numeric values?
> >
> >
> >