إنشطار البيانات المفلترة (موضوع متميز بإذن الله)

[ياسر خليل أبو البراء]

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

إخواني وأحبابي في الله

أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة ..

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

هذا هو الشكل العام للكود

Sub SplitFilteredData()
    'الإعلان عن المتغيرات
        Dim MySheet As Worksheet
        Dim MyRange As Range
        Dim UList As Collection
        Dim UListValue As Variant
        Dim I As Long
       
    'تخصيص ورقة العمل النشطة
       Set MySheet = ActiveSheet
       
    'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي
       If MySheet.AutoFilterMode = False Then
            Exit Sub
        End If
     
    'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها
       Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address)
       
    'إنشاء كائن تجميعي
       Set UList = New Collection
       
    'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط
       On Error Resume Next
        For I = 2 To MyRange.Rows.Count
        UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1))
        Next I
        On Error GoTo 0
     
    'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي
       For Each UListValue In UList
       
       
    'حذف أية أوراق عمل تم إنشاءها من قبل
           On Error Resume Next
            Application.DisplayAlerts = False
            Sheets(CStr(UListValue)).Delete
            Application.DisplayAlerts = True
            On Error GoTo 0
       
       
    'عمل تصفية لمطابقة القيمة الحالية
           MyRange.AutoFilter Field:=5, Criteria1:=UListValue
       
       
    'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة
           MySheet.AutoFilter.Range.Copy
            Worksheets.Add.Paste
            ActiveSheet.Name = Left(UListValue, 30)
            Cells.EntireColumn.AutoFit
           
     
    'إعادة الحلقة التكرارية مع قيمة أخرى
       Next UListValue
     
     
    'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة
       MySheet.AutoFilter.ShowAllData
        MySheet.Select
End Sub

في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه

إليكم رابط الفيديو

 

 

لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ...

تقبلوا تحيات أخوكم أبو البراء

Split Filtered Data VBA.rar

Split Filtered Data VBA V2.rar

تم تعديل أبريل 3, 2015 بواسطه YasserKhalil

[عاشق الاكسيل]

يسعدنى ان اكون اول من يهنئك على هذا الموضوع

استاذ ياسر خليل

سلمت يمينك وبارك الله فيك

وتزال مواضيعك صرح ومرجع كبير للكثير بل للجميع.

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

موضوع رائع يا حبيبي ياسر لكن هناك الاروع و هو من وضعه

لدي تعليقان اذا كنت تسمح بذلك

1-لو تستطيع ان تضع في قائمة منسدلة ارقام الأعمدة لتوفير الوقت على المستخدم من الدخول الى الكود
  و اجراء التعديلات (حاجة سهلة جداً) لانه هناك الكثير لا يجيدون تعديل الكود و حفاظاً عليه من العبث عن    طرق الخطأ.وهذه طريقة مطاطة اذا كان هناك اكثر من 5 أعمدة

2- في حال لم تكن الورقة تحتوي على الفلترة اجبار الكود على القيام بذلك

[madarasa]

السلام عليكم : بارك الله فيك أخي العزيز وجعله في ميزان حسناتك

[ياسر خليل أبو البراء]

الأخ الحبيب مصطفى أبو ملك (الباحث العربي)

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

 

الأخ الغالي سليم

إنت تؤمر ..تم التعديل بحيث تتم عملية الفلترة إذا لم تكن موجودة وتم إظهار صندوق إدخال يمكن من خلاله إدخال رقم العمود المراد العمل عليه ..

جزيت خيراً على الملاحظات القيمة

 

الأخ الفاضل مدرسة ..

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

 

تم إرفاق النسخة الثانية من الملف في المشاركة الأولى

[مختار حسين محمود]

السلام عليكم

 بارك الله فيك أخي العزيز وجعله في ميزان حسناتك

 

أيوه  كده  حرك المياه الراكده

[ياسر خليل أبو البراء]

تم تحرير المشاركة الأولى أخي مختار مرة أخرى ..حمل النسخة الثانية من الملف ..

وفي انتظار ملاحظاتكم للوصول لأفضل أداء للكود ... وفي انتظار إضافاتك يا مختار يا متمكن

[Yasser Fathi Albanna]

حبيبى الغالى / ياسر

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

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

[ا بو سليمان]

شكرا لك  على النقل 

 

وشكرا  لابو البراء  على الشرح 

[ابو القبطان]

تحياتي للأستاذ ياسر ، صاحب الاعمال المتميزة الرائعة ( سلسلة الانفجارات )

فكرة الاستاذ سليم ، وهي تنفيذ الكود من خلال القائمة المنسدلة ..( لعناوين الاعمدة ). فكرة عملية جداً وقد تناولها الاستاذ : عبد الله باقشير ، وزاد عليها زر .. خذف اوراق الفلترة

انقلها ليستفاد منها 

All-Items.rar

[ياسر خليل أبو البراء]

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

طلع المستخبي يا جدو ..دا أنا على كدا هعملك موضوعات جديدة عشان تطلع اللي عندك

جزيت خيرا على هذا الملف الرائع تقبل تحياتي

[عادل ابوزيد]

الاستاذ الفاضل الكبير ياسر خليل

نضب المديح وتظل الاعمال شامخة لا تنضب

جزاك الله كل خير عن كل حرفه نتعلمه

[ياسر خليل أبو البراء]

تعجزني كلماتك عن الرد أخي الحبيب عادل ..بارك الله فيك وجزاك الله خيراً

نورت الموضوع بردك الجميل

[ابو القبطان]

استاذ : ياسر 

ماشاء الله ، انت شعلة نشاط المنتدى 

ادامك الله لنا ... ولأهل بيتك

تقبل تحياتي وصادق دعواتي

جدك : حسن

[الســـــــاهر]

قمة في الروعة جزاك الله خير استاذ ياسر وزادك من نعيمه

[تعليموه]

سلمت يمينك وبارك الله فيك 

 

مواضيعك فعلاً مرجع كبير للجميع

 

ما شاء الله تبارك الرحمن .

[سـامي 169]

جزاك الله كل خير استاذ ياسر على الكود الرائع

ولكن عند استعماله على صفحة تحتوي 100 عمود

واردت الفلتره بمعيه العمود 7

ظهرت رساله ادخل رقم بين ال1 -4

الملف المرفق

[سـامي 169]

هذا هو الملف

فلترة.zip

[ياسر خليل أبو البراء]

أخي الكريم

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

[سـامي 169]

لو فرضنا ان الصف المراد فلترته الصف السابع وفوق هذه الصفوف بيانات

عادي ام انه لابد من صف واحد موجود به البيانات

[احمد فضيله]

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

[سـامي 169]

هل لايوجد حل لمثل الحاله التي ارفقتها

[ياسر خليل أبو البراء]

هل لايوجد حل لمثل الحاله التي ارفقتها

 

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

[سـامي 169]

جميع الصفحات التي نتعامل معها بها صفوف عليا كلها مملوءه بالبيانات

مثلا اسم المدرسه

اسم الصف

المديريه وهكذا

لو انك عملت اضافه في الكود للتعريف باول صف مطلوب فلترته

[محمد حسن المحمد]

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

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