delete row

[vandanavai]

Hello,

I found below mentioned VB code(macro) which deletes entire row if particular cell is blank. Is it possible to modify this code so that entire row is deleted if particular cell value is not equal to zero?

Please help me.



Public Sub DeleteRowOnCell()

On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange

End Sub

[Simon Lloyd]

This code will look at all used cells in column A and if not equal to 0 then delete the entire row

Please Login or Register  to view this content.

Regards,
Simon

[vandanavai]

Thanks Simon