Previous Topic Next Topic

Macro to delete row after certain condition found

[Solved/Closed]
Report
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014
 -
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014
 -
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.

5 replies

Answer 1 / 5
Posts
7098
Registration date
Saturday April 7, 2007
Status
Moderator
Last seen
June 10, 2021
 487
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
1
Thank you
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 2821 users have said thank you to us this month

Answer 2 / 5
Posts
7098
Registration date
Saturday April 7, 2007
Status
Moderator
Last seen
June 10, 2021
 487
Hello,

Which column? Everytime the same column or not?

Regards
Answer 3 / 5
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014
Hello, it would be the same column every time. Thanks.
Report
Posts
7098
Registration date
Saturday April 7, 2007
Status
Moderator
Last seen
June 10, 2021
 487
Which? A B C...?
Answer 4 / 5
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014
It would be column D.
Answer 5 / 5
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014
That worked brilliantly. Thanks.
Ask a question