Необходимо доработать код своей "идеей" , код написан Юрий М.
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
|
