اريد كود يقوم باستخراج اجمالى كل فرد

[إبراهيم ابوليله]

الاخوه الافاضل

بعد سلام الله عليكم ورحمة الله وبركاته

اريد كود يقوم باستخراج اجمالى كل فرد

كود جمع.rar

[رجب جاويش]

تفضل أخى ابراهيم

Sub ragab()

Application.ScreenUpdating = False

[G3:G20].ClearContents

For i = 3 To 20

If Cells(i, "F") <> "" Then

Cells(i, "G") = WorksheetFunction.SumIf(Range("C3:C20"), Cells(i, "F"), Range("D3:D20"))

End If

Next

Application.ScreenUpdating = True

End Sub

كود جمع1.rar

[إبراهيم ابوليله]

الاخ رجب

والله ما اقدر اقول غير

ايه الجمال ده والبساطه دى فى الكود ده

ولكن هل يمكن استخراج الاسماء بدون تكرار طبعا ايضا بالكود

ثم عمل جمع لك اسم فى كود واحد

[رجب جاويش]

تفضل أخى ابراهيم

سيكون التعديل بالشكل التالى

Sub ragab()

Application.ScreenUpdating = False

[G3:G20].ClearContents

[F3:F20].ClearContents

For i = 3 To 20

cl = Trim(Cells(i, 3))

x = UBound(Filter(Split(MyArr, ","), cl)) + 1

If x = 0 Then MyArr = MyArr & Trim(cl) & ","

Next

MyArr = Left(MyArr, Len(MyArr) - 1)

For Each y In Split(MyArr, ",")

Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6) = y

Next

For ii = 3 To 20

If Cells(ii, "F") <> "" Then

Cells(ii, "G") = WorksheetFunction.SumIf(Range("C3:C20"), Cells(ii, "F"), Range("D3:D20"))

End If

Next

Application.ScreenUpdating = True

End Sub

كود جمع2.rar

[إبراهيم ابوليله]

الاخ رجب

بارك الله فيك

وفعلا هذا هو المطلوب

[الـعيدروس]

السلام عليكم

جزاك الله خير اخي الحبيب رجب جاويش

الاخ الفاضل RinaUnallyCar

ردودك تظهرعلى شكل روابط

ارجو توضيح ماتريد

[الـعيدروس]

شركة تصميم ازياء ام ماذا ؟؟؟