Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Вставка строки в "Умную таблицу", При заполнении ячейки первой строки.
 
Доброго времени суток.
В файле:
Лист2 Таблица2 - все нормально код рабочий. Также нужно и в Таблица1 Лист1.
Вся проблема в том, что на листе 1 заполняем первую строку (столбец 3), а она пустая. Т.Е. последняя заполненная строка rngCell = Nothing.
Событие должно наступать при Worksheet_Change.
Спасибо.
Изменено: KonstantinK - 14 янв 2021 12:53:46
Кто хочет — ищет способы, кто не хочет — причины (Сократ)
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Offset(-1), Me.ListObjects(1).ListColumns(3).Range) Is Nothing Then
        Target.Offset(0, -2).Resize(, 2) = Array(Format(Now, "dd mmmm yyyy"" ã."), Format(Now, "hh:nn"))
    End If
End Sub
 
Большое спасибо. Все так.
Кто хочет — ищет способы, кто не хочет — причины (Сократ)
 
Цитата
KonstantinK написал:
Все так
Т.к. при удалении двух и более строк возникает ошибка не много подредактировал код:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
    If Not Intersect(Target.Offset(-1), Me.ListObjects(1).ListColumns(3).Range) Is Nothing Then
        Target.Offset(0, -2).Resize(, 2) = Array(Format(Now, "dd mmmm yyyy"" г."), Format(Now, "hh:nn"))
    End If
ErrorHandler:
    Exit Sub
End Sub
Изменено: KonstantinK - 14 янв 2021 15:17:09
Кто хочет — ищет способы, кто не хочет — причины (Сократ)
Страницы: 1
Читают тему (гостей: 1)
Наверх