طارق محمود

المراقبين
  • Content count

    4,362
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    38

طارق محمود last won the day on November 10 2014

طارق محمود had the most liked content!

السمعه بالموقع

583 Excellent

عن العضو طارق محمود

  • الرتبه
    مراقب عام
  • تاريخ الميلاد 19 نوف, 1963

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    Eng
  • Location
    مصر

Contact Methods

  • MSN
    tarekmahmoud_2@hotmail.com
  • ICQ
    0
  • Yahoo
    ziko_001

اخر الزوار

5,156 زياره للملف الشخصي
  1. لمعرفة نطاق أي مدي مُعرًف بالملف إضغط Ctrl-F3
  2. بسيطة خالص Save AS أو F12
  3. السلام عليكم تم تحويل المعادلة المطلوبةإلي كود وهى =COUNTIF(INDEX($C$3:$EV$5000;0;0);$FA3) أعتقد أن الملف الآن مناسب book book4.rar
  4. السلام عليكم أخي الكريم : بالمرفق ملفين الملف الأول : book book2.xlsb هو نفس ملفك بلا أكواد وقد أضفت عليه تعديل بسيط وحفظته بامتداد xlsb الذي يتميز بسرعته وقلة حجمه تم تخفيض حجم الملف من إلي 13190 إلي 810 كيلوبايت الملف الثاني: book book3.xlsb هو الملف بالكود وقد حفظته أيضا بامتداد xlsb وفي هذا الملف الثاني سيتم تفعيل الكود أوتوماتيكيا فقط إذا اضفت أو غيرت أي بيانات في أعمدة الأدوية ولن يحدث أي شيء إذا غيرت أو أضفت من الأعمدة الأخري وبتفعيل الكود سيضع المعادلة أوتوماتيكيا في الخلية المجاورة لها تم تخفيض حجم الملف من إلي 13190 إلي 314 كيلوبايت تفضل أخي المرفق بالملفين واستعمل مايناسبك book2-3.rar
  5. جزاك الله خيرا أخي رجوعي للأسف سيظل قليلا ومتباعدا لإنشغالي الشديد وأرجو من الله أن أجد بعض الدقائق لمشاركتكم أحبائي فهذا والله يسعدني أكثر مما يسعدكم
  6. السلام عليكم أخي الكريم تقول لو اننا وضعنا المعادله بالصف السابع مثلا والشيت سيكون به عدد صفوف مقدارها 300 صف كيف يتم نسخ المعادله الموجوده بالصف السابع الى بقيه الصفوف ؟ فقط تظلل الأسطر بداية من السابع إلي 300 أو ماتريد ثم Ctrl-D أو Data > Fill down
  7. السلام عليكم أخي الكريم تفضل المرفق .. أضفت شيت أسميته "الشهر الماضى" وفي الجديد تضيف رقم الموظف وتسحب المعادلة ,.. فتأتي بياناته مرتبات2.rar مرتبات2.rar
  8. السلام عليكم أخي الكريم أنا أفضل أن تترك المعادلة بخلية واحدة أو عدة خلايا للتذكرة وبعد أن تأخذ منها نسخة لباقي الخلايا ، مما يجعل الملف ثقيلا ... إجعل هذه الخلايا الباقية أرقام فقط Copy .. Paste .Value جرب ذلك أولا وإن كنت لاتزال تحتاج الكود فلترسل الملف كاملا
  9. السلام عليكم أخي الكريم جرب هذا الكود 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
  10. السلام عليكم أخي الكريم جرب هذا الكود 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
  11. السلام عليكم حل سريع بالجداول المحورية تفضل New Microsoft2.rar
  12. السلام عليكم أخي الكريم تقول : "أنا أقوم بهذه الخطوات من خلال عملية طويلة تستغرق وقتا وجهدا من خلال عدة خطوات مملة ما بين برامج الويندوز والأوفيس وبعض المواقع المحدِّدة لكمية البيانات في كل ..." فالأفضل أن ترفق الشكل النهائي لما تحصل عليه مثلا البيانات في الملف التيكست تكون في عمود واحد فلترفق ملف اكسل بعد معالجتك اليدوية ليسهل علي من اراد المساعدة تصور 1- كم عدد الأعمدة تقريبا الناتجة 2- ماهي الأرقام التي تهملها 3- ماشكل البيانات بعد حذف المسافات انت تحملت وقتا طويلا فالأفضل ان تغير أسلوب العرض للمشكلة
  13. السلام عليكم ضع هذا الكود في حدث الصفحة المقصودة Private Sub Worksheet_Activate() Application.CellDragAndDrop = False End Sub Private Sub Worksheet_Deactivate() Application.CellDragAndDrop = True End Sub تفضل المرفق به حذف هذه الخاصية للشيت الثاني فقط حذف خاصية AUTOFILL للورقة الثانية فقط.rar
  14. السلام عليكم أخي الكريم يحدث هذا الخطأ عندما تكون قد استخدمت (أو حجزت للإستخدام) كافة أعمدة الورقة ويحدث خطأ حجز كافة أعمدة الورقة (أو الصفوف) للإستخدام عندما تذهب لآخر عمود (أو صف) وتملأ أي خلية به بأي بيان (ولو مسافة) معني تلك الرسالة أنك إن أزحت الأعمدة فسوف يتم إزاحة آخر عمود (الذي به بيانات كما يفهم الاكسل) لذلك علاجها أن تمسح نهائيا بعض الأعمدة الغير مستخدمة (أو كلها وهو الأفضل) تفضل الملف بعد المعالجة New Microsoft Excel Worksheet2.rar