Replace the cells having negative value

yogeshyl · May 5th, 2007, 07:24 AM

I want to replace the negative numbers in a given range of cells. I need that range of cells to become blanks, so that i can filter that range and delete the entire rows.

Yogesh

vemaju · May 6th, 2007, 10:45 AM

Hi,

This code is for u

Sub DelNegs()
Dim Rng As Range
For Each Rng In Selection
    If Rng.Value < 0 Then
        Rng.ClearContents
    End If
Next
End Sub

-vemaju

meghavarshney · July 18th, 2011, 02:55 AM

actually m trying to do the same thing but m unable in it... whenever m trying to run this , it dosnt show any reponse. will u please tell me wht 'll i do...

Shasur · July 18th, 2011, 10:27 PM

Megha can you state your problem clearly - what you intend to do and what is not happening

Cheers
Shasur

chinchin · April 29th, 2016, 01:43 PM

small and clean code. thanks.

Quote:

Originally Posted by vemaju

Hi,

This code is for u

Sub DelNegs()
Dim Rng As Range
For Each Rng In Selection
    If Rng.Value < 0 Then
        Rng.ClearContents
    End If
Next
End Sub

-vemaju