Ali Mohamed Ali

وعليكم السلام -تفضل ملف قيم لما تريد 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

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

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

أعمال ممتازة بارك الله فيك

وعليكم السلام -يمكنك استخدام معادلة المصفوفة(Ctrl+Shift+Enter) فى الخلية J4 =INDEX($B$5:$B$9,MATCH(1,MMULT(--($C$5:$F$9=$K$4),TRANSPOSE(COLUMN($C$5:$F$9)^0)),0)) code departement1.xlsx

أحسنت استاذ منير عمل رائع الى الأمام دائماً ... ونرجو منك ايضا التفاعل الإيجابى ومحاولة مساعدة الأساتذة فى الرد على تساؤلات واستفسارات الأعضاء بالمنتدى بما لديك من خبرات واسعة فى مجال الإكسيل ونتمنى الإستفادة من خبراتكم

جزاك الله كل خير الى الأمام دائماً

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

تفضل-يمكن ان يكون الكود هكذا Private Sub CommandButton1_Click() If Sheet1.Range("D5").Value = "" Then MsgBox "الرجاء إدخال البيانات كاملة ", vbCritical, "تنبيه" Sheet1.Activate Exit Sub Else End If Dim Arr With Sheet1 Arr = Array(.Range("D5"), .Range("D7"), .Range("D9"), .Range("D11"), .Range("D13"), .Range("G5"), .Range("G7"), .Range("G9"), .Range("G11")) End With With Sheet2 .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr End With MsgBox "تم الإضافة بنجاح", vbInformation, "تأكيد" Sheet1.Range("D5").Value = "" Sheet1.Range("D7").Value = "" Sheet1.Range("D9").Value = "" Sheet1.Range("D11").Value = "" Sheet1.Range("D13").Value = "" Sheet1.Range("G5").Value = "" Sheet1.Range("G7").Value = "" Sheet1.Range("G9").Value = "" Sheet1.Range("G11").Value = "" End Sub الشهادات المدرسية للقدامي 2022.xlsm

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

مشكورين هدية مقبولة وبارك الله فيكى

وعليكم السلام -تفضل عند كتابة الكود يظهر الاسم والقسم1.xlsx

مجهود كبير استاذة ساجدة بارك الله فيكى

وعليكم السلام-يمكنك استخدام هذه المعادلة بالخلية H4 سحباً للأسفل =IFERROR(INDEX($M$5:$M$8,MATCH($G6,$N$5:$N$8,0)),"") شكرا لك والحمد لله الذى بنعمته تتم الصاحات , للأسف لا امتلك قناة على اليوتيوب choose numbre1.xlsx

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