Как создать правильный скрипт, по удалению не нужных строк?

[wwizard]

Здраствуйте всем, не пинайте больно.
Вопрос: как сделать так, чтобы В екселе на страничке скрипт сравнивал колонку "D" с колонкой "F,G.I" построчно и ежеле в одной из ячеек в столбиках "F,G.I" есть какаято цифра отличная от 0, то тогда ничего не удалял. А если ячейка "F,G.I" пусто и ячейка "D" скажем синегго цвета, то чтобы скрипт эту строчку не трогал?

Т.е. Я просто хочу нажать на какуюто кнопочку, и удалить строки в которых в ячейках "F,G.I" ничего не будет, либо будет 0



Смысл в том, что Ексель используется для складского учета, а скрипт написать, я не умею. а так устал от полей где нет товара, а они (поля) просто есть.

[EducatedFool]

Со скриншотами обращайтесь на форум по Фотошопу.

У нас форум по excel - будьте добры вместо картинки прикрепить к сообщению книгу excel (в виде архива)
Тогда ваши шансы на получение решения в виде "волшебной кнопочки на листе" заметно возрастут.

[alex77755]

Где- то так. Остальное поправишь. Трудно по картинке писать макрос

For i = 2 To 500 ' 500 взято условно. можно поставить функцию определения конца таблици

If (Cells(i, 6).Value = 0 Or Cells(i, 6).Value = Empty) _
And (Cells(i, 7).Value = 0 Or Cells(i, 7).Value = Empty) _
And (Cells(i, 9).Value = 0 Or Cells(i, 9).Value = Empty) _
And Cells(i, 4).Interior.ColorIndex = xlNone Then ' 
    
    Лист1.Rows(i & ":" & i).Select
    Selection.Delete Shift:=xlUp  
 End If
Next i
End Sub

[wwizard]

Файлик здесь:
Скачать

[SAS888]

Если я правильно понял задачу, то условия для ее выполнения можно упростить. Посмотрите вложение. Запустите макрос "Main". Так нужно?

[wwizard]

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

Если я правильно понял задачу, то условия для ее выполнения можно упростить. Посмотрите вложение. Запустите макрос "Main". Так нужно?

Супер! Спасибо большое, да именно так.