VBA 'deleting row if a cell in column A is a zero.
 

Hi People

I'm trying to use the following macro to delete any rows
that have a "0" in all cells that are in Column A -
however whn I run the macro it does change the "0" to the
word "delete" but doesn't delete the rows? Does anyone
know what i'm doning wrong? Thanks!


Sub delete()
Application.ScreenUpdating = False
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "0" Then
Cell.Value = "delete"
End If
Next Cell
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "delete" Then Cell.EntireRow.delete
Next Cell
Range("a1").Select
Application.ScreenUpdating = True
End Sub

Hi
check out:
http://www.xldynamic.com/source/xld.Deleting.html

"Charlie" wrote:

Hi People

I'm trying to use the following macro to delete any rows
that have a "0" in all cells that are in Column A -
however whn I run the macro it does change the "0" to the
word "delete" but doesn't delete the rows? Does anyone
know what i'm doning wrong? Thanks!


Sub delete()
Application.ScreenUpdating = False
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "0" Then
Cell.Value = "delete"
End If
Next Cell
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "delete" Then Cell.EntireRow.delete
Next Cell
Range("a1").Select
Application.ScreenUpdating = True
End Sub

In IE that page seems to have a display problem (not in Firefox though :-)).
It only links to other pages so check
http://www.xldynamic.com/source/xld.Deletingv1.html for your code.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Frank Kabel" wrote in message
...
Hi
check out:
http://www.xldynamic.com/source/xld.Deleting.html

"Charlie" wrote:

Hi People

I'm trying to use the following macro to delete any rows
that have a "0" in all cells that are in Column A -
however whn I run the macro it does change the "0" to the
word "delete" but doesn't delete the rows? Does anyone
know what i'm doning wrong? Thanks!


Sub delete()
Application.ScreenUpdating = False
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "0" Then
Cell.Value = "delete"
End If
Next Cell
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "delete" Then Cell.EntireRow.delete
Next Cell
Range("a1").Select
Application.ScreenUpdating = True
End Sub

Hi Bob
a converted firefox user. Great!


--
Regards
Frank Kabel
Frankfurt, Germany

"Bob Phillips" schrieb im
Newsbeitrag ...
In IE that page seems to have a display problem (not in Firefox
though :-)).
It only links to other pages so check
http://www.xldynamic.com/source/xld.Deletingv1.html for your code.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Frank Kabel" wrote in message
...
Hi
check out:
http://www.xldynamic.com/source/xld.Deleting.html

"Charlie" wrote:

Hi People

I'm trying to use the following macro to delete any rows
that have a "0" in all cells that are in Column A -
however whn I run the macro it does change the "0" to the
word "delete" but doesn't delete the rows? Does anyone
know what i'm doning wrong? Thanks!


Sub delete()
Application.ScreenUpdating = False
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "0" Then
Cell.Value = "delete"
End If
Next Cell
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "delete" Then Cell.EntireRow.delete
Next Cell
Range("a1").Select
Application.ScreenUpdating = True
End Sub

I have so many fewer intrusions with Firefox (at least so far :-))

Bob

"Frank Kabel" wrote in message
...
Hi Bob
a converted firefox user. Great!


--
Regards
Frank Kabel
Frankfurt, Germany

"Bob Phillips" schrieb im
Newsbeitrag ...
In IE that page seems to have a display problem (not in Firefox
though :-)).
It only links to other pages so check
http://www.xldynamic.com/source/xld.Deletingv1.html for your code.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Frank Kabel" wrote in message
...
Hi
check out:
http://www.xldynamic.com/source/xld.Deleting.html

"Charlie" wrote:

Hi People

I'm trying to use the following macro to delete any rows
that have a "0" in all cells that are in Column A -
however whn I run the macro it does change the "0" to the
word "delete" but doesn't delete the rows? Does anyone
know what i'm doning wrong? Thanks!


Sub delete()
Application.ScreenUpdating = False
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "0" Then
Cell.Value = "delete"
End If
Next Cell
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "delete" Then Cell.EntireRow.delete
Next Cell
Range("a1").Select
Application.ScreenUpdating = True
End Sub