Excel 2010 копирование нескольких ячеек на связанных листах VBA

Question

У меня есть рабочая книга с 5 одинаковыми листами, отфильтрованными по разным спискам

Я связал эти листы, так что редактирование на 1 листе обновило все остальные

Это связано со следующим кодом

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
Sheets("NEXT SHEET NAME").Range(Target.Address) = Target
End Sub

NEXT SHEET NAME = имя следующего листа в книге, создавая цикл между ними

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

У кого-нибудь есть идеи?

Answer 1

Отсутствует "Значение", попробуйте это:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'On Error Resume Next
  Sheets("NEXT SHEET NAME").Range(Target.Address).Value = Target.Value
End Sub