طارق محمود

إخواي وحبيباي أحمد زمان ، حمادة عمر الأخت الفاضلة سما محمد جزاكم الله خيرا مروركم شرف لي وكلماتكم وسام علي صدري

الحمد لله تم الموضوع علي خير

أخي الحبيب / ضاحي أخي الحبيب / مجدي جزاكما الله خيرا شرفني مروركما

السلام عليكم ورحمة الله وبركاته إخواني وأساتذتي بالمنتدي الكريم طلب مني أخ كريم (العضو: أحمد البطل - HERO92) طلب علي الخاص، قد يتعرض له آخرون وهو: ================================= تحية طيبة ،،،، يوجد لدى 100 ملف اكسيل هل يمكن تغير اسم الشيتات فى الــ 100 ملف اكسيل مره واحده مع العلم أن اسماء الملفات لا ارغب فى تغيرها فقط اسماء الشيتات ارغب فى تغير جميع اسماء الشيتات الى اسم واحد مثال اسم الشيت جرد يتغير الاسم الى sheet1 وآخر اسمه راتب ، يتغير الاسم الى sheet1 أيضا وعدد الشيتات ثابت فى كل الملفات هو شيت واحد فقط يرجى تزويدى بشرح الطريقه والاكواد التى استخدمها وتقبل خالص تحياتى ================================= ورأيت ان أجعله موضوع مستقل لتعم الفائدة علي الجميع في المرفق الحل والشرح تفضلوا RENAME.zip

السلام عليكم تفضلي المرفق أتمني أن يكون هو ماتريدين ولاتنزعجي من السؤال لو مازال عندك أي أسئلة تأخيرات الموظفين7.rar

السلام عليكم في الملف 66 المعادلة بالخلية A2 هي =[55.xls]ورقة1!$A$2 إلغي علامات الدولار وإجعلها =[55.xls]ورقة1!A2 ثم انسخها للأسفل

لاحول ولاقوة إلا بالله أخى الحبيب / ضاحى الغريب إن شاء الله في ميزان حسناتكم ورفع الله عن إبنك وعن كل مرضي المسلمين وأذكركم ونفسي بأن أكثركم بلاءا الأنبياء ثم الأمثل فالأمثل اللهم رب الناس أذهب البأس اشفِ أنت الشافي لا شفاء إلا شفاؤك ، شفاء لا يغادر سقما أسأل الله العظيم رب العرش العظيم أن يشفي إبن أخى وحبيبي إلى الله ضاحى الغريب عاجلاً غير آجل صبركم الله وفك كربنا وكربكم أخي الحبيب وبارك الله فيك وفي أهلك وأبناؤك ورزقك من الخير كما يحب ربنا ويرضي إن شاء الله سيكون بخير وبأفضل حال بإذن الله قريبا ، وشفاه الله وعفاه من أى مكروه أخى ضاحى : أوصيك وأنت أعلم مني بذلك بالصدقة فهي خير علاج

الحمد لله طبعا الشكر موصول لأستاذنا / أحمد زمان والشكر الجزيل لأخونا جمال عبد السميع علي المرور الطيب والكلام العطر

السلام عليكم الحمد لله ، تم معرفة الخطأ المفروض نسخ الملف وليس الورقة أبطلت عمل سطر نسخ الورقة ActiveSheet.Copy وأضفت بدلا منه نسخ الملف وفي المقابل أضفت حلقة لإزالة جميع ورقات الملف المنسوخ عدا تلك التي بها الأزرار تفضل الكود Sub SaveInvWithNewName_Pending() Dim NewFN As Variant OldFN = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name ' Copy Invoice to a new workbook ' ActiveSheet.Copy Application.DisplayAlerts = False NewFN = "D:\Fleet Service Job Order Pending\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsm" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled X = ActiveSheet.Name For i = Sheets.Count To 1 Step -1 If Sheets(i).Name <> X Then Sheets(i).Delete Next FN = ActiveWorkbook.Name Workbooks.Open (OldFN) Workbooks(FN).Close Application.DisplayAlerts = True End Sub

