Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ячейка с накоплением (нарастающим итогом)
 
Помогите пожалуйста, накопительная ячейка на листе2, ячейка А1.  Данные вводятся на листе1 ячейка А1
что в макросе не правильно?  
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      With Target
         If .Address(False, False) = "Лист1!A1" Then
            If IsNumeric(.Value) Then
               Application.EnableEvents = False
               Range("Лист2!A1") .Value = Range("Лист2!A1") .Value + .Value
               Application.EnableEvents = True
            End If
         End If
      End With
End Sub

спасибо
Изменено: boke - 09.04.2014 12:57:13
Страницы: 1
Наверх