Delete Values That Are Not Whole Numbers

RickWHaas · Dec 19th 2007

I'm looking for a way, inside a Macro, to delete any value in a range of cells that is not a whole number.

Say I have a range from "A4:C50" I am pasting items from another sheet through a Macro Button but I want code at the end of the Macro to then delete anything in this range that is not a whole number.

Thanks

pdsasse · Dec 19th 2007

Re: Delete Value In Cell In Not Numerical Value

Try this. This code works on the selected cells. You can change the For Each Cl In Selection.Cells line to point to any range of cells you'd like

Code

Sub DelNonIntegers()
Dim Cl As Range
For Each Cl In Selection.Cells
    'clears non numbers
    If Not IsNumeric(Cl) Then
        Cl.ClearContents
    End If
    
    'clears numbers that are not integers
    If Cl.Value - Int(Cl.Value) > 0 Then
        Cl.ClearContents
    End If
    
    
Next Cl




End Sub

Display More

RickWHaas · Dec 19th 2007

Re: Delete Value In Cell In Not Numerical Value

Works perfect! Thanks

pdsasse · Dec 19th 2007

Re: Delete Value In Cell In Not Numerical Value

No problemo...

Delete Values That Are Not Whole Numbers

Participate now!

Share