طارق محمود

أخي الكريم تماما ، كما فهمت أنا أيضا من السائل الكود الموجود أصبلا بالملف يرحل الفاتورة للورقة الأولي (المبيعات) ويحذف بيانات الفاتورة في صفحة فاتورة المبيعات فإذا لم تكن هناك فواتير مُرحلة من قبل فستكون هي الأولي وإلا يأخذ رقم آخر ماتم ترحيله ويضيف له 1

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

السلام عليكم الكود التالي في حدث ورقة فاتورة المبيعاتيقوم بعملية الترقيم التلقائي للفاتورة Private Sub Worksheet_Activate() xx = Sheets(1).[A999999].End(xlUp) If IsNumeric(xx) Then n = xx + 1 Else n = 1 [G6] = n End Sub سوف يقوم بمراجعة ورقة المبيعات العمود الأول إذا كان تم ترحيل فواتير لها سابقا سيأخذ آخر رقم بالعمود A ويضيف عليه 1 ويجعله هو رقم الفاتورة الجديدة وإلا سيكون رقمها هو (1)

السلام عليكم وهذا حل آخر سريع وعملي بالجداول المحورية أنظر الفيديو المرفق ومرفق أيضا الملف Piv_Table.rar sumifs__PivTables.rar

جزاك الله خيرا أخي الفاضل الصقر ( حسام ) بعض ماعندكم أحبك الله الذي أحببتني فيه

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

في منتدي الاكسل : لايمكنني المشاركة كتابة كما هو الحال هنا

EDPS2015_4.rar

السلام عليكم تفضل المرفق مقارنة.rar

السلام عليكم تجدون بالمرفق شرح سريع RAND.rar

السلام عليكم أخي الكريم مرفق حل طويل شوية باستخدام تسمية النطاقات أنظر المعادلات في الأعمدة بعد العمود AG في الورقة5 تفضل إستدعاء التاريخ.rar

السلام عليكم أخي العزيز إستخدم الدالة Ceiling بفرض أن الرقم المراد تقريبه في الخلية A1 فتكون الصيغة كالتالي =CEILING(A1,0.05) ثم إنسخها للأسفل لباقي الأرقام

السلام عليكم الأخ الكريم لابد أن ترفق ملفا به ولو فكرة بسيطة جدا عن شكل الأبعاد التي تخص الطلبية {مثلا : عدد 3 باب (120×220) + 6 شباك (80×80) } لاحظ أنا استخدمت مقاسات بالسنتيمتر مثلا القطاعات التي ستكون بالملف الخامات المفروض تكون بالطلبية دائما (أكر - كوالين - مفصلات .. زجاج) مثلا أنا أقترح أن يكون الملف 3 شيتات واحد به البيانات الأساسية وقواعد بياينات الثاني به كشوف مقايسات الثالث طلبات شراء

السلام عليكم أخي الكريم أولا : شغل الكود التالي لعمل فاصل كل 10 أسماء (تجده بالكود Module2) Sub Page_Brake() For r = 37 To [E9999].End(xlUp).Row Step 30 ActiveSheet.Rows(r).PageBreak = xlPageBreakManual Next End Sub ثانيا: لاأعلم وسيلة لتكرار التذييل إلا أن تحول النص أو الذي تريده ليكون تذييلا ، تحوله إلي صورة وتجعلها الهامش السفلي كما بالمرفق ناجح راسب تعديل 8 20150.rar

السلام عليكم أخي الكريم إجعلها بصيغة الصفيف {} عن طريق أن تضغط (بعد الانتهاء من كتابة المعادلة في الخلية) ، تضغط Ctrl-Shift-Enter بدلا من Enter وحدها ستكون الصيغة كالتالي =LARGE($C$14:$C$36,{1;2;3;4;5}) مرفق الملف معدلا اكبر خمس قيم.rar

السلام عليكم تفضل المرفق بدون اللجوء لأكواد الأشهر فقط المعيار سيكون إسم الشهر وعلي أساسه سيتم الترحيل أسفل نفس الشهر إن كان الإسم متطابق وإن لم يكن الشهر موجود في "شيت داتا" فسيتم عمل مجموعة أعمدة جديدة لتلقي الترحيل الترحيل بشكل افقي2.rar

