طارق محمود

السلام عليكم أخي الكريم جرب هذا الكود Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "G")) = False Then Cells(r, "D").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub مرفق الملف وبه الكود BOQ.rar

السلام عليكم أخي الكريم جرب هذا الكود Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "G")) = False Then Cells(r, "D").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub

السلام عليكم حل سريع بالجداول المحورية تفضل New Microsoft2.rar

السلام عليكم أخي الكريم تقول : "أنا أقوم بهذه الخطوات من خلال عملية طويلة تستغرق وقتا وجهدا من خلال عدة خطوات مملة ما بين برامج الويندوز والأوفيس وبعض المواقع المحدِّدة لكمية البيانات في كل ..." فالأفضل أن ترفق الشكل النهائي لما تحصل عليه مثلا البيانات في الملف التيكست تكون في عمود واحد فلترفق ملف اكسل بعد معالجتك اليدوية ليسهل علي من اراد المساعدة تصور 1- كم عدد الأعمدة تقريبا الناتجة 2- ماهي الأرقام التي تهملها 3- ماشكل البيانات بعد حذف المسافات انت تحملت وقتا طويلا فالأفضل ان تغير أسلوب العرض للمشكلة

السلام عليكم ضع هذا الكود في حدث الصفحة المقصودة Private Sub Worksheet_Activate() Application.CellDragAndDrop = False End Sub Private Sub Worksheet_Deactivate() Application.CellDragAndDrop = True End Sub تفضل المرفق به حذف هذه الخاصية للشيت الثاني فقط حذف خاصية AUTOFILL للورقة الثانية فقط.rar

السلام عليكم أخي الكريم يحدث هذا الخطأ عندما تكون قد استخدمت (أو حجزت للإستخدام) كافة أعمدة الورقة ويحدث خطأ حجز كافة أعمدة الورقة (أو الصفوف) للإستخدام عندما تذهب لآخر عمود (أو صف) وتملأ أي خلية به بأي بيان (ولو مسافة) معني تلك الرسالة أنك إن أزحت الأعمدة فسوف يتم إزاحة آخر عمود (الذي به بيانات كما يفهم الاكسل) لذلك علاجها أن تمسح نهائيا بعض الأعمدة الغير مستخدمة (أو كلها وهو الأفضل) تفضل الملف بعد المعالجة New Microsoft Excel Worksheet2.rar

السلام عليكم أخي الكريم أرجو الالتزام بقواعد المشاركة من حيث العنوان والاستعجال وعدد مرات الطلب الواحد تفضل الملف به ماطلبت تلاميذ 2017.rar

جميل أبو القبطان حل بسيط وسهل فقط للإثراء يمكن استبدال معادلات IF الطويلة بمعادلة Vlookup مثلا المعادلة في الخلية B3 يمكن كتابتها هكذا =VLOOKUP(C3,$H$2:$I$9,2,0)

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

أخي الحبيب / ياسر بارك الله فيك وجعلني عند حسن ظنكم أعذرني ، بل اعذروني جميعا للإنقطاع أنا متابع خفيف فقط هذه الأيام لانشغالي شبه الدائم لو تيسر وقت أدخل طبعا وأشارك

السلام عليكم تفضل أخي الملف وبه ورقة للشرح نقل التركيز.rar عذرا أخي سليم ، لم أقرأ ردك

أخي الكريم تماما ، كما فهمت أنا أيضا من السائل الكود الموجود أصبلا بالملف يرحل الفاتورة للورقة الأولي (المبيعات) ويحذف بيانات الفاتورة في صفحة فاتورة المبيعات فإذا لم تكن هناك فواتير مُرحلة من قبل فستكون هي الأولي وإلا يأخذ رقم آخر ماتم ترحيله ويضيف له 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