VBA Clearcontents Databody Range except headers and formulas

[Melimob]

Hi

I have this piece of code which won't work but I basically want to reference the table and clear databody range except formulas?

With Sheets("CC Reconfiguration Data")
       .Range("B3").ListObject.DataBodyRange.SpecialCells _
         (xlCellTypeConstants, 23).ClearContents
    End With

any advice appreciated

Many thanks

 

[Yongle]

Try this:

With Sheets("CC Reconfiguration Data")
 .Range("B3").ListObject.DataBodyRange.SpecialCells([B]xlCellTypeConstants[/B]).ClearContents
End With

 

[Melimob]

Try this:

With Sheets("CC Reconfiguration Data")
 .Range("B3").ListObject.DataBodyRange.SpecialCells([B]xlCellTypeConstants[/B]).ClearContents
End With

Hi Yongle

Thanks for this.

I have formulas in column B but just ran it and got an error:

'No cells were found'?

When I ran this , I didn't have any data in the rest of the table to clear at this time as this is just a precaution in case there is data.

I then went in and added dummy data and it worked so I need to add an if error go to 0?

is that correct? WOuld you be kind enough to tell me where to place it in my code?

thank you

Many thanks

 

[Yongle]

Yes - SpecialCells returns an error if nothing is found. This is how to handle that.

With Sheets("CC Reconfiguration Data")
 On Error Resume Next    [I][COLOR=#006400] 'keeps the code running[/COLOR][/I]
 .Range("B3").ListObject.DataBodyRange.SpecialCells(xlCellTypeConstants).ClearContents
 On Error GoTo 0      [I][COLOR=#006400]'resets Error handling so that VBA does not ignore later errors[/COLOR][/I]
End With

Your code can be placed in a STANDARD module

OR can be plaed in the sheet module for Sheet "CC Reconfiguration Data"
If placed in the sheet module, there is no requirement to refer to the sheet. So the code can be simplified to...

 On Error Resume Next
 Range("B3").ListObject.DataBodyRange.SpecialCells(xlCellTypeConstants).ClearContents
 On Error GoTo 0
End With

 

[Melimob]

Yes - SpecialCells returns an error if nothing is found. This is how to handle that.

With Sheets("CC Reconfiguration Data")
 On Error Resume Next    [I][COLOR=#006400] 'keeps the code running[/COLOR][/I]
 .Range("B3").ListObject.DataBodyRange.SpecialCells(xlCellTypeConstants).ClearContents
 On Error GoTo 0      [I][COLOR=#006400]'resets Error handling so that VBA does not ignore later errors[/COLOR][/I]
End With

Your code can be placed in a STANDARD module

OR can be plaed in the sheet module for Sheet "CC Reconfiguration Data"
If placed in the sheet module, there is no requirement to refer to the sheet. So the code can be simplified to...

 On Error Resume Next
 Range("B3").ListObject.DataBodyRange.SpecialCells(xlCellTypeConstants).ClearContents
 On Error GoTo 0
End With

Perfect thank you so much Yongle!