سليم حاصبيا قام بنشر سبتمبر 16, 2018 مشاركة قام بنشر سبتمبر 16, 2018 أمامنا جدول مع بيانات مختلفة 1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية 2-انقر على اي خلية ( من رأس الجدول) لتحصل على كل البيانات 3-لإضافة بيانات على الجدول انقر على اول صف فارغ وأملأ الصف كما تشاء (لا يعمل الماكرو الا اذا كان الصف كاملاً ببياناته 4 قيم) ملاحظة: لا يعمل الماكرو Reset ولا الماكرو Make_On_Top كل بمفرده الا من خلال الماكرو الرئيسي SelectionChange الماكرو Option Explicit Dim Lr%, Rng As Range '========================== Sub Make_On_Top() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 With ActiveSheet .Range("z1") = Cells(3, ActiveCell.Column) .Range("z2") = ActiveCell.Value .Range("a3").CurrentRegion.AdvancedFilter 1, Range("z1:z2") .Cells(3, ActiveCell.Column).Interior.ColorIndex = 8 End With Exit_Sub: End Sub '================================== Sub Reset() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Exit_Sub: End Sub '=========================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) Lr = Cells(Rows.Count, 1).End(3).Row Set Rng = Range("A3:D" & Lr) If Not Intersect(Target, Rng) Is Nothing And _ Application.CountA(Range(Cells(Target.Row, 1), _ Cells(Target.Row, 4))) = 4 _ And Target.Cells.Count = 1 Then If Target.Row = 3 Then Reset Else Make_On_Top End If End If Range("z1:z2").Clear End Sub الملف مرفق Super Adv_Filter.xlsm 5 3 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 16, 2018 مشاركة قام بنشر سبتمبر 16, 2018 عمل رائع استاذ سليم بارك الله فيك وجعله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
saad alyousif قام بنشر سبتمبر 16, 2018 مشاركة قام بنشر سبتمبر 16, 2018 نموذج رائعععععععع بارك الله فيك رابط هذا التعليق شارك More sharing options...
على متولى قام بنشر سبتمبر 16, 2018 مشاركة قام بنشر سبتمبر 16, 2018 السلام عليكم ورحمة الله وبركاته كفــــارة المجــلس سبحانك اللهم وبحمدك ، أشهــد أن لا إله إلا أنت أستغفرك وأتوب إليك جزاكم الله خيرا وجعل كل ايامكم رضا والسلام عليكم ورحمة الله وبركاته 1 رابط هذا التعليق شارك More sharing options...
nassimerouh قام بنشر سبتمبر 23, 2018 مشاركة قام بنشر سبتمبر 23, 2018 (معدل) شكرا استاذ سليم على هذا العمل الرائع اود تطبيق هذا الماكرو على هذا النموذج المرفق لو تفضلتم بمساعدتي على ذلك Book3.xlsx تم تعديل سبتمبر 23, 2018 بواسطه nassimerouh 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 23, 2018 الكاتب مشاركة قام بنشر سبتمبر 23, 2018 الملف جاهز أهم شيء الا يكون داخل الجدول اي خلية فارغة و كذلك في راس الجدول Salim_book.xlsm 1 رابط هذا التعليق شارك More sharing options...
Amr Ashraf قام بنشر أكتوبر 7, 2018 مشاركة قام بنشر أكتوبر 7, 2018 (معدل) جزاك الله خير استاذى الفاضل ... ممكن تطبيق الفكرة كما بالمشاركة التالية اذا تكرمت المطلوب مشابه جدا لما تفضلت به هنا ولكن لا يلزم ان تكون جميع الخلايا فى الصف مملوءة ففى كثير من الاحيان يكون هناك خلايا فارغة ولكن ليست الخلايا المطلوب فلترتها ... خبرتى فى الاكسيل ضئيلة لتطبيق المثال كما اريد ... جزاك الله خير مقدما https://www.officena.net/ib/topic/86243-%D8%B9%D9%85%D9%84-%D9%87%D8%A7%D9%8A%D8%A8%D8%B1-%D9%84%D9%8A%D9%86%D9%83-%D8%A8%D8%B4%D8%B1%D9%88%D8%B7-%D9%85%D8%AD%D8%AF%D8%AF%D8%A9/ تم تعديل أكتوبر 7, 2018 بواسطه Amr Ashraf رابط هذا التعليق شارك 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.