اشكر كل من اهتم بسؤالي مع اقدم الاعتذار عن الفهم ولكن حاولت مرة اخرى ولكن لم اصل لنتيجه ولكن لواصل المعرفه وارجاع الحق لاهله فقد تلقيت جوابا في منتدى المحيط العربي من الاخ الفاضل ....startnet وهو عباره عن برمجه
بالصيغة التالية ...
اذهب الي الورقه التي تريد التطبيق عليها ثم افتح محرر البيسك او اضغط زر ALT + F11
الصق الكود التالي
كود
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
Cells(Target.Row, 2) = Target.Value + Cells(Target.Row, 2)
End If
End Sub
ولله الحمد والمنه .... اشكركم على تواصلكم ومنكم نتعلم كل جديد
والى لقاء