جمع مشروط - تحديث ارقام في خلية

[Diamond777]

السلام عليكم

 

عندي 2 شيت

الشيت الاول فيه مدخلات لموظفين 

والشيت الثاني فيه بيانات

 المطلوب في حال وجود اي مدخلات لاي موظف في الشيت الاول

يتم تحديث عمود الرصيد في الشيت الثاني

 

 

مرفق الملف مع صور توضيحية للمطلوب

وشكرا

 

Book1.xlsx

[سليم حاصبيا]

جرب هذا الماكرو

Sub Update_Values()
  Dim S As Worksheet
  Dim T As Worksheet
  Dim S_rg As Range, T_rg As Range
  Dim F_rg As Range, Ro%, I%, SS, My_Sum#

  Set S = Sheets("Source_Sh")
  Set T = Sheets("Target_Sh")
  Set S_rg = S.Range("B2", S.Range("B1").End(4))
  Set T_rg = T.Range("B2", T.Range("B1").End(4))

For I = 1 To S_rg.Cells.Count
 Set F_rg = T_rg.Find(S_rg.Cells(I), lookat:=xlWhole)
  If Not F_rg Is Nothing Then
   Ro = F_rg.Row
   SS = IIf(IsNumeric(S_rg.Cells(I).Offset(, 3)), S_rg.Cells(I).Offset(, 3), 0)
   My_Sum = IIf(IsNumeric(T.Cells(Ro, 3)), T.Cells(Ro, 3), 0)
   T.Cells(Ro, 3) = SS + My_Sum
   S_rg.Cells(I).Offset(, 3) = 0
  End If
  Next
End Sub

الملف مرفق

 

Summation.xlsm

[أحمد يوسف]

Diamond777

اين الضغط على الإعجاب ؟!!💙