Sub to delete rows if value present in column

Sam261 · Apr 21st 2021

Hello,

I am struggling to find a code that will delete the entire row if there is a value present in column C. I have attached a sample of what I have so far. This sub will be called by another sub which is not shown in the sample. Can anyone help me out with this please?

rollis13 · Apr 22nd 2021

Your macro does a lot of things I don't understand but to delete the rows with non-empty cells in column C try changing this:

Code

If .Value = ">0" Then .EntireRow.Delete

to this:

Code

If .Value <> "" Then .EntireRow.Delete

Sam261 · Apr 22nd 2021

That did it! Wow, I have been struggling for 2 days with this one task. Thank you so much!!!

rollis13 · Apr 22nd 2021

Glad I was able to help.

**royUK** · Apr 22nd 2021

This is faster, especially on big data sets

Code

Sub DeleteEmpty()
    Dim rData As Range
    
    Set rData = ActiveSheet.Range("A1").CurrentRegion
    On Error Resume Next
    rData.Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
End Sub

Sub to delete rows if value present in column

Participate now!

Share