Создание бланка заявки на основе прайса

[id48]

Доброго времени суток, заморочился такой вот задачей:
нужно чтобы при заполнении столбца D значением >0 на листе "номенклатура", на лист "ваш заказ" переносились значения столбцов A,B,C извините если не понятно объяснил, мож кто раньше делал такое.
В прикрепленном файле как примерно должно выглядеть.

[WIC]

с вашего позволения добавил шапку.
На основе сводной - решение

[id48]

WIC спасибо что откликнулись, но либо я не правильно что то описал, либо не разобрался в решении предложеном Вами. Основная задача которую я не могу решить: если в столбце "количество" мы подставляем значение то нужно чтобы на лист "ваш заказ" переносилась (копировалась) строка в которой это значение подставляется, таким образом на листе "ваш заказ" у нас формируется заказ в котором отражаются только те строки номенклатуры в поле "количество" которых есть значение >0. Вот. Проше говоря если клиент простовляет нужное ему количество единиц товара, то на листе "ваш заказ" у него должен быть перечень только тех товаров которые он выбрал

[R Dmitry]

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

WIC спасибо что откликнулись, но либо я не правильно что то описал, либо не разобрался в решении предложеном Вами. Основная задача которую я не могу решить: если в столбце "количество" мы подставляем значение то нужно чтобы на лист "ваш заказ" переносилась (копировалась) строка в которой это значение подставляется, таким образом на листе "ваш заказ" у нас формируется заказ в котором отражаются только те строки номенклатуры в поле "количество" которых есть значение >0. Вот. Проше говоря если клиент простовляет нужное ему количество единиц товара, то на листе "ваш заказ" у него должен быть перечень только тех товаров которые он выбрал

могу сделать макросом но
1.Вам сделать кнопку нажав на которую заказ сформируется или что бы после ввода значения в столбец данные отображались на другом листе?
2. это окончательный вариант размещения строк и столбцов?

[id48]

Сообщение от R Dmitry

могу сделать макросом но
1.Вам сделать кнопку нажав на которую заказ сформируется или что бы после ввода значения в столбец данные отображались на другом листе?
2. это окончательный вариант размещения строк и столбцов?

1. Желательно на другом листе, но было бы любопытно посмотреть на кнопку
2. Нет

[R Dmitry]

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

1. Желательно на другом листе, но было бы любопытно посмотреть на кнопку
2. Нет

сбрасывайте окончательный вариант, завтра сброшу решение
пошел спать

[cype]

можете и мне сбросить... готовый вариант... спс

[19vitek]

как вариант

Sub Кнопка1_Щелчок()
    Dim ra As Range
    Application.ScreenUpdating = False
    Sheets("ваш заказ").Cells.Clear
    Sheets("ваш заказ").[e1] = "Сумма"
    Sheets("номенклатура").Range("a1:d1").Copy Sheets("ваш заказ").Range("a1")
    Sheets("номенклатура").Activate
    rw = Sheets("номенклатура").Cells(65536, "d").End(xlUp).Row
    Set Rng = Sheets("номенклатура").Range("d2:d" & rw + 1).SpecialCells(xlCellTypeConstants)
    Intersect(Rng.EntireRow, Range("a:d")).Copy Sheets("ваш заказ").[a2]
    Sheets("ваш заказ").Activate
    rw = Sheets("ваш заказ").Cells(65536, "d").End(xlUp).Row
    With Sheets("ваш заказ").Range("e2:e" & rw)
       .Formula = "=c2*d2"
       .Value = .Value
    End With
    [k1] = Application.WorksheetFunction.Sum(Range("e2:e" & rw))
    Application.ScreenUpdating = True
End Sub

[Hmmm2k]

если вам сбросили - можно и мне копию?
reg (a) firetek.ee

cпасибо