Удаление строк в зависимости от заливки

[Scolopendra]

В работе использую следующий порядок:
1. Мне присылают остатки на складе базы, которые видимо импортируют из 1С;
2. Я выбираю из них нужный товар, подсвечивая заливкой нужные строки и изменяя столбец с количеством;
3. Удаляю все неподсвеченные строки (ну, кроме заголовка, хотя его тоже можно выделить)
4. Сформированный т.о. заказ отправляю обратно на склад
Теперь вопрос:
Можно ли удалять ненужные строки через макрос, или хотя бы перенести подкрашенные в чистый лист (а старый удалить). Если у кого-то есть подобный макрос, то большая просьба закомментировать все действия, потому что иначе мои три класса приходской школы не позволят подогнать его под себя.
P.S. Желательно, чтобы сохранялись ячейки определённого цвета (напр. красного), т.к. в файле обычно бывает своя подсветка (жёлтый, зелёный и т.п.).
Заранее спасибо!

[SAS888]

Следующий код удалит все красные строки.
Работает так: объявляем переменную. Запрещаем обновление экрана (чтобы не мигал). Организуем цикл от последней заполненной строки активного листа до первой ячейки (снизу вверх) с шагом -1. Проверяем, если код цвета фона строки равен 3 (красный), то удаляем эту строку. Все.

Sub DeleteRedRows()

    Dim i As Long
    Application.ScreenUpdating = False
    For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If Rows(i).Interior.ColorIndex = 3 Then Rows(i).Delete
    Next
 
End Sub

[Scolopendra]

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

Проверяем, если код цвета фона строки равен 3 (красный), то удаляем эту строку.

Спасибо за помощь, но вопрос был, как удалить всё, кроме красной строки.
Если не трудно, поправьте код. Сам не смогу, а в работе очень пригодилось бы.

[maxic]

2 Scolopendra
Чтобы удалить все строки, заливка которых отлична от красного цвета, в коде надо проставить знак неравенства "<>" :

If Rows(i).Interior.ColorIndex <> 3 Then Rows(i).Delete

2 SAS888
На авторские права не претендую (если помешала, извините)
+ большое спасибо за ScreenUpdating - никак не могла вспомнить

[Scolopendra]

Так просто! Спасибо, вы мне сэкономили кучу времени. А я за деревьями леса не увидел.

А можно до кучи, без открытия новой темы, спросить?
Всё по тем же заказам...
Записал макрос подсветки строки с выделенной ячейкой: Shift + Пробел, Заливка, всё .
Повторяю процесс по F4 (Повтор). Ну удобно мне так.
Но когда выполняю макрос, а затем перехожу на новую строку и нажимаю F4 иногда подсвечивает не всю строку, а только выделенную ячейку. В чём может быть проблема? Пользуюсь Excel 2003.

[maxic]

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

Можете выложить то, что записано в вашем макросе?

Для примера:

Sub Макрос1()
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

[Scolopendra]

maxic спасибо за участие.
Макрос я слегка корректировал методом проб и ошибок и на данный момент он у меня выглядит следующим образом:

Sub Макрос2()
iSelectionRow = ActiveWindow.RangeSelection.Row
Rows(iSelectionRow).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

По F4 повторяется нормально, так что кто из нас глючил я видимо уже не узнаю...
Думаю тему можно закрыть. Всем спасибо.

[Scolopendra]

С закрытием темы я поторопился. Возник ещё один вопрос.
При выполнении макроса с оператором If Rows(i).Interior.ColorIndex <> 3 сохраняются все цвета, не только красный. Видимо нужен другой оператор.
А насчёт, второго вопроса (повтор по F4) — вот код:

Sub FindActiveCell()
'
' ПодсветкаСтроки Макрос
' Макрос записан 23.07.2007 (Oleg Tulsky)
'
ActiveCell.Rows("1:1").EntireRow.Select
    ActiveCell.Activate
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
End Sub

При выполнении макроса выделяет строку, при повторе по F4 выделяет ячейку, в которой стоит курсор.

[SAS888]

А что в конце концов нужно-то?
Посмотрите вложение.
При нажатии Shift+пробел - выделяется строка на которой находится курсор и автоматом окрашивается в красный цвет. При повторном нажатии - обесцвечивается.
После выделения необходимых строк - нажать F2, или запустить макрос "DeleteRows". Будут удалены все строки, кроме красных.