Macro to delete row after certain condition found

Solved/Closed
wendelly
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014
- Apr 3, 2014 at 03:39 PM
wendelly
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014
- Apr 4, 2014 at 03:23 PM
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

aquarelle
Posts
7104
Registration date
Saturday April 7, 2007
Status
Anonymous
Last seen
May 24, 2022
490
Apr 4, 2014 at 12:02 PM
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
aquarelle
Posts
7104
Registration date
Saturday April 7, 2007
Status
Anonymous
Last seen
May 24, 2022
490
Apr 4, 2014 at 09:30 AM
Hello,

Which column? Everytime the same column or not?

Regards
0
wendelly
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014

Apr 4, 2014 at 10:09 AM
Hello, it would be the same column every time. Thanks.
0
aquarelle
Posts
7104
Registration date
Saturday April 7, 2007
Status
Anonymous
Last seen
May 24, 2022
490
Apr 4, 2014 at 10:16 AM
Which? A B C...?
0
wendelly
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014

Apr 4, 2014 at 10:45 AM
It would be column D.
0

Didn't find the answer you are looking for?

Ask a question
wendelly
Posts
4
Registration date
Thursday April 3, 2014
Status
Member
Last seen
April 4, 2014

Apr 4, 2014 at 03:23 PM
That worked brilliantly. Thanks.
0