السلام عليكم هذه الجزئية ببساطة يمكنك عمل Save as أثناء تشغيل مسجل الأكواد لتري محرر الأكواد كيف يكتب هذا الأمر إذا لاحظت في الملف الذي أرسلته أنا تجد في الـ Module3 كود Macro1 فقط للحفظ بإمتداد xlsm

بمعني آخر ستجد الكود أربع مواضع فيها التسجيل بصيغة xlsx مثل NewFN = "D:\Technical Support Job Order Pending\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsx" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook فما عليك إلا تغييرها إلي NewFN = "D:\Technical Support Job Order Pending\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsm" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled

السلام عليكم أخي العزيز الكود الأول في مشاركتك الأولي كان مضبوط ويسجل بصيغة xlsm التي تقبل الماكرو أما الكود الذي بالملف في مشاركتك الأخيرة غير مضبوط ويسجل بصيغة xlsء التي لاتقبل الماكرو تم التعديل للازم مع عدم التجربة أرجو أن تجربه وتعطيني النتيجة Job Order Test2.rar

السلام عليكم تفضلي المرفق مع آخر تعديلات تأخيرات الموظفين6.rar

السلام عليكم بالإضافة لحلول إخواني الأكارم أحمد عبد الناصر وجمال عبد السميع تفضل أخي الكريم المرفق لزيادة الخير معادلة الرقم التسلسلي2.rar

السلام عليكم مرفق الملف مع تطبيق المعادلة لاحظ التالي: 1. تسمية النطاقات اللازمة : (names ، stition) 2. التغييرات الطفيفة بالمعادلة لتلائم الشكل الذي رأيته مناسبا لعرض البيانات 3. ورقة جديدة تؤدي نفس الغرض المطلوب بطريقة الجداول المحورية بلامعادلات ولاأكواد (فقط كود من سطر واحد لتحديث الجدول) ادارات2.rar

السلام عليكم اخي العزيز جرب المرفق المصنف1-2.rar

السلام عليكم أخي العزيز من أحد الملفات الشغالة التي ليس بها مشاكل وبها الماكرو شغال إحفظ بإسم (مافيه تفعيل الماكرو - xlsm) واضغط هذا الأخير ثم إرفقه كما يفضل ذكر أي من هذه الأزرار الذي يتعطل بالخطوة 5

أو تفضل المرفق مقارنة داخل الخلايا2.rar

السلام عليكم أخي العزيز ضع المعادلة التالية في الخلية ثم انسخها للأسفل =IFERROR(VLOOKUP(A2,$F$2:$G$16,2,0),"")

السلام عليكم الأخ العزيز إذا كان التاريخ الهجري رقما فاستخدم المعادلة التالية =30-VALUE(RIGHT(TEXT(A10,"[$-1170401]B2"),2)) وإذا كان التاريخ الهجري ليس رقما كما في حالتك هذه فاستخدم المعادلة التالية =30-VALUE(RIGHT(A10,2))

السلام عليكم أخي الكريم أولا : أهلا ومرحبا بك بين إخوانك ثانيا: لإرفاق الملف إضغطه أولا وارسل النسخة المضغوطة للضغط استخدم winrar أو winzip

الأخ الفاضل: سعيد بيرم الأخ الفاضل: رجب جاويش الأخ الفاضل: حمادة عمر الأخ الفاضل: محمد فاروق الأخت الفاضلة: أم عبد الله الأخ الفاضل: محمدي عبد السميع شكرا لكم جميعا علي المرور الطيب والكلمات الجميلة جزاكم الله خيرا

