Delete Row If All Values Are Zero

[picton2000]

I would like a macro that deletes every row where all values on the row are zero.

On the attached file, columns A to I are base data, so should not be assessed by the macro.
I want the macro to start from column 10 (J) and delete the entire row if all values are zero.
On this example I would expect a successful macro to delete rows 4 and 5.
The total of row 3 is zero, but I would want to keep this row because it has values.

The number of columns and number or rows on my report are always variable, but the values the macro needs to assess will always start in column 10 (J).

Thanks for any help you can give me.

Jonathan Williams

[mehmetcik]

Please Login or Register  to view this content.

[Trebor76]

Hi picton2000,

Try this while on the sheet in question (just initially on a copy of your data as the results cannot be undone if they're not as expected):

Please Login or Register  to view this content.

Regards,

Robert

[picton2000]

Hello and thank you for your reply.
The code you have given me works on the range of that particular example, but the number of rows and columns will be variable each time.
I would need the code to assess column J and all columns to the right which will be variable on each report.

Thanks

[picton2000]

Hello Robert, thanks for your reply.

I work in payroll where I may have 1,500 rows and 30 or 40 columns.
I need a macro that will assess all columns from column J to the right, where the number of columns will be variable from week to week.

Thanks
Jonathan

[Trebor76]

Hello Robert, thanks for your reply.

I work in payroll where I may have 1,500 rows and 30 or 40 columns.
I need a macro that will assess all columns from column J to the right, where the number of columns will be variable from week to week.

Thanks
Jonathan

No problem - try this (again while on the sheet in question and initially on a copy of your data as the results cannot be undone if they're not as expected):

Please Login or Register  to view this content.

Regards,

Robert

[picton2000]

Hello Robert,

That works exactly as I require.
Thank you for your time and effort in giving me a successful solution.

Regards
Jonathan

[Trebor76]

Hi Jonathan,

Glad to hear it and you're welcome. Thanks for marking the thread as solved and the rep

Regards,

Robert