Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Clearing unlocked cells
How can I clear unlocked cells and leave the locked ones. I tried a macro
but what I am trying to clear was to large for the macro. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Clearing unlocked cells
fshew, try this,
Sub Clear_Unlocked() Dim rngeCell As Range Application.ScreenUpdating = False For Each rngeCell In ActiveSheet.UsedRange.Cells If rngeCell.Locked = False Then rngeCell.ClearContents Next Application.ScreenUpdating = True End Sub -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2002 & 2003 "fshew" wrote in message ... How can I clear unlocked cells and leave the locked ones. I tried a macro but what I am trying to clear was to large for the macro. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Clearing unlocked cells
I get this message when trying. What am I doing wrong? Compile error.
Expected end sub. ' Macro1 Macro ' Macro recorded 3/7/2006 by David Walters ' ' Keyboard Shortcut: Ctrl+n ' Sub Clear_Unlocked() Dim rngeCell As Range Application.ScreenUpdating = False For Each rngeCell In ActiveSheet.UsedRange.Cells If rngeCell.Locked = False Then rngeCell.ClearContents Next Application.ScreenUpdating = True End Sub "Paul B" wrote: fshew, try this, Sub Clear_Unlocked() Dim rngeCell As Range Application.ScreenUpdating = False For Each rngeCell In ActiveSheet.UsedRange.Cells If rngeCell.Locked = False Then rngeCell.ClearContents Next Application.ScreenUpdating = True End Sub -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2002 & 2003 "fshew" wrote in message ... How can I clear unlocked cells and leave the locked ones. I tried a macro but what I am trying to clear was to large for the macro. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Clearing unlocked cells
OK I put the code in. How do I then clear the cells?
"fshew" wrote: How can I clear unlocked cells and leave the locked ones. I tried a macro but what I am trying to clear was to large for the macro. |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Clearing unlocked cells
fshew, looks like you may have part of another macro in with it, but with
what you posted with it commented out looks like it should work, may want to put this in a new module and try again Sub Clear_Unlocked() Dim rngeCell As Range Application.ScreenUpdating = False For Each rngeCell In ActiveSheet.UsedRange.Cells If rngeCell.Locked = False Then rngeCell.ClearContents Next Application.ScreenUpdating = True End Sub "fshew" wrote in message ... I get this message when trying. What am I doing wrong? Compile error. Expected end sub. ' Macro1 Macro ' Macro recorded 3/7/2006 by David Walters ' ' Keyboard Shortcut: Ctrl+n ' Sub Clear_Unlocked() Dim rngeCell As Range Application.ScreenUpdating = False For Each rngeCell In ActiveSheet.UsedRange.Cells If rngeCell.Locked = False Then rngeCell.ClearContents Next Application.ScreenUpdating = True End Sub "Paul B" wrote: fshew, try this, Sub Clear_Unlocked() Dim rngeCell As Range Application.ScreenUpdating = False For Each rngeCell In ActiveSheet.UsedRange.Cells If rngeCell.Locked = False Then rngeCell.ClearContents Next Application.ScreenUpdating = True End Sub -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2002 & 2003 "fshew" wrote in message ... How can I clear unlocked cells and leave the locked ones. I tried a macro but what I am trying to clear was to large for the macro. |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Clearing unlocked cells
fshew,
To put in this macro, from your workbook right-click the workbook's icon and pick View Code. This icon is to the left of the "File" menu this will open the VBA editor, in Project Explorer click on your workbook name, if you don't see it press CTRL + r to open the Project Explorer, then go to insert, module, and paste the code in the window that opens on the right hand side, press Alt and Q to close this window and go back to your workbook and press alt and F8, this will bring up a box to pick the Macro from, click on the Macro name, Clear_Unlocked, to run it. If you are using excel 2000 or newer you may have to change the macro security settings to get the macro to run. To change the security settings go to tools, macro, security, security level and set it to medium -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2002 & 2003 "fshew" wrote in message ... OK I put the code in. How do I then clear the cells? "fshew" wrote: How can I clear unlocked cells and leave the locked ones. I tried a macro but what I am trying to clear was to large for the macro. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Locked spreadsheet, move cursor only to unlocked cells? | Excel Worksheet Functions | |||
Marking unlocked cells in active worksheet | Excel Discussion (Misc queries) | |||
requires that merged cells must be identically sized? | Excel Discussion (Misc queries) | |||
Help adding text values | Excel Worksheet Functions | |||
Convert data type of cells to Text,Number,Date and Time | Excel Worksheet Functions |