Доброго времени суток. В файле: Лист2 Таблица2 - все нормально код рабочий. Также нужно и в Таблица1 Лист1. Вся проблема в том, что на листе 1 заполняем первую строку (столбец 3), а она пустая. Т.Е. последняя заполненная строка rngCell = Nothing. Событие должно наступать при Worksheet_Change. Спасибо.
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
Т.к. при удалении двух и более строк возникает ошибка не много подредактировал код:
Код
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