перенос данных в пустую ячейку в определенном диапазоне

[Данила]

добрый день! помогите доделать мне нужно что бы из листа форма ввода в лист КАРТОЧКИ для каждого наименования переносилось в определенное место!в примере видно как не правильно работает
Sub перенос()
Worksheets("Форма ввода").Range("b4:d4").Copy
n = Worksheets("карточки").Range("A1000").End(xlUp).Row
Worksheets("карточки").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues
End Sub

[Kuzmich]

Код: (vb)

Sub перенос()
    Range("b4:d4").Copy
  With Worksheets("карточки")
    n = .Range("A1000").End(xlUp).Row
    .Cells(n + 1, 3).PasteSpecial Paste:=xlPasteValues
    .Activate
  End With
End Sub

[Данила]

спасибо место поменялось но вставляет в одно место а не в следующие строчки при изменение данных в форме ввода! с другими карточками такой метод не подойдет так как они не в начале листа

[Kuzmich]

Код: (vb)

Sub перенос()
Dim i As Long
  With Worksheets("карточки")
   For i = 4 To 6
     Range("b" & i & ":d" & i).Copy
     n = .Range("C1000").End(xlUp).Row + 1
     .Cells(n, 3).PasteSpecial Paste:=xlPasteValues
   Next
     .Activate
  End With
End Sub

[Данила]

Комментарий администратора

Не надо цитировать полностью все сообщение, тем более когда в этом нет необходимости

вы меня не правильно поняли! для каждой позиции своя карточка! в листе "форме ввода" при изменение данных после нажатия кнопки данные должны заноситься в карточки

[Kuzmich]

Код: (vb)

Sub перенос()
Dim i As Long
  With Worksheets("карточки")
   For i = 4 To 6
     Range("b" & i & ":d" & i).Copy
     n = .Cells(Rows.Count, 3 + (i - 4) * 6).End(xlUp).Row + 1
     .Cells(n, 3 + (i - 4) * 6).PasteSpecial Paste:=xlPasteValues
   Next
     .Activate
  End With
End Sub

[Данила]

ВСЕ отлично СПАСИБО!

[Данила]

ребят думал все а нет! проблема в том что я добавил карточки а в них стало переноситься с верхних карточек( помогите сделать файл во вложение!

[Kuzmich]

файл во вложение!

И где он?

[Данила]

вот он)

[Kuzmich]

А в форме ввода в столбце А будет 6 наименований, которые надо распределить
по шести карточкам, или больше?

[Данила]

около 200 наименований

[Kuzmich]

Приведите пример с, хотя бы,  20-30 наименованиями

[Kuzmich]

200 наименований и карточек 200, или наименования повторяются?

[Данила]

200 наименований и карточек не повторяются