عبدالله المجرب

السلام عليكم جرب المرفق Hide.rar

ما فيه داعي تسجل ماكرو بالنسبة للشروط انت عرفت كيفية التعامل معها بالنسبة لورقة التقرير ضع راس الجدول كما هي بالاضافة الجديدة يعني لو اضفت ٧ اعمدة فقط قم بنسخ الترويسة من الجدول الاساسي الى ورقة التقرير ثم عدل في الكود بما يتناسب مع عدد الاعمدة

مدى البيانات مرن اي انك لو زودت بيانات ستكون ضمن التصفية جرب وشاهد النتيجة

تفضل المرفق تصفية متقدمة.rar

السلام عليكم جرب هذا التعديل في البداية ارفع أمان الماكرو. قد تحتاج الى تعديل هذه CC1.rar

نفس المشكلة في تحميل المرفق

اليك المرفق xlsxطلب مساعدة (1).rar

ضع مرفق

البيانات في لمرفق بها خطا ضع مرفق به بيانات وبين اين تريد ادراج البيانات من الفورم

السلام عليكم اعتقد انك بحاجة الى ضبط تاريخ الكمبيوتر روح على:control PanelRegion and language

ارى ان تستحدم دالتي INDEX و MATCH للبحث بشرطين او عمودين

الف مبروك اخي الفاضل ومنها للاعلى

السلام عليكم نتمنى لو تبين لنا كيف حللت المشكلة ليستفيد الجميع

ارفق الملف وان شاء الله نساعدك في الحل

السلام عليكم الطريقة اليدوية كالتالي من خيارات الاكسل اختر صيغ ثم كما في الصورة

جزاك الله خير

السلام عليكم ضع هذا السطر في موديول جديد Public Abu_AhmedPrnt As Boolean ثم في حدث ThisWorkbook ضع هذا الاسطر Private Sub Workbook_BeforePrint(Cancel As Boolean) If Abu_AhmedPrnt Then Exit Sub MsgBox "لا يمكنك الطباعة بهذه الطريقة - أضغط زر الطباعة للطباعة" Cancel = True End Sub في زر الأمر الخاص بالطباعة ضع هذا السطور Abu_AhmedPrnt = True ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Abu_AhmedPrnt = False

استاذ احمد مرحباً بك بالنسبة لتحويل ال PDF الى اي من ملفات الأوفيس فاعتقد (والله أعلم) فانه من الصعوبة الحصول على نتائج مرضية هذا رايي احببت ان افيدك به وننتظر ما لدى الأستاذ ياسر من ابداعات والله الموفق

السلام عليكم تمكن قوي في المصفوفات وعمل قمة في الروعة بس اي استفسار وطلب الاستفسار هو ما فائدة هذا السطر P = P + 1 اما الطلب فهو شرح مفصل لطريقة عمل المصفوفة في الكود وشكراً من القلب

جزاء الله الجميع كل خير على عطائهم

اشكر للجميع مرورهم الكريم

السلام عليكم معذرة على التاخير في رفع دروس جديدة ولكن ان شاء الله كلما تيسر الوقت ساضيف درس جديد والان اترككم مع الدرس وان شاء الله تعم الفائدة

بصراحة كود قمة في الاتقان والتميز سلمت يمينك استاذ عمر الحسيني وعوداً حميداً ومميزا كالعادة

بارك الله فيك استاذ ابوخليل وجزيت خيراً اخي صالح

السلام عليكم اخي الكريم المشكلة في أخر رقم 3 في الدالة والذي يجب أن يكون صفراً لكي يعطي نتائج مطابقة =VLOOKUP(A2;ورقة1!$A$1:$G$9;3;0) أو False كما في مشاركة الاخ عبدالسلام