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

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