طارق محمود

إليك الملف وبه الكود يتم تنشيط الكود أوتوماتيكيا إذا ذهبت للورقة التي بها تقرير PivotTable متابعة العملاء1.rar

وعليكم السلام ورحمة الله وبركاتة أخي الكريم ضع الكود التالي في حدث الورقة بفرض أن كلمة السر لحماية الورقة هي "xyxy" Private Sub Worksheet_Activate() ActiveSheet.Unprotect ("xyxy") ActiveSheet.PivotTables("PivotTable7").PivotCache.Refresh ActiveSheet.Protect("xyxy", DrawingObjects:=False, Contents:=True, Scenarios:=False) = True End Sub

السلام عليكم جرب هذا الكود وأنت في الصفحة الثانية Sub n_print() LR = Sheets(1).[B9999].End(xlUp).Row rr = 3 5 If IsEmpty(Sheets(1).Cells(rr, 3)) Then GoTo 10 If rr > LR Then Exit Sub [E16] = Sheets(1).Cells(rr, 2) ActiveWindow.SelectedSheets.PrintOut Copies:=1 10 rr = rr + 1 GoTo 5 End Sub أو تفضل المرفق به زر معادلة.rar

السلام عليكم تفضل الملف المرفق به ماطلبت بالمعادلات تقريب لنصف الرقم العشري.rar

السلام عليكم اخي الكريم رددت عليك بالإميل فارتد إلي الإميل .. لاأدري لماذا .. قد يكون السعة منتهية Delivery to the following recipients failed. groupalburag@gmail.com عموما عذرا للتأخير فقد كنت ومازلت مشغوول ولأن الموضوع شوية معقد مع بساطته لكن الحمد لله أعتقد أنني أنهيته مرفق ملف مضغوط به مجلد يحتوي بضعة ملفات فك الضغط ثم افتح الإكسل فقط وبه الشرح والنتيجة Al-Burag.rar

لمعرفة نطاق أي مدي مُعرًف بالملف إضغط Ctrl-F3

بسيطة خالص Save AS أو F12

السلام عليكم تم تحويل المعادلة المطلوبةإلي كود وهى =COUNTIF(INDEX($C$3:$EV$5000;0;0);$FA3) أعتقد أن الملف الآن مناسب book book4.rar

السلام عليكم أخي الكريم : بالمرفق ملفين الملف الأول : book book2.xlsb هو نفس ملفك بلا أكواد وقد أضفت عليه تعديل بسيط وحفظته بامتداد xlsb الذي يتميز بسرعته وقلة حجمه تم تخفيض حجم الملف من إلي 13190 إلي 810 كيلوبايت الملف الثاني: book book3.xlsb هو الملف بالكود وقد حفظته أيضا بامتداد xlsb وفي هذا الملف الثاني سيتم تفعيل الكود أوتوماتيكيا فقط إذا اضفت أو غيرت أي بيانات في أعمدة الأدوية ولن يحدث أي شيء إذا غيرت أو أضفت من الأعمدة الأخري وبتفعيل الكود سيضع المعادلة أوتوماتيكيا في الخلية المجاورة لها تم تخفيض حجم الملف من إلي 13190 إلي 314 كيلوبايت تفضل أخي المرفق بالملفين واستعمل مايناسبك book2-3.rar

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

السلام عليكم أخي الكريم تقول لو اننا وضعنا المعادله بالصف السابع مثلا والشيت سيكون به عدد صفوف مقدارها 300 صف كيف يتم نسخ المعادله الموجوده بالصف السابع الى بقيه الصفوف ؟ فقط تظلل الأسطر بداية من السابع إلي 300 أو ماتريد ثم Ctrl-D أو Data > Fill down

السلام عليكم أخي الكريم تفضل المرفق .. أضفت شيت أسميته "الشهر الماضى" وفي الجديد تضيف رقم الموظف وتسحب المعادلة ,.. فتأتي بياناته مرتبات2.rar مرتبات2.rar

لايوجد مرفق !!

السلام عليكم أخي الكريم أنا أفضل أن تترك المعادلة بخلية واحدة أو عدة خلايا للتذكرة وبعد أن تأخذ منها نسخة لباقي الخلايا ، مما يجعل الملف ثقيلا ... إجعل هذه الخلايا الباقية أرقام فقط Copy .. Paste .Value جرب ذلك أولا وإن كنت لاتزال تحتاج الكود فلترسل الملف كاملا

السلام عليكم أخي الكريم جرب هذا الكود 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 عذرا أخي سليم ، لم أقرأ ردك