Delete an entire row

[One-Leg]

Hello,

What can I add in a macro that will seach cells N2:N65536 and if one cell
has the value "0", to delete that entire row (where the "0" was found)???

 

[One-Leg]

CORRECTION:

I would like to search every cell in column "N" and if a zero is found, to
clear the cells "K", "L", "N" and "O" of that specific row.

 

[Teethless mama]

Auto Filter the "0" then select the filter range and Delete

 

[One-Leg]

Thanks but I'm looking for a way to have this done via a Macro!!!

I already have a macro that copies some values from one place to another and
at one poitn in time, I need to clear every rows where "0" is found in column
"N".

 

[Mike]

Sub deleterows()
Const sZeroAs String = "0"
Dim rngColumnN As Range
Dim i As Long

Set rngColumnN = _
ActiveSheet.Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
'Work backwards from bottom to top when deleting rows
Application.ScreenUpdating = False
With rngColumnN
For i = .Rows.Count To 2 Step -1
If .Cells(i) <> sUSA Then
.Cells(i).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

 

[Mike]

Replace this line in my other post
FROM:ActiveSheet.Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
TO:ActiveSheet.Range(Cells(1, "N"), Cells(Rows.Count, "N").End(xlUp))

 

[One-Leg]

Hello,

I added the following to my Macro and it doesn't remove the rows where a "0"
is found in cell(s) in column "N".

===================================
Const sZeroAsString = "0"
Dim rngColumnN As Range
Dim i As Long
Set rngColumnN = _
ActiveSheet.Range(Cells(1, "N"), Cells(Rows.Count, "N").End(xlUp))
' Work backwards from bottom to top when deleting rows
With rngColumnN
For i = .Rows.Count To 2 Step -1
If .Cells(i) <> sUSA Then
.Cells(i).EntireRow.Delete
End If
Next i
End With
===================================

What am I doing wrong???

 

[Mike]

sorry try this
Const sZero As String = "0"
Dim rngColumnN As Range
Dim i As Long
Set rngColumnN = _
ActiveSheet.Range(Cells(1, "N"), Cells(Rows.Count, "N").End(xlUp))
' Work backwards from bottom to top when deleting rows
With rngColumnN
For i = .Rows.Count To 2 Step -1
If .Cells(i) <> sZero Then
..Cells(i).EntireRow.Delete
End If
Next i
End With

 

[ShaneDevenshire]

Hi,

I didn't check your code but I suggest turning on the recorder and doing the
steps suggested by TM and then going back and generalizing to your situation.

 

[One-Leg]

Technically, I just need to know what code I must enter in a macro to clear
an entire row when the value "0" is found in column "N".

 

[Mike]

very sorry this will work for sure
Sub delete()
Const sZero As String = "0"
Dim rngColumnN As Range
Dim i As Long
Set rngColumnN = _

ActiveSheet.Range(Cells(1, "N"), Cells(Rows.Count, "N").End(xlUp))
' Work backwards from bottom to top when deleting rows
With rngColumnN
For i = .Rows.Count To 2 Step -1
If .Cells(i) = sZero Then
..Cells(i).EntireRow.delete
End If
Next i
End With
End Sub

 

[Mike]

replace this in my last post
From: .Cells(i).EntireRow.delete
To: .Cells(i).EntireRow.clear

 

[One-Leg]

Not working...

replace this in my last post
From: .Cells(i).EntireRow.delete
To: .Cells(i).EntireRow.clear

 

[Mike]

Whats not working............? I have tested this and where there is a zero
in column N it will delete that entire row. You need to give more detail then
Not Working....

Whats's not working ?
Sub deleteZeroRows()
Const sZero As String = "0"
Dim rngColumnN As Range
Dim i As Long
Set rngColumnN = ActiveSheet.Range(Cells(1, "N"), _
Cells(Rows.Count, "N").End(xlUp))
' Work backwards from bottom to top when deleting rows
With rngColumnN
For i = .Rows.Count To 2 Step -1
If .Cells(i) = sZero Then
..Cells(i).EntireRow.delete
'.Cells(i).EntireRow.Clear
End If
Next i
End With
End Sub