удаление строк

[EducatedFool]

Сообщение от komar73

как мне удалить строки в которых во втором столбце есть отрицательные значения типа -1, -10 итд.

При помощи автофильтра оставляете видимыми строки с отрацательными значениями



а потом их выделяете их, и удаляете

[komar73]

Спасибо большое за подсказку, а макросом это можно сделать?. У меня пользователи могут только нажимать на кнопки.

[EducatedFool]

а макросом это можно сделать?

Всё, что можно сделать руками, можно сделать и макросом.

Включите запись макросов, и выполните эти действия - получите готовый макрос
(раз уж вам лень поискать на форуме готовый макрос - а он тут точно был)

[komar73]

Спасибо за совет. Готовый макрос я естественно искал но они не работают так как мне надо, макро я конечно записал но он получился корявым.

Ребята подсказали набросал типа этого Но он работает бесконечно, подскажите как его остановить?

Sub УдалениеСтрок()
i = ActiveSheet.UsedRange.Rows.Count
Do While i > 0
If Cells(i, 2).Value >= 0 Then Rows(i).Delete
i = i - 1
Loop
End Sub

[SAS888]

Не люблю циклы. Лучше Вам прислушаться к совету EducatedFool. Макрос будет примерно таким:

Sub Main()
    Application.ScreenUpdating = False
    [B:B].AutoFilter Field:=1, Criteria1:="<0": On Error Resume Next
    ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    ActiveSheet.[B:B].AutoFilter
End Sub