Need help with a delete macro

[Buns1976]

Hi Everyone,

I have a worksheet with close to 1000 rows. I want to delete ALL rows where the VALUE in Column A DOES NOT
BEGIN with ZERO with a macro.

Any help would be appreciated!

Thank you!

 

[Fluff]

Is col A text, or numbers that are formatted to show leading 0s

 

[Buns1976]

Hi Fluff,

They are text.

Thank you!

 

[Buns1976]

Fluff,

I think I got it if this looks correct to you?

With Range("A2", Range("A" & Rows.Count).End(xlUp))     
 .Value = Evaluate(Replace("if(left(@,1)=""0"",@,"""")", "@", .Address))
      .SpecialCells(xlBlanks).EntireRow.Delete
   End With

<style> UL { cursor: hand; } UL LI { display: none;font: 90%;list-style: square; } UL.showList LI { display: block; } .defaultStyles UL { color: black; } UL.defaultStyles LI { display: none; } </style><style>UL { cursor: hand; } UL LI { display: none;font: 90%;list-style: square; } UL.showList LI { display: block; } .defaultStyles UL { color: black; } UL.defaultStyles LI { display: none; }</style><style> UL { cursor: hand; } UL LI { display: none;font: 90%;list-style: square; } UL.showList LI { display: block; } .defaultStyles UL { color: black; } UL.defaultStyles LI { display: none; } </style><style>UL { cursor: hand; } UL LI { display: none;font: 90%;list-style: square; } UL.showList LI { display: block; } .defaultStyles UL { color: black; } UL.defaultStyles LI { display: none; }</style><style> UL { cursor: hand; } UL LI { display: none;font: 90%;list-style: square; } UL.showList LI { display: block; } .defaultStyles UL { color: black; } UL.defaultStyles LI { display: none; } num {text-align:right;} text {text-align: left;} </style><style> UL { cursor: hand; } UL LI { display: none;font: 90%;list-style: square; } UL.showList LI { display: block; } .defaultStyles UL { color: black; } UL.defaultStyles LI { display: none; } </style><style> UL { cursor: hand; } UL LI { display: none;font: 90%;list-style: square; } UL.showList LI { display: block; } .defaultStyles UL { color: black; } UL.defaultStyles LI { display: none; } </style>

 

[Fluff]

Does it work?

 

[Buns1976]

Hi Fluff,
It works BUT its messing up another macro so I need to change it. Stay tuned.

Thank you!

 

[Rick Rothstein]

Hi Fluff,
It works BUT its messing up another macro so I need to change it. Stay tuned.

I don't see how that code could mess up another macro. If I had to guess, I'd say your other macro is not coping with the row removals correctly (possibly still using original row information against the now reduced number of rows).

 

[Buns1976]

Hi Fluff,

I was able to get this resolved.

Thanks for your help!!

 

[Fluff]

Glad you sorted it & thanks for the feedback