Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставка строки в "Умную таблицу", При заполнении ячейки первой строки.
 
#1
14.01.2021 12:53:14
Доброго времени суток.
В файле:
Лист2 Таблица2 - все нормально код рабочий. Также нужно и в Таблица1 Лист1.
Вся проблема в том, что на листе 1 заполняем первую строку (столбец 3), а она пустая. Т.Е. последняя заполненная строка rngCell = Nothing.
Событие должно наступать при Worksheet_Change.
Спасибо.
Изменено: KonstantinK - 14.01.2021 12:53:46
Кто хочет — ищет способы, кто не хочет — причины (Сократ)
 
 
 
#2
14.01.2021 14:29:21
Код
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
 
 
 
#3
14.01.2021 14:33:37
Большое спасибо. Все так.
Кто хочет — ищет способы, кто не хочет — причины (Сократ)
 
 
 
#4
14.01.2021 15:16:25
Цитата
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.01.2021 15:17:09
Кто хочет — ищет способы, кто не хочет — причины (Сократ)
 
 
 
Страницы: 1
Наверх