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)???

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.

"One-Leg" wrote:

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)???

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


"One-Leg" wrote:

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.

"One-Leg" wrote:

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)???

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

"Teethless mama" wrote:

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


"One-Leg" wrote:

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.

"One-Leg" wrote:

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)???

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

"One-Leg" wrote:

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

"Teethless mama" wrote:

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


"One-Leg" wrote:

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.

"One-Leg" wrote:

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)???

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" wrote:

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

"Teethless mama" wrote:

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


"One-Leg" wrote:

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.

"One-Leg" wrote:

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)???

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" wrote:

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" wrote:

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

"Teethless mama" wrote:

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


"One-Leg" wrote:

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.

"One-Leg" wrote:

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)???