Удаление отрицательных значений в Excel

[Olegspb]

Есть у меня таблица данных в екселе, один столбец содержит цифровые значения (положительные и отрицательные). Мне нужно удалить строки с отрицательныеми значениями. Пишу такой макрос:   

 ActiveCell.CurrentRegion.Select 'выбираю таблицу
    numRows = selection.Rows.Count 'считаю кол-во строк
    For Each c In Range("c4:c" & numRows) 'определяю нужный диапазон
       If c.Value <= 0 Then c.Select
       selection.EntireRow.Delete 'задаю критерий отбора и что делать
  Next

Дело в том, что удалятеся все. Я думаю, что  c.Select выделяет все ячейки, а не ячейки со значением <0. Подскажите, пожалуйста, как выделить именно нужные мне ячейки.

[Алексей++]

по идее надо тип данный как-то проверить, не знаю как, я не под VB пишу

а в твоём случае имхо достаточно в строке
If c.Value <= 0 Then c.Select
убрать "="

[Алексей++]

кстати, зря темы удаляешь - тебе может кто-нибудь более умное чего посоветовал, чем я тогда

[Olegspb]

С той темой я разобрался:
c.Value = -c.Value
Все было просто как молоток

А по этому посту я не точно написал, необходимо удалить отрицательные и нулевые значения. Отсюда и =. Но проблема в том, удаляется вся таблица. Думаю из-за того, что 'c.Select' - это неверно, но как правильно написать ссылку на ячейки отвечающие условию <=0 не знаю Вот где собака закопана...

[gveret_nasty]

Не надо писать select, лучше удалять строки по номерам. Т.е. if cells(i,j)<=0 then rows(i).delete. Примерно так

[RomCom]

 

Код:

Dim Sht As Worksheet
Dim i, RowEnd As Integer
 
Set Sht = Application.ActiveWorkbook.ActiveSheet
RowEnd = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
i = 4
While i <= RowEnd
  If Sht.Cells(i, 3) < 0 Then
   Sht.Rows(i ).Delete
  Else
   i = i + 1
  End If
Wend

И усё