would anyone be up to trying to take a stab at it by having me send it to you?
"DFrank" wrote:
For Each Cell In ActiveSheet.UsedRange
If Cell Like "total board" Or Cell Like "total metal" Or Cell Like
"ITEM" Or _
Cell Like "0" _
Or IsNumeric(Cell) Or Cell.HasFormula _
Or IsError(Cell) Then
Cell.ClearContents
End If
Next Cell
you forgot an underscore after the first line, but other than that the code
looks legit, but for some reason i get an mismatch error 13.
"StumpedAgain" wrote:
OK so here's the problem: When you delete a cell, the cell below it takes
its place. Because the program has already looked at that cell, it doesn't
catch the entry that has taken its place and moves on to the next cell.
total metal
ITEM
0
total board
becomes:
ITEM
total board
To fix this I recommend using clear contents instead of delete. See the
following:
Sub delete()
For Each Cell In ActiveSheet.UsedRange
If Cell Like "total board" Or Cell Like "total metal" Or Cell Like "ITEM" Or
Cell Like "0" _
Or IsNumeric(Cell) Or Cell.HasFormula _
Or IsError(Cell) Then
Cell.ClearContents
End If
Next Cell
End Sub
"Rick Rothstein (MVP - VB)" wrote:
For Each Cell In ActiveSheet.Cells
Perhaps using...
For Each Cell In ActiveSheet.UsedRange
instead of...
For Each Cell In ActiveSheet.Cells
would involved processing less cells?
Rick