Alla barsoum قام بنشر يونيو 23, 2022 مشاركة قام بنشر يونيو 23, 2022 السلام عليكم ..لابد من التحية عند بدء أى مشاركة ,, كما لا تبخل بشرح المطلوب هنا أيضاً حتى لا تبخل الأساتذة أيضاً وتمتنع عن مساعدتك المطلوب : مجرد ما اكتب في خانة الدم امسح ٣ واكتب ٢مثلا يبقي الرقم في المخزن دم ٥ يبقي مخزن 1992.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر يونيو 24, 2022 أفضل إجابة مشاركة قام بنشر يونيو 24, 2022 تفضل جرب 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 1 رابط هذا التعليق شارك More sharing options...
Alla barsoum قام بنشر يونيو 24, 2022 الكاتب مشاركة قام بنشر يونيو 24, 2022 شكرا لتعب حضرتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها