Macro, delete rows that meet criteria

S

Scott Wagner

I have a project coming up that one aspect will require a macro to remove
certain rows in a spreadsheet that contain detailed product information that
really isn't needed. Basically I want to turn a detailed product listing
into a summarized product listing. Example of what I will have is below.

Will start with this:

Line# Qty Marking Description
01 1 A Panelboard (NQOD TYPE)
150A MCB
120Y/208V
02 1 B Panelboard (NQOD TYPE)
200A MCB
120Y/208V
03 1 C Panelboard (I-LINE TYPE)
400A MCB
120Y/208V

Want to end up with this:

Line# Qty Marking Description
01 1 A Panelboard (NQOD TYPE)
02 1 B Panelboard (NQOD TYPE)
03 1 C Panelboard (I-LINE TYPE)

Since the line number appears in a specific cell, lets say B2 then basic
logic is that is cell B2 is empty, delete row B.

Let me know what you think.

Thanks,

Scott
 
K

Ken Hudson

Hi Scott,
This should work.

Sub DelRows()
Dim Iloop As Double
Dim NumRows As Double
NumRows = Range("D65536").End(xlUp).Rows
For Iloop = NumRows To 2 Step -1
If IsEmpty(Cells(Iloop, 1)) Then
Rows(Iloop).Delete
End If
Next Iloop
End Sub

Post back if you need help setting up the macro.
 
N

Norman Jones

Hi Scott,

Try:

'=============>>
Public Sub Tester()

On Error Resume Next
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

End Sub
'<<=============
 
S

Scott Wagner

Thanks for the quick response.

I get a run time error 13 (type mismatch) at:

NumRows = Range("D65536").End(xlUp).Rows

I am not really strong with VBA.
 
S

Scott Wagner

PERFECT!!!!!

Thank you so much!!!




Norman Jones said:
Hi Scott,

Try:

'=============>>
Public Sub Tester()

On Error Resume Next
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

End Sub
'<<=============
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top