Delete Row, when both cells are empty

[hjason315]

I need some help with macro.

I would like to delete all rows when BOTH cells in row J AND row K are empty. Can anyone help me with that!

Thanks!

 

[venkat1926]

if there is no gap in column A try this macro test in copy of the file and not in the original file

Sub test()
Dim j As Integer
For j = Range("A1").End(xlDown).Row To 1 Step -1
If Cells(j, "J") = "" And Cells(j, "K") = "" Then Cells(j, "J").EntireRow.Delete
Next j
End Sub

 

[hjason315]

Thanks for helping, but I think there's something wrong with the code, it only deletes the first row then stop. What do you mean by gap in column A? does it mean every cell in column A has to be filled?

 

[Sektor]

[COLOR="Blue"]Sub[/COLOR] test()
    [COLOR="Blue"]Dim[/COLOR] j [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Integer[/COLOR]
    [COLOR="Blue"]For[/COLOR] j = Cells(Rows.count, "A").End(xlUp).Row [COLOR="Blue"]To[/COLOR] 1 [COLOR="Blue"]Step[/COLOR] -1
        [COLOR="Blue"]If[/COLOR] sempty(Cells(j, "J")) [COLOR="Blue"]And[/COLOR] IsEmpty(Cells(j, "K")) [COLOR="Blue"]Then[/COLOR] Cells(j, "J").EntireRow.Delete
    [COLOR="Blue"]Next[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[hjason315]

Thank you so much. now it works out perfectly well.