Необходимо доработать код своей "идеей" , код написан Юрий М.
1) Ошибка при вставки Ctrl + v нескольких значений.
Вознаграждение на сбер = 300 рублей.
Срок до завтра вечера.
1) Ошибка при вставки Ctrl + v нескольких значений.
Вознаграждение на сбер = 300 рублей.
Срок до завтра вечера.
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target If Not Intersect(cell, Range("A:A")) Is Nothing Then Application.EnableEvents = False 'Отключили отслеживание событий If Target <> "" Then 'Добавлена проверка With Sheets("Лист2").Cells(cell.Row, 2) 'На "Лист2" в аналогичные строки If .Value = "" Then .Value = Now .EntireColumn.AutoFit End If End With End If End If Next cell Application.EnableEvents = True End Sub |