يا اخوان احد يساعدني لو سمحتو

[ام باسل]

الخميس‏ 2‏/6‏/1432هـ الموافق ‏5‏/5‏/2011م

تم اضافة كود البحث

في الخلية الصفراء المخصصة للبحث في اعلى الورقة ادخلي أي جزء من أي اسم او رقم هوية ثم اضغطي على زر البحث الموجود بجوار الخلية

سوف يتم اخفاء كل الصفوف و اظهار الصفوف التي تحتوي على الجزء المدخل في الخلية الصفراء فقط

لإظهار كل الصفوف

امسحي الخلية الصفراء المخصصة للبحث ثم اضغطي على زر البحث الموجود بجوار الخلية

= = =

تم تعديل الطباعة الى اللون الأبيض و الأسود

تم تعديل بعض تنسيقات الخلايا

آمل ان يفي هذا بالغرض المطلوب

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

المطلوب ::::: حذف الاسماء المتكرره حتى عندما يكون هناك تبرعات من اهل الخير لا تستلم الاسره مرتين ؟؟

السلام عليكم

با أم باسل

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

1 كل بيانات الصف الأحمر مكررة من اسم الأسرة و اسم العائل و رقم الهوية

2 البيانات باللون البرتقالي مكررة اسم في نفس العمود

تحذفي ماتريدين

آمل قرائة ملف الوورد المرفق في المشاركة السابقة

مع التحية

يا إله الاولين والاخرين حرم هذا الوجه على النار وأمه وابيه ومن يحب وأكتب له اجر الايتام والارامل

[احمد فضيله]

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

الاخت الفاضلة / أم باسل

انظري لهذا المرفق و هو لاستخراج البيانات بدون تكرار

و الله الموفق والمستعان

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

استخراج البيانات بدون تكرار HaNcOcK.rar

[عبد الفتاح كيرة]

المطلوب يكتنفه الغموض

لكن أنا عملت كود يعطى قائمة للأسر بدون تكرار

طلعوا 542 أسرة

لو هناك توزيع لصدقات

اسم الأسرة يرد مرة واحدة

Sub Macro3()

'

' Macro3 Macro

'

Application.ScreenUpdating = False

'

    Range("b2:b1000").ClearContents

    Sheets("æÑÞÉ1").Range("B1:B786").AdvancedFilter Action:=xlFilterCopy, _

        CriteriaRange:=Sheets("æÑÞÉ1").Range("B1:B786"), CopyToRange:=Range("B1"), _

        Unique:=True

  Range("b2").Select

  Application.ScreenUpdating = True

End Sub

قائمة بأسماء الأسر -kemas.rar

[ابوخليل]

إخواني مشرفي وأعضاء منتدى اكسل الأعزاء حفظهم الله

تحية طيبة وبعد

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

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

سبحانك اللهم وبحمدك أشهد ألا إله إلا أنت أستغفرك وأتوب إليك

[هادى محمد المامون سالم]

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

الأستاذ الكبير هادي سالم

سررت جدا بمشاركتك الرائعة

جزاك الله كل خير

مش قادر اعبر لك عن مدى سعادتي

اخى الحبيب احمد

اعتذر عن التاخير فى الرد و اشكرك على هذا الشعور المتبادل , و قد نتقابل قريبا ان شاء الله

[احمدزمان]

إخواني مشرفي وأعضاء منتدى اكسل الأعزاء حفظهم الله

تحية طيبة وبعد

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

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

سبحانك اللهم وبحمدك أشهد ألا إله إلا أنت أستغفرك وأتوب إليك

اخي الكريم ابو خليل

جزاك الله كل خير

ونسأل الله ان يبلغك الأجر و الثواب

((انما الأعمال بالنيات و انما لكل امرء مانوى))

ولا نزعل ولا حاجة

لأننا كلنا هنا في هذا الموقع هدفنا واحد

مع تحياتي وتقديري