Delete cell contents
 

Could someone please provide some VBA code that will delete all cell
contents for all the unlocked cells in a sheet?

Rob

Delete cell contents
 

Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
--
Gary''s Student - gsnu200713


"Rob" wrote:

Could someone please provide some VBA code that will delete all cell
contents for all the unlocked cells in a sheet?

Rob

Delete cell contents
 

Thankyou so much. Worked perfectly.

As an alternative for another application I have, could you also provide me
with the code to have cells only cleared from a specified range instead of
the whole sheet?

Rob

"Gary''s Student" wrote in message
...
Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
--
Gary''s Student - gsnu200713


"Rob" wrote:

Could someone please provide some VBA code that will delete all cell
contents for all the unlocked cells in a sheet?

Rob

Delete cell contents
 

Sub rob()
For Each r In Selection
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub

In this version, just Select the area you wish to clear before running the
macro.
--
Gary''s Student - gsnu200714


"Rob" wrote:

Thankyou so much. Worked perfectly.

As an alternative for another application I have, could you also provide me
with the code to have cells only cleared from a specified range instead of
the whole sheet?

Rob

"Gary''s Student" wrote in message
...
Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
--
Gary''s Student - gsnu200713


"Rob" wrote:

Could someone please provide some VBA code that will delete all cell
contents for all the unlocked cells in a sheet?

Rob

Delete cell contents
 

Thanks again and that is useful, but could you please provide code that will
do a predefined range, such as A5:G200

Rob

"Gary''s Student" wrote in message
...
Sub rob()
For Each r In Selection
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub

In this version, just Select the area you wish to clear before running the
macro.
--
Gary''s Student - gsnu200714


"Rob" wrote:

Thankyou so much. Worked perfectly.

As an alternative for another application I have, could you also provide
me
with the code to have cells only cleared from a specified range instead
of
the whole sheet?

Rob

"Gary''s Student" wrote in
message
...
Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
--
Gary''s Student - gsnu200713


"Rob" wrote:

Could someone please provide some VBA code that will delete all cell
contents for all the unlocked cells in a sheet?

Rob

Delete cell contents
 

And....
the condition that only the unlocked cells be cleared in the predefined
range still need to apply.

Rob

"Gary''s Student" wrote in message
...
Sub rob()
For Each r In Selection
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub

In this version, just Select the area you wish to clear before running the
macro.
--
Gary''s Student - gsnu200714


"Rob" wrote:

Thankyou so much. Worked perfectly.

As an alternative for another application I have, could you also provide
me
with the code to have cells only cleared from a specified range instead
of
the whole sheet?

Rob

"Gary''s Student" wrote in
message
...
Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
--
Gary''s Student - gsnu200713


"Rob" wrote:

Could someone please provide some VBA code that will delete all cell
contents for all the unlocked cells in a sheet?

Rob

Delete cell contents
 

Change this:
For Each r In Selection
to
For Each r In activesheet.range("a5:g200").cells



Rob wrote:

Thanks again and that is useful, but could you please provide code that will
do a predefined range, such as A5:G200

Rob

"Gary''s Student" wrote in message
...
Sub rob()
For Each r In Selection
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub

In this version, just Select the area you wish to clear before running the
macro.
--
Gary''s Student - gsnu200714


"Rob" wrote:

Thankyou so much. Worked perfectly.

As an alternative for another application I have, could you also provide
me
with the code to have cells only cleared from a specified range instead
of
the whole sheet?

Rob

"Gary''s Student" wrote in
message
...
Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
--
Gary''s Student - gsnu200713


"Rob" wrote:

Could someone please provide some VBA code that will delete all cell
contents for all the unlocked cells in a sheet?

Rob







--

Dave Peterson

Delete cell contents
 

Thanks Dave.

Rob


"Dave Peterson" wrote in message
...
Change this:
For Each r In Selection
to
For Each r In activesheet.range("a5:g200").cells



Rob wrote:

Thanks again and that is useful, but could you please provide code that
will
do a predefined range, such as A5:G200

Rob

"Gary''s Student" wrote in
message
...
Sub rob()
For Each r In Selection
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub

In this version, just Select the area you wish to clear before running
the
macro.
--
Gary''s Student - gsnu200714


"Rob" wrote:

Thankyou so much. Worked perfectly.

As an alternative for another application I have, could you also
provide
me
with the code to have cells only cleared from a specified range
instead
of
the whole sheet?

Rob

"Gary''s Student" wrote in
message
...
Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
--
Gary''s Student - gsnu200713


"Rob" wrote:

Could someone please provide some VBA code that will delete all
cell
contents for all the unlocked cells in a sheet?

Rob







--

Dave Peterson