Здравствуйте, уважаемые форумчане!
Помогите, пожалуйста, подправить код чтобы он реагировал на изменение в ячейке через формулу. Сейчас код работает если данные в ячейке изменяю вручную, но если в ячейке данные меняются через формулу, начинает ругаться или просто не работает. Спасибо! Пример прилагается.
Помогите, пожалуйста, подправить код чтобы он реагировал на изменение в ячейке через формулу. Сейчас код работает если данные в ячейке изменяю вручную, но если в ячейке данные меняются через формулу, начинает ругаться или просто не работает. Спасибо! Пример прилагается.
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) 'Update 20140722 Dim WorkRng As Range Dim Rng As Range Dim xOffsetColumn As Integer Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target) xOffsetColumn = 1 If Not WorkRng Is Nothing Then Application.EnableEvents = False For Each Rng In WorkRng If Not VBA.IsEmpty(Rng.Value) Then Rng.Offset(0, xOffsetColumn).Value = Now Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss" Else Rng.Offset(0, xOffsetColumn).ClearContents End If Next Application.EnableEvents = True End If End Sub |