Ali Mohamed Ali

أحسنت استاذ ماجد بارك الله فيك وزادك الله من فضله

أحسنت استاذ شوقى عمل ممتاز بارك الله فيك وزادك الله من فضله بتوحشنا كتير حمد الله على السلامة

أحسنت استاذ ماجد بارك الله فيك وزادك الله من فضله

تفضل تم التعديل على الملف السابق طبقاً لطلباتك الجديدة فمن فضلك بعد كده لابد من شرح طلباتك كاملة من أول مرة

وعليكم السلام-اهلا بك فى المنتدى -تفضل لك ما طلبت ويمكنك بإظهار الفورم فقط دون اظهار ملف الإكسيل وذلك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub Userform.xlsm

وعليكم السلام-تم تعديل المعادلة كما تريد ... كما تم تقييد الإدخال بعمود الكمية Y على حسب نوع السيارة كما تم عمل قوائم منسدلة للأعمدة الضرورية فى العمل حتى تتجنب اى خطأ عند الكتابة , فقط عليك الإختيار من القوائم 07272431.xlsm

احسنت استاذ عبد اللطيف بارك الله فيك وزادك الله من فضله

بارك الله فيك وجزاك الله كل خير

وعليكم السلام -تفضل لك ما طلبت هذا هو المستخدم بالقائمة الرئيسية من قائمة Data ثم Data Validation ثم بعد ذلك اختيار List ووضع هذا النطاق فى خانة Source =Classification!$A$1:$Q$1 أما القائمة الفرعية فعليك بإتباع نفس الخطوات مع وضع هذه المعادلة =OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,COUNTA(OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,20,1)),1) Classification1.xlsx

بارك الله فيك وزادك الله من فضله

وعليكم السلام-تفضل لك ما طلبت بمعادلة Sumif & Sumifs الفلزات1.xlsx

كان عليك استخدام خاصية البحث بالمنتدى-تفضل الترجمة فى الاكسل (ترجمة دوال الاكسل

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله ورحم الله والديك

تم ضبط الأبعاد بدقة فعليك بعدم العبث بها 1عتماد مستندات نهائى1.xls

بارك الله فيك ... وتقبل الله منا ومنكم سائر الأعمال

بارك الله فيك استاذنا الكريم وجزاك الله خير الثواب

وعليكم السلام-تم ضبط وعمل المطلوب بالكود وتجربته بالفعل على الطابعة ويعمل بكل كفاءة ملحوظة : عليك بعدم العبث بأبعاد الصفحات او محاولة تغييرها وهذا هو الكود المستخدم فى ذلك Private Sub Do_It() Application.ScreenUpdating = False With Sheets("قطاعات") a_max = .Cells(.Rows.Count, "A").End(xlUp).Row b_max = a_max prows = 45 a = 5 Do a = a + prows Loop Until a + 45 >= a_max .Rows(a_max + 1 & ":" & a_max + 3).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Sheet1").Range("A1:F3").Copy Destination:=.Cells(a_max + 1, "A") b_max = b_max + 3 For aa = a To 5 + prows Step -prows .Rows(aa & ":" & aa + 2).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Sheet1").Range("A1:F3").Copy Destination:=.Cells(aa, "A") b_max = b_max + 3 Next aa .PageSetup.PrintArea = "A1:F" & b_max .PrintOut For a = 5 + prows To a_max Step prows .Rows(a & ":" & a + 2).Delete shift:=xlUp Next a .Rows(a_max + 1 & ":" & a_max + 3).Delete shift:=xlUp .PageSetup.PrintArea = "A1:F" & a_max End With Application.ScreenUpdating = True End Sub 1اعتماد مستندات.xls

وعليكم السلام-لك ما طلبت اخفاء صفوف1.xlsm

وعليكم السلام .. ليس هناك داعى لكل هذا -تفضل هذا برنامج لأستاذنا الكبير ابو خليل به طلبك , بارك الله فيك ,واعلم يقيناً ان المنتدى دائماً تعليمى وليس لتقديم البرامج الجاهزة شجرة عائلة _ شجرة حسابات

أحسنت استاذ محمد عمل هائل بارك الله فيك وزادك الله من فضله

وعليكم السلام-ضع هذا الكود فى حدث Thisworkbook Private Sub Workbook_Open() UserForm1.Show End Sub Backup of work2.xlsm

أحسنت استاذ عبد اللطيف بارك الله فيك وزادك الله من فضله

عمل ممتاز استاذ عبدالله بارك الله فيك وزادك الله من فضله

أحسنت استاذ منير .. مجهود رائع بارك الله فيك

وعليكم السلام -تفضل ملف قيم لما تريد List All files from Folder and Sub-folders in Excel Workbook File_Manager.xlsm وهذا ملف اخر Open Excel files in a folder [VBA] List-all-files-in-a-folder.xlsm وهذا الرابط من داخل المنتدى أيضاً سيفيدك للأستاذ محمد صالح شرح عرض جميع الملفات والمجلدات في مسار list all files and folders in path في vba