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....

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....

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....

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