نجوم المشاركات

اسعدالله اوقات الجميع بكل خير بعد الانتهاء من المرحلة الاولى للفاتورة الإلكترونية ولولا فضل الله ثم الأساتذة والاخوان في هذا المنتدى لما وصلنا الى إتمام المرحلة الاولى وتطويع الاكسس ليعمل مع هذه المرحلة بالشكل المطلوب (مرفق ملف المرحلة الاولى ) . الان المرحلة الثانية بدأت من 1 يناير 2023 يكون فيها الربط إجباري مع الزكاة والدخل ولكن على مجموعات كل فترة مجموعة ولا شك ان الدور سياتي على الجميع . لذا بعد البحث عن آلية المرحلة الثانية ليتم فهمها ومن ثم طرحها بالمنتدى هنا فقد تم الاتفاق مع مؤسسه مختصه تقدم كورسات خاصه بالفاتورة الإلكترونية وذلك من خلالي انا سلمان و الاخ ابو متعب ( at_aziz ) ليتم اخذ دورة كامله في آلية الربط والتكامل مع الزكاة والدخل وسوف نقوم باذن الله بطرح جميع المحاضرات مختصرة وعلى مراحل عن طريق فيديو وايضاً نص مكتوب . الفائدة :- باذن الله تعالى في اخر ورشة العمل هذه يصبح لدينا ملف كامل يستطيع الاكسس التعامل مع موقع الزكاة والدخل ومطابق لمتطلبات الفاتورة الإلكترونية . المطلوب 1- بعد طرح كل محاضرة على حده هنا نأمل من الأساتذة والاخوان المشاركة والتعاون وذلك ببرمجة المطلوب من كل مرحلة حتى يتم باذن الله الانتهاء من جميع المراحل ويتم الربط مع موقع الزكاة والدخل . 2- نطلب من المشرفين على هذا المنتدى تثبيت الموضوع لأهميته وشاكر للجميع . مثال على المرحله الاولى.rar

اهي فرصة علشان تتعلم .

لا تنسى اذا كان هذا طلبك الضغط على أفضل اجابة .

جرب التعديل . غيرت برمجة الليست بوكس . mas-3.rar

أنظر هنا أستاذ @عبد الله قدور 🙂

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

بارك الله بالأخوين kkhalifa1960 و Foksh على ردودهم .

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

تفضل أخي @محمود _ المصري ، ملفك بعد التعديل Downloads.zip ولكن حتى تتوضح الأفكار لديك ، ليتم عرض ملفات الـ PDF في النموذج ؛ يجب أن يكون لديك برنامج Acrobat Reader !!! هذا من وجهة نظري

أمامنا جدول مع بيانات مختلفة 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