Still trying to delete...
 

Hi again:

I have a csv file and I would like to delete all the rows
that are not starting in A1, with a number:

So I would like to keep:
87192
04321

and delete those that are blank or start, in A1 with:


node
===
name
active


THANK YOU,

Dan

Still trying to delete...
 

Just one way it could be done, adjust to suit, presuming this runs down in
column A.
R
Pete

Sub NUMBERSPLEASE()
Application.ScreenUpdating = False
On Error Resume Next
Range("A65536").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveCell.Offset(1, 0).Value = "END"
Range("A1").Select
Do Until ActiveCell.Value = "END"
If ActiveCell.Value = "" Or ActiveCell.Value = "node" Or _
ActiveCell.Value = "===" Or ActiveCell.Value = "name" Or _
ActiveCell.Value = "active" Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
Range("A1").Select
Application.ScreenUpdating = True
End Sub

--
(][ This Email has been scanned by Norton AntiVirus. ][)
"Dan" wrote in message
...
Hi again:

I have a csv file and I would like to delete all the rows
that are not starting in A1, with a number:

So I would like to keep:
87192
04321

and delete those that are blank or start, in A1 with:


node
===
name
active


THANK YOU,

Dan

Still trying to delete...
 

Thank you! but is deleting just the blank rows!?

Thanks again; I will see if I can find out why??

Dan
-----Original Message-----
Just one way it could be done, adjust to suit, presuming
this runs down in
column A.
R
Pete

Sub NUMBERSPLEASE()
Application.ScreenUpdating = False
On Error Resume Next
Range("A65536").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveCell.Offset(1, 0).Value = "END"
Range("A1").Select
Do Until ActiveCell.Value = "END"
If ActiveCell.Value = "" Or ActiveCell.Value
= "node" Or _
ActiveCell.Value = "===" Or ActiveCell.Value
= "name" Or _
ActiveCell.Value = "active" Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
Range("A1").Select
Application.ScreenUpdating = True
End Sub

--
(][ This Email has been scanned by Norton AntiVirus. ][)
"Dan" wrote in
message
...
Hi again:

I have a csv file and I would like to delete all the rows
that are not starting in A1, with a number:

So I would like to keep:
87192
04321

and delete those that are blank or start, in A1 with:


node
===
name
active


THANK YOU,

Dan



.

Still trying to delete...
 

If there were only 4 values to delete, I wouldn't use a macro.

I'd apply Data|filter|autofilter
filter that column to show the values to delete (one at at time)
then delete the visible rows
then filter by the next value, delete those visible rows,
etc.



Dan wrote:

Hi again:

I have a csv file and I would like to delete all the rows
that are not starting in A1, with a number:

So I would like to keep:
87192
04321

and delete those that are blank or start, in A1 with:

node
===
name
active

THANK YOU,

Dan

--

Dave Peterson