Deleting cells with a value

[Rahiem]

I need help creating a macro that can clear all cell contents in columns L (L:L) and N (N:N) to the end of the Data and only cells with values greater than zero. Please help me if you can paste the code in the thread notes. Thanks so much in advance for your assistance. Have a nice day.

 

[texasalynn]

you don't really need a macro, just the autofilters and select custom and in the drop-down choose greater than. Then you can select the data and press delete.

 

[Mister H]

Hi Rahiem:

Just to add to what texasalynn was stating. If you use the Macro Recorder and do the Autofilter Route you can get the code. Remember when trying anyones code ALWAYS try it on a TEST Copy of your spreadsheet so you don't mess up your original copy. Here is a sample of the code I got from using Autofilter and Macro Recorder to clear ALL But Zeros from Columns L and N:

Sub DeleteAllButZero()
'
' DeleteAllButZero Macro
' Macro recorded 06/03/2009
'
'
    Columns("L:L").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
    Selection.ClearContents
    
    Columns("N:N").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
    Selection.ClearContents
    
    Range("A1").Select
    
End Sub

Good Luck,
Mark