في موضوع سابق

[جمعة العوامي]

في موضوع سابق تمت الاجابة عن سؤال لاحد الاعضاء عن كيفية جمع الاعمدة في خلية واحدة .. مرفق المثال السابق .

وارغب في استخراج قيمة العمود الاجمالية ... والتفصيلية لكل عمود من اين اتت الارقام التي بالعمود ...

مثال عدد من الموظفين لديهم خصم في العمود س ارغب في استخراج اسماءهم .. فكيف يتم ذلك ؟

عن طريق المصفوفة .. الاسطر بالاعمدة .. يرجى الاهتمام .. والشكر للجميع 

تجميع اعمدة 02.xlsm

تم تعديل مارس 14, 2019 بواسطه جمعة العوامي

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

لا استطيع فهم المطلوب

بالنسبة لكود الجمع لا لزوم للحلقات التكرارية 

يكفي هذا الكود

Sub Collection()
Range("k2:K" & Range("A" & Rows.Count) _
.End(xlUp).Row).Formula = "=SUM(A2:F2)"
End Sub

 

[جمعة العوامي]

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

لا استطيع فهم المطلوب

بالنسبة لكود الجمع لا لزوم للحلقات التكرارية 

يكفي هذا الكود

Sub Collection()
Range("k2:K" & Range("A" & Rows.Count) _
.End(xlUp).Row).Formula = "=SUM(A2:F2)"
End Sub

 

استاذ : سليم حاصبيا 

بارك الله فيك على سرعة الرد ... وجعل ذلك في ميزان حسناتك ...

مرفق المطلوب ... واشكركم جزيل الشكر والامتنان ...

 

تقرير خصم2.xlsm

تم تعديل مارس 15, 2019 بواسطه جمعة العوامي

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

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

Option Explicit
Sub Give_Repport()

Dim lr%
Application.ScreenUpdating = False
Sheets("Control_Me").Cells.Clear
  With Sheets("main")
      lr = .Range("A4").End(4).Row - 1
      .Range("R5:R" & lr).Formula = "=sum(C5:Q5)"
      .Range("C" & lr + 1 & ":Q" & lr + 1).Formula = _
      "=sum(C5 " & ":C" & lr & ")"
     .Range("R" & lr + 1).Formula = "=SUM(R5:R" & lr & ")"
        With .Range("A4:R" & lr + 1)
         .Value = .Value
         .Copy Sheets("Control_Me").Range("a4")
        End With
 End With
 Application.ScreenUpdating = True
End Sub

الملف مرفق

 

Khasm_2.xlsm

[جمعة العوامي]

استاذ سليم حاصبيا ...

بارك الله فيك .. ولكن مااقصدة بالضبط ليس عملية نسخ للجدول ..

وانما استخراج معلومات من واقع بيانات الجدول .. ففي المرفق شيت باسم .. استاذ مساعد 

حبذا لو تتكرم بمساعدتي في ذلك من خلال الكود .. 

والسلام عليكم ... 

Khasm_2.xlsm

[جمعة العوامي]

للرفع