Здравствуйте!
Как решили?)

Sanim,  всё верно, но после обработки фильтром остаются строки по которым есть остаток в колонке "Е"  и товар есть на всех складах, эти строки нужно скрывать.

Это таблица с остатками по складам (так проще будет). Склады пронумерованы в первой строке.

1 условие которое делаю через УФ ( в колонке "Е" остаток меньше 3 ед. то закрашивает в зелёный)
2 условие ( в колонке "Е" остаток 4 и более ед., но на некоторых складах нет этой позиции то это показывает заливка через УФ).

Но есть позиции которых на остатках 4 и больше ед., и она есть на всех складах это я скрываю в ручную ( от этого вопрос, как можно сделать автоматически?).

Вроде подробно описал)))

Добрый день!
Что бы скрыть необходимые строки, нужно проверить таблицу, что бы не было выделения цветом в данной строке после обработки УФ.

УФ подсвечивает отсутствие при условии что в колонке "E" больше 3.

На пример в приведённом файле я буду скрывать строки №40,42,43,44,45,69,74,77,96 и т.д. В этом и вопрос, как это сделать быстро и сразу о всей таблице.

Добрый день!
Подскажите как в таблице скрыть строки которые не имеют заливки?

Таблицу обрабатываю УФ и он подкрашивает нужные колонки, при этом остаются строки в которых все ячейки не залиты и их необходимо скрывать (приходится в ручную проверять и скрывать).

МатросНаЗебре, Всё отлично, но этот товарищ не складывает, а вычитает)
Как поменять что бы он складывал?

вот файл

Максим В., да, вот такой результат должен получиться как пример.

Добрый день!
Подскажите как ещё кроме консолидации можно сложить остаток при одинаковом артикуле?
В таблице встречаются повторяющиеся артикулы и если есть дубли то остаток нужно сложить и отобразить в соседней колонке.
Артикул в колонке "свод", остаток в колонке "ост-к", результат вывести в колонку "результат".
файл как пример, реальный файл весит более 10 мб и состоит примерно из 170000 строк, каждый раз количество строк разница но меньше 150000 строк не бывает.
Консолидация просто не обрабатывает такой объём данных сразу, а частями слишком долго.

МатросНаЗебре, Спасибо!
Очень помогли.

Sanja, В том и дело что ещё "расту").

Добрый день!
Подскажите как сделать заливку цветом макросом при условии что если в колонках с "Е" по "АЕ" ячейки не залиты правилом условного форматирования.
В текущий момент делаю в ручную после обработки форматированием выделяю ячейки в колонках "А" и "В" зелёным цветом, что по итогу даёт возможность через фильтр по цвету увидеть только те ячейки где отработало/ не отработало правило при форматировании

Veselcack, спасибо!
перебирал все варианты подряд, ваш помог

МатросНаЗебре, Спасибо большое!!!  
Очень сильно помогает в работе!

Нужно в колонке соблюсти обязательный порядок который контролируется последними цифрами в строке (10→20→30), елси нет какого-то из трех значений значит оно должно быть замененно пустой строчкой (пусто→20→30; 10→пусто→30; 10→20→пусто; 10→пусто→пусто; пусто→20→пусто; пусто→пусто→30 и т.д)    

p.s. Вся тема програмирования для меня очень интересна, т.к. нет возможности пройти обычное обучение по програмированию то приходится изучать это самостоятельно т.к. голова требует развития и новой информации. Космос тоже очень интересная тема)

Спасибо за код. Он действует на всём поле, но как мне написали в данной теме для чего я цитирую и ваш ответ где вы сказали о методах и проблемах о которых я не подозреваю, то данный макрос не выполняет необходимое условие.

Всё равно еще раз спасибо за уделенное время.

Поправил.
Цитировал данные сообщения что бы не терять связи в переписке, что очень часто бывает когда много людей общаются в одной теме.
Но если здесь так не принято, то на будущее учту данную ошибку.

Именно по этому и обратился на данный сайт, что бы самостоятельно обучиться это и понять что в что раньше было не известно!

Спасибо)
но почему данный код вставляет  строки только в одной колонке (первой), а не по всему файлу?

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

