ياسر خليل أبو البراء قام بنشر أبريل 2, 2015 مشاركة قام بنشر أبريل 2, 2015 (معدل) السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود 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 10 1 رابط هذا التعليق شارك More sharing options...
عاشق الاكسيل قام بنشر أبريل 2, 2015 مشاركة قام بنشر أبريل 2, 2015 يسعدنى ان اكون اول من يهنئك على هذا الموضوع استاذ ياسر خليل سلمت يمينك وبارك الله فيك وتزال مواضيعك صرح ومرجع كبير للكثير بل للجميع. 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 موضوع رائع يا حبيبي ياسر لكن هناك الاروع و هو من وضعه لدي تعليقان اذا كنت تسمح بذلك 1-لو تستطيع ان تضع في قائمة منسدلة ارقام الأعمدة لتوفير الوقت على المستخدم من الدخول الى الكود و اجراء التعديلات (حاجة سهلة جداً) لانه هناك الكثير لا يجيدون تعديل الكود و حفاظاً عليه من العبث عن طرق الخطأ.وهذه طريقة مطاطة اذا كان هناك اكثر من 5 أعمدة 2- في حال لم تكن الورقة تحتوي على الفلترة اجبار الكود على القيام بذلك 1 رابط هذا التعليق شارك More sharing options...
madarasa قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 السلام عليكم : بارك الله فيك أخي العزيز وجعله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 3, 2015 الكاتب مشاركة قام بنشر أبريل 3, 2015 الأخ الحبيب مصطفى أبو ملك (الباحث العربي) مشكور على مرورك العطر الأخ الغالي سليم إنت تؤمر ..تم التعديل بحيث تتم عملية الفلترة إذا لم تكن موجودة وتم إظهار صندوق إدخال يمكن من خلاله إدخال رقم العمود المراد العمل عليه .. جزيت خيراً على الملاحظات القيمة الأخ الفاضل مدرسة .. أهلا بك في المنتدى وفي انتظار مساهماتك سواء بالمعلومة أو الاستسفار تم إرفاق النسخة الثانية من الملف في المشاركة الأولى رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 السلام عليكم بارك الله فيك أخي العزيز وجعله في ميزان حسناتك أيوه كده حرك المياه الراكده 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 3, 2015 الكاتب مشاركة قام بنشر أبريل 3, 2015 تم تحرير المشاركة الأولى أخي مختار مرة أخرى ..حمل النسخة الثانية من الملف .. وفي انتظار ملاحظاتكم للوصول لأفضل أداء للكود ... وفي انتظار إضافاتك يا مختار يا متمكن رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 حبيبى الغالى / ياسر سأظل أقولها دائما أنت بالفعل أعمالك رائعة ومميزة جزاك الله كل خير 1 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 شكرا لك على النقل وشكرا لابو البراء على الشرح 1 رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 تحياتي للأستاذ ياسر ، صاحب الاعمال المتميزة الرائعة ( سلسلة الانفجارات ) فكرة الاستاذ سليم ، وهي تنفيذ الكود من خلال القائمة المنسدلة ..( لعناوين الاعمدة ). فكرة عملية جداً وقد تناولها الاستاذ : عبد الله باقشير ، وزاد عليها زر .. خذف اوراق الفلترة انقلها ليستفاد منها All-Items.rar 2 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 3, 2015 الكاتب مشاركة قام بنشر أبريل 3, 2015 الأخ الحبيب أبو القبطان ..ملف الأستاذ عبد الله باقشير ملف في منتهى الروعة والإبداع ..ليس له مثيل ..وأول مرة أرى هذا الملف ..إنه تحفة طلع المستخبي يا جدو ..دا أنا على كدا هعملك موضوعات جديدة عشان تطلع اللي عندك جزيت خيرا على هذا الملف الرائع تقبل تحياتي رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 الاستاذ الفاضل الكبير ياسر خليل نضب المديح وتظل الاعمال شامخة لا تنضب جزاك الله كل خير عن كل حرفه نتعلمه 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 3, 2015 الكاتب مشاركة قام بنشر أبريل 3, 2015 تعجزني كلماتك عن الرد أخي الحبيب عادل ..بارك الله فيك وجزاك الله خيراً نورت الموضوع بردك الجميل رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 استاذ : ياسر ماشاء الله ، انت شعلة نشاط المنتدى ادامك الله لنا ... ولأهل بيتك تقبل تحياتي وصادق دعواتي جدك : حسن 1 رابط هذا التعليق شارك More sharing options...
الســـــــاهر قام بنشر أبريل 26, 2015 مشاركة قام بنشر أبريل 26, 2015 قمة في الروعة جزاك الله خير استاذ ياسر وزادك من نعيمه 1 رابط هذا التعليق شارك More sharing options...
تعليموه قام بنشر يوليو 3, 2015 مشاركة قام بنشر يوليو 3, 2015 سلمت يمينك وبارك الله فيك مواضيعك فعلاً مرجع كبير للجميع ما شاء الله تبارك الرحمن . 1 رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يوليو 4, 2015 مشاركة قام بنشر يوليو 4, 2015 جزاك الله كل خير استاذ ياسر على الكود الرائع ولكن عند استعماله على صفحة تحتوي 100 عمود واردت الفلتره بمعيه العمود 7 ظهرت رساله ادخل رقم بين ال1 -4 الملف المرفق رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يوليو 4, 2015 مشاركة قام بنشر يوليو 4, 2015 هذا هو الملف فلترة.zip رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 4, 2015 الكاتب مشاركة قام بنشر يوليو 4, 2015 أخي الكريم لابد للبيانات أن يكون لها صف عناوين واضح وغير مدمج للخلايا .. صف واحد فقط بدون خلايا مدمجة على الإطلاق رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يوليو 4, 2015 مشاركة قام بنشر يوليو 4, 2015 لو فرضنا ان الصف المراد فلترته الصف السابع وفوق هذه الصفوف بيانات عادي ام انه لابد من صف واحد موجود به البيانات رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر يوليو 4, 2015 مشاركة قام بنشر يوليو 4, 2015 جزاكم الله كل خير 1 رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يوليو 4, 2015 مشاركة قام بنشر يوليو 4, 2015 هل لايوجد حل لمثل الحاله التي ارفقتها رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 4, 2015 الكاتب مشاركة قام بنشر يوليو 4, 2015 هل لايوجد حل لمثل الحاله التي ارفقتها ربما يوجد حل ولكن ليس لدي علم به .. على حد علمي أنه يجب أن تكون البيانات لها صف واحد من العناوين بدون دمج رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يوليو 4, 2015 مشاركة قام بنشر يوليو 4, 2015 جميع الصفحات التي نتعامل معها بها صفوف عليا كلها مملوءه بالبيانات مثلا اسم المدرسه اسم الصف المديريه وهكذا لو انك عملت اضافه في الكود للتعريف باول صف مطلوب فلترته رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر يوليو 4, 2015 مشاركة قام بنشر يوليو 4, 2015 السلام عليكم ورحمة الله وبركاته: أخي الحبيب أبو البراء إن علاج الملفات المتشعبة والتي تضم الكثير من مناحي الحياة اليومية دليل قاطع على نجاح المنتدى الكريم في تطوير الحياة العامة لمجتمعنا العربي المسلم والنهوض به نحو المزيد من الرقي ليضاهي المجتمعات المتقدمة بهذا المضمار ويفوقها بأخلاقه الرفيعة ..جزاكم الله خيرا أنتم وكل القائمين عليه تواصلون الليل بالنهار سعيا نحو مستقبل واعد بإذن الله تعالى وعونه...والسلام عليكم. 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.