Private Sub Worksheet_Change(ByVal Target As Range) Dim dat& dat = Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then
Target.Offset(0, 1) = Target End If End Sub
[/vba] упс не заметил, что это гугл докс. может не работать
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim dat& dat = Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then
Target.Offset(0, 1) = Target End If End Sub
[/vba] упс не заметил, что это гугл докс. может не работатькитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Вторник, 25.04.2017, 07:48
[/vba] Работает для первой колонки некоторых листов (Лист1 и Лист3). При одновременном изменении диапазона из нескольких ячеек (несколько строк x 1 колонка), например, копированием - значения прописываются справа для всех ячеек.
[/vba] Работает для первой колонки некоторых листов (Лист1 и Лист3). При одновременном изменении диапазона из нескольких ячеек (несколько строк x 1 колонка), например, копированием - значения прописываются справа для всех ячеек.Gustav