? Помогите с переносом данных по условию

[Ural-666]

Помогите пожалуйста!

Если ячейка скажем в колонке $A$ удовлетворяет какому либо условию (например >0) то что бы данные из этой строки (ячейка которой удовлетворяет определенному значению) переносились в определенную таблицу.
При этом желательно СДВИГАЯ ИТОГ.

То есть
Если например на Лист1 ячейка А10>0 то данные ячеек В10, С10, D10 автоматически заполняли на Лист2 ячейки A1, B1, С1

А11~A14<0 - данные не переносятся

на Лист1 ячейка А15>0 то данные ячеек В15, С15, D15 автоматически заполняли на Лист2 ячейки A2, B2, С2
....................и.т.д

=-Еще наглядней=-

Лист1 - СЧЕТ
Лист2 - Прайс
В счет вносятся только те позиции где проставлено колличество
При этом СДВИГАЯ ИТОГО вниз.

Может у кого то есть такой файл - пример и.п.

[Vasuha]

Предлагаю создать макрос и обрабатывать событие "change" первого листа. Ну а там дело техники, при условии A > 0, копировать данные текущей строки на второй лист. Итог второго листа - формула, соответственно сдвинется путем добавления новой строки.

[bank_notes]

Sub Zakaz()
With Workbooks("B.xls").Worksheets("H")
Dim iDiapazon As Range
Dim iCell As Range
Dim iCount As Integer
Set iDiapazon = .Range(.[J10], .[J65536].End(xlUp))
End With
With Application
For Each iCell In iDiapazon
If .Sum(.CountIf(iCell, iDiapazon)) > 0 Then
iCount = iCount + 1
iCell.Offset(0, -9).Resize(iCell.Rows.Count, iCell.Columns.Count + 9) _
.Copy Destination:=Worksheets("D").[1:1].Offset(iCount)
End If
Next
End With
End Sub

[pashulka]

bank_notes, Вы когда копируете чужие макросы, хотя бы пытаться понять зачем нужна та или иная инструкция, или это лишнее … а добавленные перлы, вроде iCell.Rows.Count, iCell.Columns.Count, теперь все читающие этот топик будут знать, что количество строк и столбцов для одной единственной ячейки может быть больше 1