Previous Topic Next Topic

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

Answer 1 / 5
aquarelle Posts 7119 Registration date Saturday April 7, 2007 Status Moderator Last seen October 18, 2022 491
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
Answer 2 / 5
aquarelle Posts 7119 Registration date Saturday April 7, 2007 Status Moderator Last seen October 18, 2022 491
Apr 4, 2014 at 09:30 AM
Hello,

Which column? Everytime the same column or not?

Regards
0
Answer 3 / 5
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 7119 Registration date Saturday April 7, 2007 Status Moderator Last seen October 18, 2022 491
Apr 4, 2014 at 10:16 AM
Which? A B C...?
0
Answer 4 / 5
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
Answer 5 / 5
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