Menu
  1. Accueil
  2. Tech Forum
  3. Office Software
  4. Excel

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
 -
wendelly
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.

See more

5 replies

Answer 1 / 5
Posts
7241
Registration date
Saturday April 7, 2007
Status
Moderator
Last seen
November 22, 2019
 494
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
Thank you
1
Thank you

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

CCM 4245 users have said thank you to us this month

Answer 2 / 5
Posts
7241
Registration date
Saturday April 7, 2007
Status
Moderator
Last seen
November 22, 2019
 494
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
aquarelle
Posts
7241
Registration date
Saturday April 7, 2007
Status
Moderator
Last seen
November 22, 2019
 494
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