Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
delete the test values, but do not delete the formulas | Excel Discussion (Misc queries) | |||
How to Delete a Range in Closed Workbook (to Replace Delete Query) | Excel Discussion (Misc queries) | |||
How do i delete a macro in Excel 2003 when delete isn't highlight | Excel Discussion (Misc queries) | |||
How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions |