Find negative value & Clear

[Tempy]

Hi all, i have some negative values (-123) in column "T" and i need to
clear these minus values only. I have a spreadsheet that can be upto
2000 rows or longer with other values in "T" also.
Could you please help with some code.

thanks in advance.

Tempy

*** Sent via Developersdex http://www.developersdex.com ***

 

[Jim Thomlinson]

Sub ClearNegatives()
Dim rngToSearch As Range
Dim rngCurrent As Range
Dim wks As Worksheet

Set wks = ActiveSheet
Set rngToSearch = Range(wks.Range("T2"), _
wks.Cells(Rows.Count, "T").End(xlUp))
For Each rngCurrent In rngToSearch
If rngCurrent.Value < 0 Then _
rngCurrent.Value = ""
Next rngCurrent
End Sub

 

[Tempy]

Thanks Jim, really appreciate the help.

Tempy

*** Sent via Developersdex http://www.developersdex.com ***