Название темі общее. Ознакомьтесь с правилами форума, предложите другое. заменят модераторы. Задачу нужно описывать в сообщении. Измените первое сообщение
слаживался - посмотрите в сети, что значит это слово.
Сложение чисел, вводимых в одной ячейке, в другой ячейке В модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Target.Copy
Range("A2").PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
Application.CutCopyMode = False
End If
Application.EnableEvents = True
End Sub
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