Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Дата первого изменения в ячейки + перенос на другой лист + вставка
 
Необходимо доработать код своей "идеей" , код написан Юрий М.

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
 
Пишу в личку ))
 
Пока не оплатил, нет возможности проверить работу. Я не потерялся , я в командировке :)
Страницы: 1
Читают тему (гостей: 1)
Наверх