View Single Post
  #11   Report Post  
Posted to microsoft.public.excel.misc
Mike Mike is offline
external usenet poster
 
Posts: 3,101
Default Delete an entire row

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

"One-Leg" wrote:

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

"ShaneDevenshire" wrote:

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.
--
Thanks,
Shane Devenshire


"One-Leg" wrote:

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