في موضوع سابق

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

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

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

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

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

تجميع اعمدة 02.xlsmFetching info...

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

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

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

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

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

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

 

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

  في 14‏/3‏/2019 at 20:00, سليم حاصبيا said:

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

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

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

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

 

Expand  

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

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

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

 

تقرير خصم2.xlsmFetching info...

تم تعديل مارس 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.xlsmFetching info...

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

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

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

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

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

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

Khasm_2.xlsmFetching info...

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

للرفع