اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم

 

عندي 2 شيت

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

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

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

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

 

 

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

وشكرا

 

SH1.JPG

SH2.JPG

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

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information