need a macro for a button

[applebee]

hi
Gurus

the forum is awesome

i need a macro to be assigned to a button
the cells must be cleared but not clearing the formulas in the cell

please give me the cod efor the macro to be assigned
thanks

[Simon Lloyd]

As you haven't stated which cells or range...etc this is the best i can do for you

Sub Clr_Cells()
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
If .HasFormula Then
Else
.ClearContents
End If
End With
End Sub

[applebee]

hi please assume

the range from f22:r33 has formulas in it and i need to clear only the cells from h22 to r 33
i am not familiar withthe macro code
so kindly let me know how can i clear the contents within this range which has formulas too

thanks i appreciate your help

[Simon Lloyd]

So you want to clear everything in your stated range including formula?

[applebee]

So you want to clear everything in your stated range including formula?

Simon may be i did not explain properly

the data range starts from F22: R33
and i need to clear the whole data range i.e from F22:R33 when ever i press the button1
without clearing the formulas in it but only the contents

so i have another button2 to bring data which is working perfectly fine


thanks

[Simon Lloyd]

Try this:

Sub Clr_Cells()
With ActiveSheet.Range("H22:R33").SpecialCells(xlCellTypeConstants)
If .HasFormula Then
Else
.ClearContents
End If
End With
End Sub

[applebee]

Try this:

Sub Clr_Cells()
With ActiveSheet.Range("H22:R33").SpecialCells(xlCellTypeConstants)
If .HasFormula Then
Else
.ClearContents
End If
End With
End Sub

it asks me to debug pointing to this line
With ActiveSheet.Range("H22:R33").SpecialCells(xlCellTypeConstants)

i am sorry i am purely not into vb or programming stuff
please advice

thanks

[Simon Lloyd]

one of two things, either the range you are clearing does not have any formula or as you have shown me the line as above it has a space that shouldn't be there between Ty and pe this should read type

[applebee]

one of two things, either the range you are clearing does not have any formula or as you have shown me the line as above it has a space that shouldn't be there between Ty and pe this should read type

Helo
Simon

Yes i have formulas and i have mistyped here but not inthe macro creation

Please view my sample file and please advice on the same

all ur helpis appreciated

thanks

[Simon Lloyd]

Please supply a sample file with the code in place so i can see how you used it, there isn't any code in that workbook!