вносим я ячейку E(5-150) цифры а они суммируются с ячейкой D(5-150) и после этого Е(5-150) чистится
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
d = Target.Row
If d > 4 And d < 150 Then
'из ячейки Е
r$ = "E" & d
'в ячейку D
k$ = "D" & d
With Target
If .Address(False, False) = r$ Then
If IsNumeric(.Value) Then
Range(k$).Value = Range(k$).Value
(
Read more... )