Перенос значений из одного листа на другой

[Антон_92]

Помогите, пожалуйста, написать макрос

На первом листе каталог товаров(более 1000 наимен.), включающий следующие столбцы: кат.ном., наименование, количество, шт. в уп., цена USD. столбец "количество" изначально пустой или со значениями "0". Необходимо, чтобы при внесении какого либо положительного числового значение в ячейку столбца "количество", строка(а лучше диапазон, состоящий из 1 строки и столбцов, количество которых можно менять) скопировалась на другой лист в определенное место(даже если в строке есть пустые ячейки, необходимо, чтобы они тоже скопировались). при последующем внесении в столбец "количество" значений, необходимо, чтобы строка копировалась сразу после предыдущей

[IgorGO]

правой кнопкой мыши по ярлыку листа, содержащего каталог товаров
исходный текст

вставте в открывшемся окне этот

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Long
  If Target.Cells.Count > 1 Then Exit Sub
  If Target.Column <> 3 Then Exit Sub
  If Target = "" Then Exit Sub
  With Worksheets(Worksheets.Count)
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    Target.EntireRow.Copy .Cells(r, 1)
  End With
End Sub

пользуйтесь...

[Антон_92]

Спасибо за помощь, но у меня не работает. ссылка на часть БД http://webfile.ru/f671a4add8bfe200d240098012554def

[Антон_92]

пароль 12345

[IgorGO]

Спасибо за помощь, но у меня не работает

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

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Long
  If Target.Cells.Count > 1 Then Exit Sub
  If Target.Column <> 5 Then Exit Sub
  If Target = "" Then Exit Sub
  With Worksheets(Worksheets.Count)
    r = .Cells(.Rows.Count, 2).End(xlUp).Row
    Target.EntireRow.Copy .Cells(r + 1, 1)
  End With
End Sub

красные исправления - это то, что не совпало с Вашим описанием, а зеленое - это исправлена моя ошибка.