Ali Mohamed Ali

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

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

تم ضبط الأبعاد بدقة فعليك بعدم العبث بها 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

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

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

ان لله وانا اليه راجعون البقاء لله ... اللهم اغفر لها وارحمها وأدخلها جنات الفردوس الأعلى , وألهم اهلها الصبر والسلوان

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

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

وعليكم السلام-فقط عليك استخدام هذه المعادلة =IFERROR(VLOOKUP($L11,الجدول1,6,0),"") الفلزات1.xlsx

تفضل بكل بساطة بعد ضبط ملفك, عليك بوضع هذه المعادلة بداية من الخلية I3 من صفحة المواد سحباً للأسفل وشكراً =SUMIF(مبيعات!$E:$E,$A3,مبيعات!$H:$H)+SUMIF(بياره!$B:$B,$A3,بياره!$E:$E) مبيعات1.xlsx

وعليكم السلام-تفضل تم عمل كل المطلوب فى الصفحة الأولىSURGICAL_ALL (10) ROTA SURGICAL JULY TRILE 2.xlsm

وعليكم السلام-طالما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة ... فكان عليك لزاماً استخدام خاصية البحث بالمنتدى قبل رفع المشاركة -تفضل مكتبة الموقع - كود لقلب وضعية بلوكات كاملة