How to clear contents of multiple cells in Excel simultaneously
I would like to allow users to clear the contents from all of the unprotected
cells in multiple sheets of a workbook, simultaneously. I read a similar posting on the subject in microsoft.public.excel.worksheet.functions, posted by sstea, titled How to clear multiple cells of input data in Excel simultaneously. The suggested code was as follows: Sub ClearForm() Dim c As Range For Each c In Sheets("sheet1").UsedRange If c.Locked = False Then c.ClearContents End If Next End Sub This was a good start but I ran into errors. 1. Runtime error '1004'. Cannot change part of a merged cell. How do I edit this code to clear the contents of unprotected merged cells? 2. How do I make this simultaneously work on multiple sheets in the workbook? |
How to clear contents of multiple cells in Excel simultaneously
Change:
c.ClearContents to c.Value = "" And to get all the worksheets: Sub ClearForm() Dim c As Range dim wks as worksheet for each wks in activeworkbook.worksheets For Each c In Sheets("sheet1").UsedRange.Cells If c.Locked = False Then c.value = "" end if next c next wks End Sub Jaclyn wrote: I would like to allow users to clear the contents from all of the unprotected cells in multiple sheets of a workbook, simultaneously. I read a similar posting on the subject in microsoft.public.excel.worksheet.functions, posted by sstea, titled How to clear multiple cells of input data in Excel simultaneously. The suggested code was as follows: Sub ClearForm() Dim c As Range For Each c In Sheets("sheet1").UsedRange If c.Locked = False Then c.ClearContents End If Next End Sub This was a good start but I ran into errors. 1. Runtime error '1004'. Cannot change part of a merged cell. How do I edit this code to clear the contents of unprotected merged cells? 2. How do I make this simultaneously work on multiple sheets in the workbook? -- Dave Peterson |
All times are GMT +1. The time now is 08:51 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com