Macro to Clear Data

[Risque666]

Hi there

I am looking for a Macro that I can put on just the first sheet, that will clear all the Data entered on all 31 sheets.

So the Macro sits only on sheet 1 but clears all 31, so the start of a new month I start fresh, is there away to do this?

 

[lrobbo314]

How about this.

Sub ClearAll()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Sheet1" Then ws.Cells.Clear 'Change for sheet you want to ignore
Next ws

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Risque666]

Although that does clear everything - It clears all formulas and the whole entire page including lay out & template for cashiering sheet. I just want it to clear data in particular cells over 31 sheets but using 1 macro on sheet 1 to do it.

 

[lrobbo314]

What cells do you want to clear out? Are they the same on all sheets?

 

[Risque666]

So the Cells are all in the same places on every page that need cleared.

Example AJ3 AJ5, AJ7 AJ9 and so on as well as many others like B1, B2 , B3 etc.

 

[Risque666]

Still awaiting a response please

 

[Risque666]

Still awaiting a response please

Bump = Please help

 

[alansidman]

I believe that you have not received a response as you have offered up a too vague response. For VBA to work with non- adjacent cells, we need to be very specific as to what cells to clear. Also, if you want to retain your formula then you cannot clear out cell values without an if then calculation that would place empty values in the cells containing formulas. You need to be as specific as possible to get the solution you appear to be looking for.