Заполнение таблицы по условию

[ABCOz]

Здравствуйте!
Задачка наверняка типовая, но поиск не помог, а своего опыта мало.
Есть вкладка с заказом, где клиент ставит сам количество требуемых ему деталей. Это его заявка. Но в ней остаются строки со всеми атрибутами (наименованиями, номенклатурой,ценами), но с нулевой суммой, потому как количество равно 0.
На другой вкладке хочется автоматически сформировать накладную на отпуск товара, в которой не будет "нулевых" позиций.

[SAS888]

В Excel 2003: Сервис - Параметры. В окне "Параметры окна" уберите флажок напротив "Нулевые значения".

[ABCOz]

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

В Excel 2003: Сервис - Параметры. В окне "Параметры окна" уберите флажок напротив "Нулевые значения".

Нужно СФОРМИРОВАТЬ итоговую таблицу на вкладке "Накладная" на основе таблицы из вкладки "Заказ", с условием что в Накладную войдут только значимые строчки. Ведь в заказе лежит прайс на много позиций, а накладная - документ для отгрузки. Там должны присутствовать только отгружаемые позиции.

[EducatedFool]

Никто не видел ваш файл со вкладками (которые обычно называют листами) "Накладная" и "Заказ", поэтому готового решения Вы не получите.

В общем случае можно попробовать использовать автофильтр или расширенный фильтр (меню Данные - Фильтр - Расширенный фильтр) для формирования выборки.

[ABCOz]

Навскидку накидал файлик.
В нем уже есть результат(накладная), как он быть должен. Т.е. на листе Заказ вначале была табличка с пустыми суммами, они сейяас скрыты - это результат работы расширенного фильтра, СДЕЛАННОГО РУКАМИ. В идеале, клиент ставит нужное ему к-во товара, а накладная заполняется АВТОМАТОМ.

[EducatedFool]

Вот Вам макрос:

Sub main()
    On Error Resume Next
    Dim shd As Worksheet: Set shd = Worksheets("Накладная")
    Dim shs As Worksheet: Set shs = Worksheets("Заказ")
    Dim ra As Range: Set ra = shs.Range(shs.[b6], shs.Range("b" & shs.Rows.Count).End(xlUp)).Offset(, 2)
    shd.Range("6:666").Clear
    ra.SpecialCells(xlCellTypeConstants).EntireRow.Copy shd.[a6]
    ra.Cells(1)(ra.Cells.Count + 1).EntireRow.Copy shd.Range("b" & shd.Rows.Count).End(xlUp).Offset(1).EntireRow
    shd.Range("e" & shd.Rows.Count).End(xlUp) = ra.Cells(1)(ra.Cells.Count + 1, 2)
    shd.Activate
End Sub

А вот - пример:


Вообще, такая задача решается без макросов.
Например, при помощи сводной таблицы.

[ABCOz]

Одно еще дополнение - а как бы еще менять название листа, если клиент выбрал лист не с проводами, а с болтами-гайками?
Т.е., как в неявном виде вместо Worksheets("Накладная") подставить имя другого листа? Скажем, введя в ячейку А1 значение "Накладная_болты", чтобы макрос брал таблицу из листа "Накладная_болты" ?

[EducatedFool]

Скажем, введя в ячейку А1 значение "Накладная_болты", чтобы макрос брал таблицу из листа "Накладная_болты" ?

Введя в ячейку А1 какого листа?

Надо было сразу выкладывать файл с такими листами, и указывать эту особенность в задании.

Воссоздавать структуру вашего файла у меня нет ни малейшего желания.
Не хотите выкладывать файл - адаптируйте макрос самостоятельно.