Delete rows if columns are blank

**Deutz** · 03-20-2012, 09:44 PM

Hi and thanks in advance.

I need some VBA that will delete rows on a sheet based on user selection from a form listbox.

If the user selects one or more columns from the listbox then I want to delete the rows on the active sheet that have blank cells in those columns.

So if the user selects columns A, E, F and a row has blanks in all three of those columns, then I want to delete it.

I currently have this code with removes rows that are completely blank ...

For i = TheRange.Rows.Count To 1 Step -1
   If WorksheetFunction.CountA(TheRange.Rows(i)) = 0 Then
      TheRange.Rows(i).EntireRow.Delete
   End If
Next i

thanks
Deutz

**Leith Ross** · 03-20-2012, 11:30 PM

Hello Deutz,

Welcome to the Forum!

It would be best to post a copy of the workbook. This will provide a complete picture of what you are doing and reduce the number of questions needed before a solution is reached.

To attach a file to your post, you need to be using the main 'New Post' or 'New Thread' page and not 'Quick Reply'.
To use the main 'New Post' page, click the 'Post Reply' button in the relevant thread.

On this page, below the message box, you will find a button labelled 'Manage Attachments'.
Clicking this button will open a new window for uploading attachments.

You can upload an attachment either from your computer or from another URL by using the appropriate box on this page.
Alternatively you can click the Attachment Icon to open this page.

To upload a file from your computer, click the 'Browse' button and locate the file.

To upload a file from another URL, enter the full URL for the file in the second box on this page.
Once you have completed one of the boxes, click 'Upload'.

Once the upload is completed the file name will appear below the input boxes in this window.
You can then close the window to return to the new post screen.

**rscsmith** · 03-21-2012, 05:52 AM

Hi

This function will test whether the row has a blank cell in the columns:

Function testBlanks(intRow As Integer, intCol1 As Integer, _
    Optional intCol2 As Integer, _
    Optional intCol3 As Integer, _
    Optional intCol4 As Integer) As Boolean
Dim ans As Single, strCalc As String

'What we are aiming for: Evaluate("=ISBLANK(A1)*ISBLANK(B1)*ISBLANK(C1)")

strCalc = "=ISBLANK(" & Cells(intRow, intCol1).Address & ")"
If intCol2 > 0 Then
 strCalc = strCalc & "*ISBLANK(" & Cells(intRow, intCol2).Address & ")"
 End If
 
If intCol3 > 0 Then
 strCalc = strCalc & "*ISBLANK(" & Cells(intRow, intCol3).Address & ")"
 End If

If intCol4 > 0 Then
 strCalc = strCalc & "*ISBLANK(" & Cells(intRow, intCol4).Address & ")"
 End If
 
testBlanks = (Evaluate(strCalc) = 1)
End Function

Example:

sub test
MsgBox testBlanks(12, 2, 4, 6)
end sub

This would test for cells B12, D12 and F12 being blank, and return true if they were.
The input is TestBlanks (row, col1, col2, col3, col4) - columns 2-4 are optional.
Hope this helps.

You just need to read the list box and pass on the columns to test.

Best regards, Rob.