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

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 wrote in message
...
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

bob i have no idea what that even means. sorry im not to excel savoy. please
be patient with me, are those commands or values that i type somewhere like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

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 wrote in message
...
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

Try to use Bob's text with ToolsMacroVisual Basic Editor

"Tina Jones" wrote:

bob i have no idea what that even means. sorry im not to excel savoy. please
be patient with me, are those commands or values that i type somewhere like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

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 wrote in message
...
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

thank you MaR i will try that now.

"MaR" wrote:

Try to use Bob's text with ToolsMacroVisual Basic Editor

"Tina Jones" wrote:

bob i have no idea what that even means. sorry im not to excel savoy. please
be patient with me, are those commands or values that i type somewhere like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

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 wrote in message
...
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

Check out this web page of David McRitchie.
It should give you an introduction into being able to utilize Bob's code.

http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"Tina Jones" wrote in message
...
thank you MaR i will try that now.

"MaR" wrote:

Try to use Bob's text with ToolsMacroVisual Basic Editor

"Tina Jones" wrote:

bob i have no idea what that even means. sorry im not to excel savoy.
please
be patient with me, are those commands or values that i type somewhere
like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

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 wrote in message
...
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

ok i checked that out and im getting a little better by the minute thanks. so
far im doing alot less cut, paste and delete and it seems to work alot better
just by using the sort data feature. it still seems there might be a tad
faster way so im going to try and use this code. i just dont know alot if the
lingo they use can someone maybe tell me exactly where to imput his code?
thank you so much guys!

"Ragdyer" wrote:

Check out this web page of David McRitchie.
It should give you an introduction into being able to utilize Bob's code.

http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"Tina Jones" wrote in message
...
thank you MaR i will try that now.

"MaR" wrote:

Try to use Bob's text with ToolsMacroVisual Basic Editor

"Tina Jones" wrote:

bob i have no idea what that even means. sorry im not to excel savoy.
please
be patient with me, are those commands or values that i type somewhere
like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

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 wrote in message
...
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

ok i started to follow the instructions about macros and it said something
about everything i do from now on with follow this macro using excel. um dont
know about that one. so there is no basic sort, filter or edit feature i can
use in excel that will delete everything except the phone numbers?

"Ragdyer" wrote:

Check out this web page of David McRitchie.
It should give you an introduction into being able to utilize Bob's code.

http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"Tina Jones" wrote in message
...
thank you MaR i will try that now.

"MaR" wrote:

Try to use Bob's text with ToolsMacroVisual Basic Editor

"Tina Jones" wrote:

bob i have no idea what that even means. sorry im not to excel savoy.
please
be patient with me, are those commands or values that i type somewhere
like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

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 wrote in message
...
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

There certainly is a filter feature. It's DataFilterAutoFilter. You'll
need a header row for it to operate on. Click on the down arrow of the
column you want to filter and try a custom filter of 'is greater than or
equal to' 'A'. This will filter out everything starting with a number, and
display everything starting with letters. Now delete all the rows on the
screen. Excel will delete only the rows being displayed. Go back to your
filter, turn it off, and you will have left only those cells which start
with a number (which is hopefully your phone numbers).

--
Regards,
Fred
Please reply to newsgroup, not e-mail


"Tina Jones" wrote in message
...
ok i started to follow the instructions about macros and it said something
about everything i do from now on with follow this macro using excel. um
dont
know about that one. so there is no basic sort, filter or edit feature i
can
use in excel that will delete everything except the phone numbers?

"Ragdyer" wrote:

Check out this web page of David McRitchie.
It should give you an introduction into being able to utilize Bob's code.

http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"Tina Jones" wrote in message
...
thank you MaR i will try that now.

"MaR" wrote:

Try to use Bob's text with ToolsMacroVisual Basic Editor

"Tina Jones" wrote:

bob i have no idea what that even means. sorry im not to excel
savoy.
please
be patient with me, are those commands or values that i type
somewhere
like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

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 wrote in
message
...
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

In Excel

Goto the VB IDE (Alt-F11)
Menu InsertModule
Paste the code into the code window that pops up
Go back to Excel

Goto menu ToolsMacroMacros...
From the list select FormatData
Hit the Run button

Check your results

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Tina Jones" wrote in message
...
bob i have no idea what that even means. sorry im not to excel savoy.
please
be patient with me, are those commands or values that i type somewhere
like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

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 wrote in message
...
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