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

تفضل أخي رغم أنني استخدم اللغة الفرنسية على الجهاز قمت بتغييرها 😄 https://streamable.com/ljz0bf

وعليكم السلام -يكون من قائمة Insert أى إدخال ... وان لم يكن هذا هو المطلوب فلابد من رفع الملف وتوضيح المطلوب عليه بكل دقة على الرغم اننا نبهنا كثير جداً على هذا الموضوع ان يكون بالمشاركة ملف يدعمها وشكراً !!!

@Mohamed Hicham لماذا تستخدم الحلقة التكرارية وخاصية اختيار الملفات ؟ من شانه ان يجعل الكود بطيء ، دائما نلجا الى الفلترة او الفلترة المتقدمة لسرعتها خصوصا ان بيانات الاخ tahar صغيرة اما اذا كانت البيانات ضخمة عندها نستخدم الحلقة التكرارية مع المصفوفات لتسريع الكود. مجرد ملاحظة فقط ..تحياتي .

اخي الكريم ...وكيف سنعرف نوعية الخطا اذا انت لم تحدده. حقيقة لم استعمل هذه الاداة من قبل لكن اذا كنت تقصد هذا الخطا "compile erro function not defined" في هذه الحالة يجب ان تتاكد من تقعيل هذه الاداة من خلال قائمة خيارات الملف والذهاب الى الوظائف الاضافية adds in ويظهر لك مجموعة خيارات ابحث عنها وفعلها وستظهر لك القائمة وستجدها وفعلها ثم ادخل الى محرر الاكواد ومن قائمة tool >reference > solver قم بتحديدها اما اذا كان خطا اخر فعليك توضيح ذلك و لاتضع سؤال عشوائي لا احد يعلم ما هو الخطأ . تحياتي

السلام عليكم ورحمة الله تعالى وبركاته تفضل اخي الكريم يمكنك وضع الكود التالي وفلترة العمود بعشرة اعداد دفعة واحدة قابلة للزيادة . Sub Filter_() Dim Criteria_MH(100) As String Dim i As Integer Application.ScreenUpdating = False Sheets("ارقام الفلترة").Activate Range("A2:A12").Select For i = 0 To Selection.Count Criteria_MH(i) = Selection(i) Next Sheets("الجدول").Range("A3:A100").AutoFilter Field:=1, Criteria1:=Criteria_MH, Operator:=xlFilterValues Sheets("الجدول").Activate Application.ScreenUpdating = True End Sub tahar-MH.xlsm

طيب تفضل ... التعديلات ::::::: 1- اضفنا حق ch في الجدول 2- عملنا استعلام بالسجلات المختارة 3- ادرجنا زر وبه الامر التالي ::::: 4- جرب المرفق .. Dim DTPath As String DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\salim07- " & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.OutputTo acOutputQuery, "استعلام1", acFormatXLSX, DTPath, False MsgBox "لقد تم تصدير البيانات بنجاح" TEST 12.accdb

ممكن تشوف التعديل التالى TEST 12.rar

هو ده المطلوب بعينه جزاك الله خيرا فى الدارين واسعدك فى الدارين

السلام عليكم ورحمة الله بالنسبة للزر الاول هو لعرض بيانات فصل محدد من القائمة المنسدلة دون طباعة اما الزر الثانى فهو مخصص لعرض الفصول بداية من الفصل الاول حتى الاخير و طباعته مباشرة ..الكود التالى لطباعة ورقة محددة بعد عرضها عن طريق الزر الاول Sub PrnData() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False End Sub

السلام عليكم ورحمة الله اخى الكريم الكود يقوم بمسح البيانات حتى الصف رقم 49 ..سيتم رفع الملف بعد التعديلات لصعوبة تطبيقها بنفسك قوائم.xlsm

السلام عليكم الى الاخوة من وجد في هدا البرنامج مشكلة قم بتحميل النسخة المعدلة ثم الغاء كود تاكد من وجود ملف وتغيير رقم واسم المستخدم المستخدم: 1 رقم السري : 1 تعديل برنامج المطعم.rar

اعمل مربع نصی واعمل ھذا كمصدره ="pp" & Left([BarcodeNum];4) & "pp" & Right([BarcodeNum];4) & "pp" والنتيجة سيكون كالتالي