Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
automating delection of certain rows
I am trying to automate through a Macro the operation
where all rows in a worksheet with a value of 0 (zero) will be deleted. how may I accomplish this? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
automating delection of certain rows
Hi Sam;
This code assumes that every cell starting in cell A1 and going down has something in it for every line and then deletes the row if you want to check the cells in column D Sub DeleteTheZeros() Range("A1").Select While Not ActiveCell = "" 'checks for the zero value 3 columns to the right of column A If ActiveCell.Offset(0, 3) = 0 Then Application.DisplayAlerts = False ActiveCell.EntireRow.Delete End If ActiveCell.Offset(1, 0).Select Wend End Sub Thanks, Greg -----Original Message----- I am trying to automate through a Macro the operation where all rows in a worksheet with a value of 0 (zero) will be deleted. how may I accomplish this? . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
automating delection of certain rows
Select a single set of cells, 1 column wide. then run this macro.
Sub DeleteRows() Dim i as Long for i = selection.rows(selection.rows.count).row to selection.Row step -1 if cells(i,Selection.Column).Value = 0 and Trim(Cells(i,Selection.Column).Value) < "" then cells(i.Selection.Column).Entirerow.Delete end if Next End Sub -- Regards, Tom Ogilvy "sam" wrote in message ... I am trying to automate through a Macro the operation where all rows in a worksheet with a value of 0 (zero) will be deleted. how may I accomplish this? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
automating delection of certain rows
Thank you for your help. When I try to run this Macro, I
get an error message. End If is highlighted and the error message box reads: End If Without Block If how may I fix this? sam -----Original Message----- Hi Sam; This code assumes that every cell starting in cell A1 and going down has something in it for every line and then deletes the row if you want to check the cells in column D Sub DeleteTheZeros() Range("A1").Select While Not ActiveCell = "" 'checks for the zero value 3 columns to the right of column A If ActiveCell.Offset(0, 3) = 0 Then Application.DisplayAlerts = False ActiveCell.EntireRow.Delete End If ActiveCell.Offset(1, 0).Select Wend End Sub Thanks, Greg -----Original Message----- I am trying to automate through a Macro the operation where all rows in a worksheet with a value of 0 (zero) will be deleted. how may I accomplish this? . . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
automating delection of certain rows
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
automating delection of certain rows
Sub DeleteTheZeros()
Range("I2").Select While Not ActiveCell = "" If ActiveCell = 0 Then Application.DisplayAlerts = False ActiveCell.EntireRow.Delete else ActiveCell.Offset(1, 0).Select End if Wend End Sub -- Regards, Tom Ogilvy wrote in message ... Thank you for your help. When I try to run this Macro, I get an error message. End If is highlighted and the error message box reads: End If Without Block If how may I fix this? sam -----Original Message----- Hi Sam; This code assumes that every cell starting in cell A1 and going down has something in it for every line and then deletes the row if you want to check the cells in column D Sub DeleteTheZeros() Range("A1").Select While Not ActiveCell = "" 'checks for the zero value 3 columns to the right of column A If ActiveCell.Offset(0, 3) = 0 Then Application.DisplayAlerts = False ActiveCell.EntireRow.Delete End If ActiveCell.Offset(1, 0).Select Wend End Sub Thanks, Greg -----Original Message----- I am trying to automate through a Macro the operation where all rows in a worksheet with a value of 0 (zero) will be deleted. how may I accomplish this? . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automating skipping rows between selected cells. Please Help | Excel Discussion (Misc queries) | |||
Automating deleting rows | Excel Discussion (Misc queries) | |||
Automating Excel | Excel Discussion (Misc queries) | |||
Automating using VBA | Excel Worksheet Functions | |||
Automating PP from XL | Excel Programming |