مساعدة(الشرح في داخل الشيت)

[Alla barsoum]

السلام عليكم ..لابد من التحية عند بدء أى مشاركة ,, كما لا تبخل بشرح المطلوب هنا أيضاً حتى لا تبخل الأساتذة أيضاً وتمتنع عن مساعدتك

المطلوب :

مجرد ما اكتب في خانة الدم امسح ٣ واكتب ٢مثلا يبقي الرقم في المخزن دم ٥ يبقي

مخزن 1992.xlsx

[حسين مامون]

تفضل جرب 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
Dim lr
Dim lrr
On Error Resume Next
lrr = Cells(Rows.Count, "c").End(3).Row
If Not Intersect(Target, Range("c2:c" & lrr)) Is Nothing Then
If Target = "" Then Exit Sub
lr = Cells(Rows.Count, "e").End(3).Row
For x = 4 To lr
If Target.Offset(, -1).Text = Cells(x, "e").Text Then
Cells(x, "f") = Val(Cells(x, "f")) + Val(Target): Exit For

End If
Next x
End If
End Sub

 

مخزن 1992.xlsm

[Alla barsoum]

شكرا لتعب حضرتك