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

أخى الكريم هذه ليست مشكلة عليك بإعادة الكتابة بنفس الخلايا ولاحظ ماذا يحدث سترجع الى حجمها المحدد مسبقا ... وجرب بنفسك فلابد اذا اردت تغيير حجم الخلايا بيدك لازم تتغير معك لأنها غير محمية ولكن عند الكتابة عليها وادخال البيانات بها سترجع الى حجمها الأساسى مرة اخرى

وعليكم السلام- على الرغم ان طلبك هذا عكس المألوف والمعتاد عليه دائما على ان يتغير ارتفاع الصف وعرض العمود تلقائى بما يتناسب مع البيانات المدخلة اليهم ولكن بالنسبة لطلبك ,يمكنك استخدام هذه الأكواد لتحديد عرض العمود وارتفاع الصف وتثبيت ذلك Sub Column_Width() Columns("h:n").ColumnWidth = 8.58 End Sub Sub RowHeight() Rows("8:16").RowHeight = 15 End Sub Column Width &RowHeight.xlsm

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

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