Macro to delete row after certain condition found Solved/Closed

Question

Hello, 

I am an Excel newbie; I am trying to write an Excel macro that will search a certain column to find a blank value. It would then delete the row immediately after the row that contains the blank column value, cycling through the entire file. Any help would be much appreciated, thanks.

Configuration: Windows / Chrome 33.0.1750.154

aquarelle · Answer

Hello,

Which column? Everytime the same column or not?

Regards

wendelly · Answer

Hello, it would be the same column every time. Thanks.

wendelly · Answer

It would be column D.

aquarelle · Answer

I presumed that there were titles on the Row 1, put this macro on the sheet you want to use it, in VBA project :
Public Sub DeleteRowIfCellZero_ColD()
Dim x As Long
Dim y As Long
x = Range("D65536").End(xlUp).Row

For y = x To 2 Step -1

If Cells(y, 4).Value = 0 Then
    
        Rows(y + 1).EntireRow.Delete
    
    End If

Next y
End Sub

Regards

wendelly · Answer

That worked brilliantly. Thanks.

Macro to delete row after certain condition found

5 responses

Similar discussions

Subscribe To Our Newsletter!