Здравствуйте!
Есть макрос который всатвляет строки при условии, но оно соблюденно не полностью.
Нужно в колонке соблюсти обязательный порядок который контролируется последними цифрами в строке (10→20→30), елси нет какого-то из трех значений значит оно должно быть замененно пустой строчкой (пусто→20→30; 10→пусто→30; 10→20→пусто; 10→пусто→пусто; пусто→20→пусто; пусто→пусто→30 и т.д)
Sub Insert_Rows()
   Dim yy As Long
   Dim arr As Variant
   yy = Cells(Rows.Count, 1).End(xlUp).Row
   If yy = 1 Then Exit Sub
   arr = Range(Cells(1, 1), Cells(yy, 1))
   
   Dim Application_Calculation As Long
   Application_Calculation = Application.Calculation
   Application.Calculation = xlCalculationManual
   
   For yy = UBound(arr, 1) To 2 Step -1
       If Right(arr(yy, 1), 2) = "20" Then
           Cells(yy + 1, 1).Resize(1).EntireRow.Insert
           With Cells(yy + 1, 1).Resize(1, 1)
               Cells(yy, 1).Resize(1, 2).Copy .Cells
               .ClearContents
           End With
       ElseIf Right(arr(yy, 1), 2) = "10" Then
           If Right(arr(yy - 1, 1), 2) = "30" Then
               Cells(yy + 1, 1).EntireRow.Insert
               yy = yy - 1
           End If
       End If
   Next
   
   Application.Calculation = Application_Calculation
End Sub

Здравствуйте!
Есть такой макрос, но нужно немного изменить условия вставки (если текущая строка заканчивается на 10 и следующая на 10, тогда вставить 2 пустых строки; если строка заканчивается на 20 а следующая на 10 тогда вставить одну строку, если после 30 идет 20 одну строку).  Что бы сохранить в строках кратность 3 которе обусловлено окончанием строк и при отсутствии замещалось пустыми. 10→20→30; 10→пусто→пусто; 10→20→пусто; пусто→20→30.
Sub Insert_Rows()    Dim yy As Long
   Dim arr As Variant
   yy = Cells(Rows.Count, 1).End(xlUp).Row
   If yy = 1 Then Exit Sub
   arr = Range(Cells(1, 1), Cells(yy, 1))
   
   Dim Application_Calculation As Long
   Application_Calculation = Application.Calculation
   Application.Calculation = xlCalculationManual
   
   For yy = UBound(arr, 1) To 2 Step -1
       If Right(arr(yy, 1), 2) = "10" Then
           Cells(yy + 1, 1).Resize(2).EntireRow.Insert
           With Cells(yy + 1, 1).Resize(2, 2)
               Cells(yy, 1).Resize(1, 2).Copy .Cells
               .ClearContents
           End With
       ElseIf Right(arr(yy, 1), 2) = "20" Then
           If Right(arr(yy - 1, 1), 2) = "10" Then
               Cells(yy + 1, 1).EntireRow.Insert
               yy = yy - 1
           End If
       End If
   Next
   
   Application.Calculation = Application_Calculation
End Sub

вот здесь получается что если предыдущая строка заканчивается на "10" а текущая строка на "20" тогда вставляем 1 строку, но видимо не правильно поняли (если после 10 идет 10 тогда вставляем 2 строки - это работает; если после 20 идет 10 не работает (он просто после 20 вставляет пустую строку). Если после 20 в следующей строке будет стоять 10 тогда только нужно вставить пустую строку

не могу понять, почему после второй строки где идет "20", пото "30" он ставит пустую? идёт с начала "10" → "20" → "30", это правильный порядок. Но в нём после "20" он вставляет пустую строку, хотя про это нет условия......

можете пояснить за что в данном макросе отвечают данные команды на против строк?

Получилось но не до конца, нижние строки где после "10" идёт "10" несколько раз подряд не вставил строки.
Приложил файл как должно получится.

p.s. Только начинаю самостоятельно изучать макросы.

Спасибо большое!
Но я не до конца правильно написал условия, если после "10" идёт "10" тогда нужно 2 строки вставить, если после "20" идёт "10" тогда 1 строку.

Здравствуйте!
Есть готовый макрос который вставляет две пустые строки. Нужно в него добавить условие по которому он будет добавлять одну или две строки.
Вот точное условие ( если в конце "10" нужно вставить две строки, если "20" одну строку).

Sub Insert_Rows()
   Dim lLastRow As Long, li As Long
   Application.ScreenUpdating = 0
   lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   For li = lLastRow To 2 Step -1
       Rows(li).Resize(2).Insert
   Next li
   Application.ScreenUpdating = 1
End Sub