ارجو التعديل على هذا الكود للاخ رجب

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

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

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

هذا الكود للاخ رجب جاويش

يقوم باستخراج

الاسماء بدون تكرار افقيا

اريد ان يكون زر الاستخراج فى شيت2

استخراج.rar

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

للرفع

[بن علية حاجي]

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

 

أخي الكريم إبراهيم، هل تريد أن يكون زر الاستخراج فقط في الشيت 2 أم تريد أيضا أن تكون عملية استخراج الاسماء في هذا الشيت... المهم أضع بين يديك حلين حسب الشرح التالي:

 

* الحل الأول : وضع زر الاستخراج فقط في الشيت 2 والاسماء المستخرجة في شيت "Total" (بداية من الخلية AA2)

 

 

الملف المرفق : استخراج1.rar

 

 

* الحل الثاني : وضع زر الاستخراج في الشيت 2  و الأسماء المستخرجة في الشيت 2 أيضا (بداية من الخلية C2)

 

 

الملف المرفق : استخراج2.rar

 

 

أرجو أن تكون هذه التعديلات مستوفية المطلوب...

 

أخوك بن علية

تم تعديل يوليو 3, 2013 بواسطه بن علية حاجي

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

اخى بن عليه

بارك الله فيك

ومشكورا على المساعده

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

اخى الحبيب

بن علية

بارك الله فيك

ولكن ماذا لو اردنا اضافة كود صم اف

شاهد المرفقاستخراج2.rar

[بن علية حاجي]

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

 

أخي الكريم إبراهيم، ليس في ذلك أدنى مشكل، تم التعديل حسب المطلوب الجديد...

 

أخوك بن علية

 

 

الملف المرفق : استخراج2.rar

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

اخى الحبيب بن عليه بارك الله فيك

ومشكورا على الرد

وفكره جديده استفدت منها

بارك الل فيك وللعلم

بعد المحاوله

نجحت فى عمل ذلك

مستخدما الطريقه التقليديه

Sheets("BALANCE").Cells(20, i).Value = WorksheetFunction.SumIf(Sheets("TOTAL").Range("E3:E50"), Sheets("BALANCE").Cells(2, i), Sheets("TOTAL").Range("Z3:Z60000"))