Re: SOMEONE HELP, please please?
- From: "Bob Phillips" <bob.phillips@xxxxxxxxxxxxxxxxxxxx>
- Date: Sun, 24 Apr 2005 23:42:14 +0100
Does this do it
Sub FormatData()
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Not IsNumeric(Cells(i, "A").Value) Then
Rows(i).Delete
End If
Next i
End Sub
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Tina Jones" <Tina Jones@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:5DA25CCD-16F0-4296-8653-FA6D5E299D50@xxxxxxxxxxxxxxxx
> first off thanks you guys for taking the time to help. i have got alot of
> info from the forums. ok here is my latest adventure! i am trying to
create a
> list of phone numbers for my boss. he asked me to pull out every phone
number
> on his phone bills and make a list using excel. now his bills are in PDF
> formatt and i have purchased a PDF to excel converter and it works great,
my
> issue is once im in excel i want to extract or copy all the phone numbers,
is
> that possible? so far ive just been able to delete alot of unwanted text
and
> contect that carries over from the PDF and narrow it down to only 2 colums
(A
> and B) but there is still a few things i dont need like text that reads
> "incomig" ect and ive been deleting row by row and sometimes there are
1200+
> rows and thats just taking way to much time. im thinking there has to be a
> way that once i have all the data in excel i can just copy all the phone
> numbers in the doc? im using office pro 03, can someone help this girl
out?
> thanks
.
- Follow-Ups:
- Re: SOMEONE HELP, please please?
- From: Tina Jones
- Re: SOMEONE HELP, please please?
- References:
- SOMEONE HELP, please please?
- From: Tina Jones
- SOMEONE HELP, please please?
- Prev by Date: Excel printing query
- Next by Date: Re: Excel printing query
- Previous by thread: SOMEONE HELP, please please?
- Next by thread: Re: SOMEONE HELP, please please?
- Index(es):
Relevant Pages
|