Hello,
What is the code to clear the content of an entire column, except for the
cells that have formulas?

Thank you!

Hi Flo,

Try something like:

'=============>>
Public Sub Tester()
Dim Rng As Range

Set rng = Columns("A:A") '<<==== CHANGE

On Error Resume Next
Rng.SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0

End Sub
'<<=============


---
Regards,
Norman


"Filo" <(E-Mail Removed)> wrote in message
news:9509086E-3B3E-40F5-A895-(E-Mail Removed)...
> Hello,
> What is the code to clear the content of an entire column, except for the
> cells that have formulas?
>
> Thank you!

Which clears all the cells in column G.

What happened to the cells with formulas being left behind?

Maybe not so easy<g>

Next time you are recording go through the steps of selecting just those cells
without formulas before clearing contents.

F5>Special>Constants


Gord Dibben MS Excel MVP


On Mon, 30 Apr 2007 17:16:59 -0500, rm24746
<(E-Mail Removed)> wrote:

>
>>Filo;7553480 Wrote:
>> Hello,
>> >What is the code to clear the content of an entire column, except for
>> the
>> >cells that have formulas?
>>
>> >Thank you!
>
>Most of the questions such as yours can easily be answered by recording
>a macro TOOLS|MACRO|RECORD NEW MACRO. When I did this on a new
>worksheet and selecting the "G" column I got:
>
>Columns("G:G").Select
>Selection.ClearContents
>
>Wayne A.