omar elhosseini

شاهد المرفق اخي خلية.xlsb

شاهد المرفق اخي test01.xlsm

شاهد المرفق اخي مع ملاحظة ان اخفاء او اظهار 172 شيت تأخذ بعض الوقت الوزن الدورى -قبل الوزن.xlsm لقد تم حل مشكلة الرفع من قبل

اخي هذا علي اساس انه رصيد مخزن وليس حركة المخزون ثاني شئ فاتورة البيع والشراء ليس بهم تاريخ حتي انتبه لذلك

اتمني ذلك-شاهد المرفق اخي ( طباعة الفورم ) الان يمكنك طباعة الجدول او الفورم علي فكرة هذا اول مره فى المنتدى ما الخطأ في الكود.xlsm

هل عمود الفلترة سوف يحتوى علي سنة واحدة ام اكثر من سنة .. في الجدول الاساسي عند ظهور كلمة EXIT هل يحذف السطر من الجدول الاساسي ام من الشيتات الجديدة وايضا لو القيمة الا فى عمود H اكبر من القمية الى فى عمود G تتنقل تلقائى للفمود H هذا فى الجدول الاساسي ام الشيتات الحديدة

اخي الموضوع تنقصة معلومات 1 - فى اي عمود ستوجد كلمة EXIT 2 - (لو القيمة الا فى عمود H اكبر من القمية الى فى عمود G تتنقل تلقائى للفمود H) هل سيترك العمود G فارغ 3 - (عند الضغط على اسم الشهر يفتح صفحة بيانات من الجدول ( معادلة او كود تصفية )) تقصد فلترة الجدول علي الشهر المحدد - الفلترة علي اي عمود من اعمدة التاريخ الثلاثة

اخى هل ستفوم بتكرار تنفيذ الكود عشر مرات لعشرة اعمدة ناهيك عن ان الكود طويل خليك في المصرى افضل من الاجنبي صناعة مصرية خالصة لوجه الله الكود لعسرة اعمدة مرة واحدة شاهد المرفق Sub UnMerge_Rng() ' Application.ScreenUpdating = False End_Row = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row + 2 For Col = 1 To 10 Set Rng = Range(Cells(5, Col), Cells(End_Row, Col)) With Rng .MergeCells = False .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" .Value = .Value End With Next Application.ScreenUpdating = True ' End Sub تقرير الطلاب1.xlsb

شاهد المرفق اخي برنامج محاسبه.xlsm

اخي شاهد المرفق ابريل20222.xlsm

الظاهر انك غير مهتم بالموضوع سأجعلك تجري ورائي جري الوحوش دقائق وانتظر المفاجئة انتظرك سريعا

ارجو ان يقوم احد الاعضاء بتجربة الكود وله الشكر

اخي لماذا لا تتحرك صفحات الحسابات جهة البسار الترحيل.xlsb

شاهد المرفق اخي ( ترتب ارقام العمود يكون نفس ترتيب العمود اللى قبله ) اوفسينا.xlsm

ولك مثله اخي الكريم

رمضان كريم ... انظر المرفق اخي Total Suppliers Invoice - Copy.xlsm

اخي لدي استفسارات 1- طبعا شهور السنة كلها نفس الاعمدة والتنسيقات 2- اري في شيت ال Summary الاسم مرتبط بأسم الرحله اي اذا تكرر الاسم مرتين برحلتين مختلفتين يعتر الامر كأنهما اسمين مختلفين 3- اى الاعمدة التي يتم جمع مبالها لنفس الأسم ونفس الرحلة سؤال اخر 4- هل الملف به شيتات الشهور و شيت Summary فقط ام توجد شيتات اخر 5- يجب ات تكون اسماء الشهور مستمدة من الكومبيوتر وليس ان تقوم بهجائها حتي لا تختلف مسميات الشيتات ارحو ات تكون خمس ايجابات منظمة تحياتي سأبدأ التجهيز

واليك رابط احد موضعاتي السابقة عن البروجرزبار شرح استخدام البروجرز بار _ Progress indicator واليك رابط احد موضعاتي السابقة عن البروجرزبار عدد 5 بروجرزبار شرح استخدام البروجرز بار _ Progress indicator

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

اخي العزبز 1 - تم تغبر فورمات التاريخ فب عمود 1 ليست بوكس 2 - تم ضبط معدلات تكست بوكس 1 و 2 3 - تم عمل عناوين لأعمدة الليست بوكس حسب المتاح من موارد تعبئة الليست بوكس 4 - اما تظليل سطور الليست بوكس اذا وافقت شرط اذا كان تاريخ الأستحقاق يساوي او اصغر من تكست بوكس 5 فلا يوجد مستحيل فى VBA Excel 5 - ماذا تقصد من طباعة النموذج هل تقصد طباعة ال UserForm ام طباعة الجدول ملاجظة : تم تغير 3 تواريخ استحقاق للتجربة تحياتى وشاهد المرفق Book1.xlsm

شاهد المرفق اخي مع ملاحظة ان اخفاء او اظهار 172 شيت تأخذ بعض الوقت اخي لم استطيع رفع الملف علي المنتدي لانه يتعدي الحجم المسموح به وهو 1 ميجا عليك برفعه على رابط خارجى

شاهد المرفق اخي Attendane.xlsm

احي شاهد المرفق Link_Files_In_Folder_And_SubFoldr.xls

شاهد المرفق rap jour.xlsm

شاهد المرفق N1 FN1 Item1 N2 FN2 Item2 N3 FN3 Item3 N4 FN4 Item4 itemx N5 FN5 Item5 N6 FN6 Item6 N7 FN7 Item7 N8 FN8 Item8 N9 FN9 Item9 N10 FN10 Item10 Test_1.xls