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

[Trimbl]

Вложение 30918Уважаемые форумчане, здравия желаю Всем!
Помогите удалить строки в таблице используя оператор цикла
"Слепленный" мною макрос работает не корректно(останавливает процедуру удалив одну строку)
Подробнее(нагляднее) во вложении.

[VictorM]

Подробнее(нагляднее) во вложении

Нагляднее, но вот начало кода

With ActiveCell

это о чем??
Здесь нужно бы явно указать эту самую ActiveCell, с чего начинаем и что является у Вас условием удаления участка.

[Trimbl]

Извиняюсь и поясняю:ActiveCell это ячейка с цифрой 1(А12), а условие удаления блока - "лишние" строки должны удаляться пока не останется только одна строка с желтыми ячейками(двенадцатая)

[Trimbl]

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

Нагляднее, но вот начало кода

With ActiveCell

это о чем??
Здесь нужно бы явно указать эту самую ActiveCell, с чего начинаем и что является у Вас условием удаления участка.

VictorM Задача состоит в том чтобы при выделении ячейки А12(номер участка) и запуске макроса DellUhastok кнопкой "удалить участок" далились бы все строки с желтыми ячейками(их количество- величина переменная), кроме одной, желательно первой (в приведенном примере 12 строка).

[VictorM]

Это все понятно..
но у Вас в коде стоит - If ActiveCell = 1
это и является условием удаления?
Если единица?

[Trimbl]

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

Это все понятно..
но у Вас в коде стоит - If ActiveCell = 1
это и является условием удаления?
Если единица?

Да, Вы правильно поняли

[VictorM]

И всеже условия задачи не совсем понятны.
Если я правильно понял условия удаления участка (судя по Вашему предварительному коду), то тогда и цикл вроде как не нужен. Или строк участка может быть сколько угодно?

Sub УдалитьУчасток()
    Критерий = [a12]
    If Критерий = 1 Then
        [b12:b13].EntireRow.Delete
        [a10,a11] = "" 'еще можно добавить ячейки, которые должны быть очищены
        [b12] = 1
    End If
End Sub

[Trimbl]

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

И всеже условия задачи не совсем понятны.
Если я правильно понял условия удаления участка (судя по Вашему предварительному коду), то тогда и цикл вроде как не нужен. Или строк участка может быть сколько угодно?

Sub УдалитьУчасток()
    Критерий = [a12]
    If Критерий = 1 Then
        [b12:b13].EntireRow.Delete
        [a10,a11] = "" 'еще можно добавить ячейки, которые должны быть очищены
        [b12] = 1
    End If
End Sub

Уважаемый VictorM ! Благодарю за ответ, извиняюсь за относительно долгое молчание(слишком большая разница в часовых поясах) Но:
1) Количество строк - величина переменная(>20, а может быть и 30)
2)Прошу помочь в создании макроса удаления строк именно используя операторы цикла.

[VictorM]

Смотрите, так?

[Trimbl]

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

Смотрите, так?

Благодарю за ответ, но это немного не то. Мкрос в предложенном примере работает только если количество строк не превышает 4. При большем количестве срок (5 и более) - работа не корректна.