Здравствуйте. Ничего похожего на форуме я не нашёл (или прошляпил), потому завёл новую тему. Прошу помощи, ибо до меня не доходит последовательность записи формулы. Пока что для меня это тёмный лес. 2 Листа: "Заказ" и "Список". Задача: Введя количество в колонку J (>=1) в листе "Список", все данные строки, где было введено количество, из листа "Список" копируются в лист "Заказ". Очень надеюсь что правильно объяснил задачу. Пример прикрепляю. Благодарю за уделённое время.
Формулы ничего переносить не умеют. И под переносом следует понимать ситуацию, когда из первой ячейки данные ПЕРЕНОСЯТСЯ во вторую. Т.е. первая ячейка остаётся пустой.
Благодарю за оперативность! Юрий М - я неправильно сформулировал. Исправил. gling благодарю за помощь. Объясните пожалуйсто какую роль в этом всём играет доп. столбец К?
Sub Perenos()
Dim i As Long
Dim iLastRow As Long
Dim iLR As Long
Dim n As Integer
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
With Worksheets("Заказ")
iLR = .Cells(.Rows.Count, "B").End(xlUp).Row
.Range("A5:K" & iLR).ClearContents
n = 1
For i = 2 To iLastRow
iLR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
If Cells(i, "J") > 0 Then
.Cells(iLR, "A") = n
Cells(i, "J").Copy .Cells(iLR, "B")
Range(Cells(i, "A"), Cells(i, "I")).Copy .Cells(iLR, "C")
n = n + 1
End If
Next
.Activate
End With
Application.CutCopyMode = False
End Sub
Спасибо gling за помощь. Подставил в свою таблицу, всё работает. Главное условие, если у кого будет похожая задача, то наименование столбцов должно полностью совпадать на обоих листах. Я этого не знал, потому и пытался разобраться почему формула не работает (зелёный ведь). Спасибо всем кто откликнулся. Спасибо форуму! P.S. Пробывал макрос. Не сошлось. Если получится, отпишусь. P.S.S. Знаю, что нарушаю правила форума. Но возник вопрос: Есть ли возможность, чтоб при добавление новых значений в листе "Список", автоматически добавляются новые строки в литсе "Заказ" (выбор стиля "Форматировать как таблицу" не подходит).