جزاك الله خيرا أخي / سعيد أخي /محمد فاروق جزئية صغيرة لم أشرحها وهي: لماذا بدأت من معادلة الصف الثاني؟ "لنبدأ من معادلة الصف الثاني (165) ليكون الشرح أفضل" إذا نظرت للمعامل A حيث A = ROWS(Sheet1!$A$2:$A3) ستجد علامات الدولار محيطة بالعنوان A2 ولكنها تسبق العمود فقط في الخلية A3 وهذا يعني عدد الصفوف من العنوان الثابت A2 إلي العنوان ثابت العمود فقط A3 وهذا بدوره يعني أن عدد الصفوف سيزيد في هذا الجزء من المعادلة كلما نزلت داخل معادلة الصفيف

السلام عليكم تفضل المرفق أخي الكريم Book1_TT.rar

السلام عليكم أخي الكريم /محمد فاروق (وبعد إذن أخي رجب) قبل البدء لنذهب إلي أسماء النطاقات التي تم تعريفها في هذا الملف وذلك بالضغط علي Ctrl-F3 ستجد منها مايهمنا والذي تم استخدامه بالمعادلة وهما النطاقان names ، stition أو لنطلب الذهاب إلي النطاق names مثلا عن طريق Ctrl-G ستجد أنه مجموعة البيانات في العمود A في sheet1 و النطاق stition ، ستجد أنه مجموعة البيانات في العمود B في sheet1 والآن لكي تفهم هذه المعادلة (أو غيرها مهما طالت المعادلة) فلنقسمها إلي معادلات أصغر ثم نجمع المطلوب مرة أخري لنبدأ من معادلة الصف الثاني (165) ليكون الشرح أفضل معادلة الصف الثاني هي: =IF(ROWS(Sheet1!$A$2:$A3)<=COUNTIF(stition,$A$164),INDEX(names,SMALL(IF(stition=$A$164,ROW(stition)-ROW(Sheet1!$A$2)+1),ROW(2:2))),"") ويمكن تبسيطها للشكل: =if(A<=B,C,D) حيث A = ROWS(Sheet1!$A$2:$A3) و B = COUNTIF(stition,$A$164) و C = INDEX(names,SMALL(IF(stition=$A$164,ROW(stition)-ROW(Sheet1!$A$2)+1),ROW(2:2))) و D = "" المعادلة الكلية تعني إذا تحقق الشرط (if) إذا كان A<=B فلتأتي بالمعامل (C) وإلا فلاشيء "" والجزء الذي يحتاج لشرح أكبر هو C ويمكن تبسيط معادلة الجزء C أيضا بنفس الطريقة للشكل: C = INDEX(names,SMALL(Y1,Y2)) حيث Y1=IF(stition=$A$164,ROW(stition)-ROW(Sheet1!$A$2)+1) و Y2=ROW(2:2) هذا الجزء الأخير Y2 يأتي برقم الصف 2 أي يأتي برقم (2) ولكنه في داخل معادلة الصفيف { .. } يتغير مع الصف ليزيد مع تزايد رقم الصف والجزء Y1 يسأل if ، إذا كان القسم في sheet1 مساويا للخلية $A$164 (وعلامات الدولار لتثبيتها عند النسخ) فلتفعل (حال1) وإلا (حال2) في حالتنا هنا إذا كان القسم مساويا لكلمة " الادارة" فلتأتي برقم الصف في خلايا نطاق القسم مطروحا منه 1 وإلا فيكون رقم 2 وطبعا الدالة SMALL تعني الرقم الأقل مما يليها في أطراف الدالة إذن: معادلة الجزء C C = INDEX(names,SMALL(Y1,2)) ستعني الحصول علي الإسم رقم (س) من مجال names حيث (س) هي الرقم الأقل من رقمين (رقم صف كلمة " الادارة" ) أو (2) ونفس معادلة الجزء C في الصف التالي (الثالث) ستعني ستعني الحصول علي الإسم رقم (س) من مجال names حيث (س) هي الرقم الأقل من رقمين (رقم صف كلمة " الادارة" ) أو (3) وببساطة أكثر فهو يبحث عن كلمة " الادارة" في مجال القسم ويأتي بالأسم المقابل إذا تحقق الشرط