Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
xlUnlockedCells ClearContents Possible ?
I have a userform to input values into a sheet.
Now after either previewing the sheet, or printing it, i have the need to now remove the values(many) that were placed into the sheet. Rather than tediously entering each cell by name, is there a way to clearcontents of ALL cells that are Unlocked in the sheet ? I tried: with sheets("Inspections") if xlUnlockedCells = True then xlUnlockedCells.ClearContents end with But i get an error. Is there a way i can code this ? Corey.... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
xlUnlockedCells ClearContents Possible ?
Sub clr()
Dim c As Range For Each c In Sheet1.UsedRange If c.Locked = False Then c.Clear End If Next End Sub Mike F "Corey" wrote in message ... I have a userform to input values into a sheet. Now after either previewing the sheet, or printing it, i have the need to now remove the values(many) that were placed into the sheet. Rather than tediously entering each cell by name, is there a way to clearcontents of ALL cells that are Unlocked in the sheet ? I tried: with sheets("Inspections") if xlUnlockedCells = True then xlUnlockedCells.ClearContents end with But i get an error. Is there a way i can code this ? Corey.... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
xlUnlockedCells ClearContents Possible ?
Thanks Mike.
Code worked great, except for some reason i have a couple of merged cells (D9:G9) and (I9:M9) and these cells are NOT Locked, yet did not clear. I manually coded them in to get around that. Still saved a hell-of-a-lot-a manual coding to clear the contents. Cheers. Corey.... "Mike Fogleman" wrote in message m... Sub clr() Dim c As Range For Each c In Sheet1.UsedRange If c.Locked = False Then c.Clear End If Next End Sub Mike F "Corey" wrote in message ... I have a userform to input values into a sheet. Now after either previewing the sheet, or printing it, i have the need to now remove the values(many) that were placed into the sheet. Rather than tediously entering each cell by name, is there a way to clearcontents of ALL cells that are Unlocked in the sheet ? I tried: with sheets("Inspections") if xlUnlockedCells = True then xlUnlockedCells.ClearContents end with But i get an error. Is there a way i can code this ? Corey.... |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
xlUnlockedCells ClearContents Possible ?
If you ever have to do it again, try changing:
c.Clear 'or c.ClearContents to c.value = "" Corey wrote: Thanks Mike. Code worked great, except for some reason i have a couple of merged cells (D9:G9) and (I9:M9) and these cells are NOT Locked, yet did not clear. I manually coded them in to get around that. Still saved a hell-of-a-lot-a manual coding to clear the contents. Cheers. Corey.... "Mike Fogleman" wrote in message m... Sub clr() Dim c As Range For Each c In Sheet1.UsedRange If c.Locked = False Then c.Clear End If Next End Sub Mike F "Corey" wrote in message ... I have a userform to input values into a sheet. Now after either previewing the sheet, or printing it, i have the need to now remove the values(many) that were placed into the sheet. Rather than tediously entering each cell by name, is there a way to clearcontents of ALL cells that are Unlocked in the sheet ? I tried: with sheets("Inspections") if xlUnlockedCells = True then xlUnlockedCells.ClearContents end with But i get an error. Is there a way i can code this ? Corey.... -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
EnableSelection = xlUnlockedCells | Excel Programming | |||
Clearcontents | Excel Programming | |||
.EnableSelection = xlUnlockedCells | Excel Programming | |||
Clearcontents | Excel Programming | |||
Clearcontents | Excel Programming |