وليد ابو عمر

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

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

Option Explicit
Sub sorted_liste()
 Dim SL1 As Object
   Dim xItem
   Dim rg As Range, c As Range
   Dim i As Long
   Dim X As Long
   Dim arr()
   Dim y
   Range("c1").CurrentRegion.ClearContents
   Set SL1 = CreateObject("System.Collections.ArrayList")
   Set rg = Sheets("salim").Cells(1).CurrentRegion
   For Each c In rg
   y = SL1.Contains(c)
   X = Application.CountIf(rg, c)
     If X > 1 And y = False Then
     If Not SL1.Contains(c.Value) Then SL1.Add (c.Value)
     End If
     Next
    arr = SL1.ToArray
 Range("c1").Resize(UBound(arr) + 1) = Application.Transpose(arr)
End Sub

الملف مرفق

 

فلترة.xlsm

بارك الله لك استاذي العزيز في هذا الكود الرائع ولكن هل من الممكن لو رقم تكرر أكثر من مرة أعرف كم مرة تكرر وشكرا لك

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

أعضاء المنتدى العظيم اوفيسنا الكرام

أرجو من سيادتكم التكرم بمساعدتي من خلال شيت الاكسل المرفوع بايجاد الارقام المكررة في العمود A وايجاد أيضا عدد التكرار لو مثلا رقم تكرر اكثر من مرة يتم اضافة امام الرقم عدد التكرار واستخراجهم منفردين بعيدا عن الارقام الغير مكررة وشكرا لكم

فلترة.rar

10 السلام عليكم... اريد معرفة الفرق في طريقة عرض ملف الاكسل بيندوز 10 ويندوز 8 حيث يتم عرض الملف على ويندوز باوفيس   بروفيشنال بلس 2013باعمدة متعددة ونفس الملف على نفس الاوفيس ولكن على نسخة ويندوز 8 يعرض في عمود واحد ولا اعرف ما السبب في ذلك.. فارجو من خبراء الاكسيل افادتي في ذلك لو تكرمتوا وسوف ارفق الملف وايضا صورة لطريقة العرض التي سبق ووصحتها

1000-20170629.rar

في 12/25/2016 at 22:16, أبو عبد النور said:

يوجد ارقام مكررة اخي الكريم ويتم ظهور لا يوجد ارقام

المكرر من الارقام_ن003.rar

11 دقائق مضت, أبو عبد النور said:

قلت لك ارفق ملفا للاكسل وليس صورة.

المهم عند الضغط على زر Debug

اي سطر في الكود يشار اليه باللون الاصفر ؟

 

المكرر من الارقام_ن001.rar

اخي الكريم ارفقت صورة للايرور بعد الضغط علي زي debug وملف الاكسيل معا

في 12/24/2016 at 17:03, أبو عبد النور said:

ارفق الملف الذي جربت عليه وظهر فيه الخطأ.

 

هذه صورة للايور الذي حدث عندما تم وضع ارقام جديدة لكشف المتكرر بها

Screenshot_2.rar

19 ساعات مضت, أبو عبد النور said:

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

اليك هذه المحاولة.

 

المكرر من الارقام_ن001.rar

اولا أشكرك على هذه المحاولة الكريمة ولكن للاسف عندما ادرج ارقام جديدة يظهر لي ايرور في الشيت

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

الأخوة الأعزاء

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

ارقام.rar

شكرا لك أخي عمر الحسيني على مجهودك وبحثك من أجلي جعله الله في ميزان حسناتك ان شاء الله ... وكل الشكر لادارة المنتدى العظيم

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

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

أري ان الأعضاء الأعزاء يبخلون بمعرفتنا كيفية عمل هذا السؤال أم ماذا.... ؟

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

أرجو من السادة الأعضاء افادتي كيفية دمج ملفين او اكثر  حيث ان كل ملف به شيت واحد فقط واريد دمج الملفات في ملف واحد وفي نفس الصفحة بحيث يكون رأس الشيت مرة واحدة وباقي الصفوف في الملفات الموجودة في المرفقات تحت رأس الشيت كما في الملف الواحد

بحيث ان على سبيل المثال يوجد ملفات 1، 2 ، 3 ، 4 وهذه الملفات كل ملف به صفحة واحدة فقط اريد طريقة اضافة الصفحات الموجودة في ملفات 2، 3 ، 4 في ملف رقم 1 بعد اخر صف موجود به

Report.rar

اشكركم من كل قلبي على هذا الجهد الكبير.. ولكنني لا اجيد التعامل مع الماكرو للاسف ويصعب علي عمل تلك المهمة .. فلو تكرمتم عمل ملف بهي المطلوب بحيث ارفق له باقي الارقام.. يكون لكم جزيل الشكر والامتنان.. ولو هذا العمل به مشقة عليكم... فجزاكم الله كل خير على ما فعلتموه من أجلي... شكرا لكم جميعا

 أستاذي الجليل ياسر خليل أبو البراء لقد حملت الملف الذي وضعه الأخ سليم ولم اجد اي تعديل في الملف يمكنك تنزيله والاطلاع عليه

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

ارقام.rar

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

ارقام.rar

ويكون التقسيم في صفحة مستقلة وليس في ورقة تالية من الصفحة الاساسية

أشكر كل من شاهد الموضوع ولم يتفوه بكلمة واحدة... شكرا جزيلا

يا مسهل الأمور سهل الأمر علي وعلى كل من يريد المساعدة

لماذا كل هذه المشاهدات ولا أجد رد او حتى استدلال على موضوع او شخص يفيدني في هذا العمل

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

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

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

برنامج قوائم الفصول.rar

برنامج قوائم الفصول.rar