تصفية البيانات لأكثر من عمود

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

أعيد واكرر

الرجاء رفع ملف جديد فيه بعض البيانات (10  15 سطر) مع شرح ما تريد  و وضع جدول ( ثاني ) بالنتائج المتوقعة

ما العمل اذا كنت انت لا تريد ان تساعد نفسك

هنا لا يمكن العمل على التخمين  كيف ستظهر النتائج

[Alsalim1]

شباب ما زلت أنتظر ردكم 

17 ساعات مضت, سليم حاصبيا said:

يا اخي ارفع ملفاً يستطيع الانسان ان يفهم منه شيئاً

مثلاً عندك جدول من صفين و كل اعمدته ابتداء من العامود الثالث تساوي صفر او فراغ

ماذا تريدنا ان نعمل

الرجاء رفع ملف جديد فيه بعض البيانات (10  15 سطر) مع شرح ما تريد  و وضع جدول ( ثاني ) بالنتائج المتوقعة

 

استاذ طلبي من البداية واضح وأنت ما قصرت عملت الكود والكود جداً شغال بس في ورقة العمل التي تكون فيها أكثر من 10 أعمدة الكود لا يعمل ما ادري ما هي المشكلة في الملف المرفق أريد يعطيني بيانات الموظفين الذين حصل تغيير في مرتباتهم في المثال المرفق أحمد وعبدالله حصل تغيير في رواتبهم اريد الكود يظهر لي بيانات أحمد  وعبدالله في العمود M ولا يظهر لي بيانات علي لان ما حصل تغيير في مرتبه

 

 

مرفق المثال 

August Payroll.rar

[Alsalim1]

استاذ 

 

أنتظر ردك

 

 

[Alsalim1]

شباب ما زلت أنتظر الرد

 

 

[Alsalim1]

أيها المبدعون

 

ما زلت أنتظر ردكم

 

 

[Alsalim1]

أيها المبدعون

 

ما زلت أنتظر ردكم

 

 

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

جاري العمل على الملف

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

جرب الان

 

August Payroll_salim.xlsm

[Alsalim1]

ممتاز جداً أيها الاستاذ الرائع واسمحلي كثير ازعجتك معي بس اريد تقدر أني محتاج لهذا الكود كثير في عملية الرواتب ماذا لو اردت اضافة أكثر من 11  عمود في المستقبل؟؟؟ 

 

 

[Alsalim1]

للاسف بالنسبة للارقام السالبة لا تظهر مرفق الملف للتوضيح

 

August Payroll_salim.xlsm

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

تم التعديل

Option Explicit
Sub give_data()
Dim Fst_sh As Worksheet: Set Fst_sh = Sheets("Difference2")
Dim Trg_Sh As Worksheet: Set Trg_Sh = Sheets("Salim")
Dim lr%, i%, k%, m%, t%, tt%
Dim My_Rg As Range
i = 2
m = 2
Trg_Sh.Range("a1").CurrentRegion.Offset(1).ClearContents
lr = Application.Max(Fst_sh.Range("a:a"))
 For i = 2 To lr
  Set My_Rg = Fst_sh.Range("C" & i & ":K" & i)
   t = Application.CountIf(My_Rg, 0)
   tt = Application.CountIf(My_Rg, "")
    If t + tt <> 9 Then
        Trg_Sh.Cells(m, 1).Resize(, 11).Value = _
        Fst_sh.Cells(i, 1).Resize(, 11).Value
        m = m + 1
    End If
  Next

End Sub

لتعديل نطاق العمل استبدل الحرف K بالحرف الذي يلائم اخر عامود في الجدول (.....L,M,Z  )

و استبدل الرقم 9 بمجموع الاعمدة ناقص 2 ( العامود K=11      العامود L=12     العامود F=6 ,و هكذا )

و الرقم 11 بعدد الاعمدة 

 

 

August_salim.xlsm

[Alsalim1]

أشكرك استاذ كثير بارك الله تعالى فيك