Всем доброго дня. Заранее прошу прощения, если мой вопрос покажется слишком дилетантским, но сам найти ответа не могу, возможно все дело в моей некорректной формулировке вопроса. На первом листе есть столбец значений, на втором листе своеобразный архив этих значений на тех же строках. Как сделать, чтобы при изменении значений на первом листе они автоматом добавлялись во второй лист в те же строки, заполняя следующие пустые ячейки по порядку. Пример во вложении. Заранее спасибо.
Всем доброго дня. Заранее прошу прощения, если мой вопрос покажется слишком дилетантским, но сам найти ответа не могу, возможно все дело в моей некорректной формулировке вопроса. На первом листе есть столбец значений, на втором листе своеобразный архив этих значений на тех же строках. Как сделать, чтобы при изменении значений на первом листе они автоматом добавлялись во второй лист в те же строки, заполняя следующие пустые ячейки по порядку. Пример во вложении. Заранее спасибо.outsider
Private Sub Worksheet_Change(ByVal Target As Range) Dim TT_ As Long Dim RR_ As Long Dim CC_ As Long Dim YY_ As Long TT_ = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Sheets("Лист1").Range("A1:A" & TT_)) Is Nothing Then RR_ = Target.Row
CC_ = Sheets("Лист2").Cells(RR_, Columns.Count).End(xlToLeft).Column Sheets("Лист2").Cells(RR_, CC_ + 1) = Target.Value End If
End Sub
[/vba]
на коленке не проверял. в модуль листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim TT_ As Long Dim RR_ As Long Dim CC_ As Long Dim YY_ As Long TT_ = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Sheets("Лист1").Range("A1:A" & TT_)) Is Nothing Then RR_ = Target.Row
CC_ = Sheets("Лист2").Cells(RR_, Columns.Count).End(xlToLeft).Column Sheets("Лист2").Cells(RR_, CC_ + 1) = Target.Value End If
китин, Спасибо большое, принцип верен, но есть два момента, которые хочу уточнить Как сделать, чтобы по такому же принципу формировался лист3 на основании 2 столбца, лист4 на основании, к примеру, 6 и т.д. Если сейчас ввести данные на первом листе, а потом нажать отмену, на втором добавятся в строку и то, что я вводил и предыдущее, то есть вместо того, чтобы вернуться к изначальному состоянию добавятся два ненужных значения на лист2
китин, Спасибо большое, принцип верен, но есть два момента, которые хочу уточнить Как сделать, чтобы по такому же принципу формировался лист3 на основании 2 столбца, лист4 на основании, к примеру, 6 и т.д. Если сейчас ввести данные на первом листе, а потом нажать отмену, на втором добавятся в строку и то, что я вводил и предыдущее, то есть вместо того, чтобы вернуться к изначальному состоянию добавятся два ненужных значения на лист2outsider