السلام عليكم غير كود الترحيل للتالي Sub TARHEEL() Dim k As String, Mnth As String, nCL As Integer Mnth = [E2] nCL = Sheets(5).[BBB1].End(xlToLeft).Column + 2 If [B3] = "تم ترحيل البيانات" Then k = MsgBox("هل تريد ترحيل البيانات مرة أخرى", vbYesNo, "تنبيه") If k = vbYes Then 1: Sheets(5).Columns("A:E").Copy Sheets(5).Cells(1, nCL) Sheets(5).Cells(3, nCL).Resize(99, 5).ClearContents Sheets(5).Cells(3, nCL).Value = Mnth Union([A5:B9999], [F5:F9999]).Copy Sheets(5).Cells(3, nCL + 1).PasteSpecial [B3] = "تم ترحيل البيانات" Application.CutCopyMode = False End If Else GoTo 1 End If End Sub وهذا الملف وبه الكود الجديد الترحيل بشكل افقي.rar

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

السلام عليكم تفضل المرفق max-min-2.rar

السلام عليكم أخي العزيز لعل المرفق به ماتريد إستخدمت نطاقا ثابتا لحساب موضع الشهر (باللغة العربية) وهو _POS ويساوي =MATCH(Sheet1!$N$3,Sheet1!$A$3:$L$3,0) تفضل المرفق Match.rar

السلام عليكم أجد الشاشة غريبة في ثوبها الجديد الإخوة الأعزاء لا أستطيع تنزيل الملفات ، ربما بعض الإصلاح مازال مستمرا عموما أحببت أشارك بنقاط توضيحية 1- شدني جزء من مشاركة أبولجين حيث يقول"والامر الذي احتاج اليه هو اذا كانت قيمة المتوسط اكثر او تساوي 360 نقوم بطرح 360" أخي العزيز إذا كانت جميع الزوايا أقل من 360 فلايمكن أن تكون قيمة المتوسط اكثر او تساوي 360 ، إلا إذا كنت تقصد المجموع وليس المتوسط 2- رياضيا يمكن التعبيرعن الزاوية بالموجب باتجاه عكس عقارب الساعة وبالسالب في إتجاه عقارب الساعة أي أن الزاوية 30 هي نفسها الزاوية (-330) والزاوية 350 هي نفسها الزاوية (-10) ويستخدم هذا الأسلوب (التعبير بالسالب عن الزوايا) لتلك التي تزيدعن 180 3- قد تكون الملحوظتان السابقتان بلافائدة إذا استطعت تحميل الملف 4- مما أثار اللخبطة لكثير من القراء أن مصطلح "زوايا دائرية" الذي استخدمه أبولجين هو في عالم الرياضيات له معني آخر غير مايقصده هنا حيث تقسم الدائرة في نظام الزوايا الدائرية (بدلا من 360 درجة) إلي ضعف النسبة التقريبية أي أن الـ 360 تكون مكافئة لـ حوالي 6.283183 درجة دائرية وبالمقلوب الزاوية الدائرية التي تساوي (1) هي الزاوية التي يتساوي طول قوسها مع نصف قطر الدائرة

السلام عليكم أخي جمال ، سلمت يمينك أنا بالفعل بدأت في معالجة الموضوع بالدالة " sumproduct " ولكني لم أفلح وعندما توصلت وجدتك سبقتني بكثير ماشاء الله عليك عموما الملف المرفق (بعد إذنك) به حل سريع بالجداول المحورية ، قد يكون أنسب (في حالات معينة) Test.rar

أخي الحبيب / محمد الخازمي عذرا لم أر مشاركتك

السلام عليكم أخي العزيز لانحتاج معادلات فقط تنسيق أنظر شرح موقع الأوفيس https://support.office.com/ar-sa/article/%D8%B9%D8%B1%D8%B6-%D8%A7%D9%84%D8%AA%D9%88%D8%A7%D8%B1%D9%8A%D8%AE-%D9%83%D8%A3%D9%8A%D8%A7%D9%85-%D8%A7%D9%84%D8%A3%D8%B3%D8%A8%D9%88%D8%B9-14f02f1d-8e3d-45a5-bdf8-3d962bf15327?ui=ar-SA&rs=ar-SA&ad=SA&fromAR=1 وانظر المرفق الخلية A1 بها تاريخ وباقي الخلايا بها معادلة واحدة وهي: A1 = ستلاحظ اختلاف الناتج باختلاف التنسيق يمكنك الوقوف علي كلا منها لمعرفة تنسيقها ماعدا الخلية الصفراء بها معادلة لجلب اسم اليوم باللغة العربية تفضل المرفق Weekdays.rar

ولايهمك أبا البراء كما اتفقنا كثيرا لااعتذار ولايحزنون المهم السائل يستفيد ================= عشان مافيش حاجة اسمها Worksheet_open توقعت ان يكون السائل مبتديء (كما كنا جميعا) وتوقعت ايضا ان يكون في حدث الورقة وهو لم يحسن توصيل الطلب ولكن يبدو ان كلامك انت الاصح تقبل ودي واحترامي