deleting zero balances


Posted by Warren Golding on October 17, 2000 9:31 PM

i have to delete the complete row in an excel list if the balance is equal to 0.00

Posted by thomas venn on October 20, 2000 11:13 AM

try this.... it will give you an error once it deletes all the zeros. at which point, click "end"

Sub Macro4()
Cells.Find(What:="0", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True).Activate
ActiveCell.Range("A1:IU1").Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(-1, 0).Range("A1").Select
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Range("A1:IU1").Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(-1, 0).Range("A1").Select
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
Application.Run "Macro4"
End Sub

cheers,

thomas



Posted by warren on October 27, 2000 3:38 AM

thanks Thomas