Сохранение данных из определенных ячеек.

Пользователь

Сообщений: 1 Регистрация: 15.10.2022

15.10.2022 12:31:20

Возможно ли в excel сделать так, чтобы я вводил информацию в ячейку А1, и она сохранялась в ячейке В1. затем я менял информацию в ячейке А1, но она уже сохранялась в ячейке В2 а ячейка В1 оставалась неизменной с предыдущим значением? И так далее...

Изменено: Марат Ульданов - 15.10.2022 12:34:56

Kuzmich

Пользователь

Сообщений: 8050 Регистрация: 21.12.2012

15.10.2022 13:57:41

Цитата
Возможно ли

В модуль листа

Код

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1")) Is Nothing Then
    Application.EnableEvents = False
Dim iLastCol As Long
    iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Cells(1, iLastCol + 1) = Target
 End If
    Application.EnableEvents = True
End Sub