بحث مخصص من جوجل فى أوفيسنا
Custom Search

طارق محمود

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

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

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

  • Days Won

    38

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

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

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

587 Excellent

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

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

Profile Information

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

Contact Methods

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

اخر الزوار

5,208 زياره للملف الشخصي
  1. السلام عليكم جرب هذا الكود وأنت في الصفحة الثانية 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
  2. السلام عليكم تفضل الملف المرفق به ماطلبت بالمعادلات تقريب لنصف الرقم العشري.rar
  3. السلام عليكم اخي الكريم رددت عليك بالإميل فارتد إلي الإميل .. لاأدري لماذا .. قد يكون السعة منتهية Delivery to the following recipients failed. groupalburag@gmail.com عموما عذرا للتأخير فقد كنت ومازلت مشغوول ولأن الموضوع شوية معقد مع بساطته لكن الحمد لله أعتقد أنني أنهيته مرفق ملف مضغوط به مجلد يحتوي بضعة ملفات فك الضغط ثم افتح الإكسل فقط وبه الشرح والنتيجة Al-Burag.rar
  4. لمعرفة نطاق أي مدي مُعرًف بالملف إضغط Ctrl-F3
  5. بسيطة خالص Save AS أو F12
  6. السلام عليكم تم تحويل المعادلة المطلوبةإلي كود وهى =COUNTIF(INDEX($C$3:$EV$5000;0;0);$FA3) أعتقد أن الملف الآن مناسب book book4.rar
  7. السلام عليكم أخي الكريم : بالمرفق ملفين الملف الأول : book book2.xlsb هو نفس ملفك بلا أكواد وقد أضفت عليه تعديل بسيط وحفظته بامتداد xlsb الذي يتميز بسرعته وقلة حجمه تم تخفيض حجم الملف من إلي 13190 إلي 810 كيلوبايت الملف الثاني: book book3.xlsb هو الملف بالكود وقد حفظته أيضا بامتداد xlsb وفي هذا الملف الثاني سيتم تفعيل الكود أوتوماتيكيا فقط إذا اضفت أو غيرت أي بيانات في أعمدة الأدوية ولن يحدث أي شيء إذا غيرت أو أضفت من الأعمدة الأخري وبتفعيل الكود سيضع المعادلة أوتوماتيكيا في الخلية المجاورة لها تم تخفيض حجم الملف من إلي 13190 إلي 314 كيلوبايت تفضل أخي المرفق بالملفين واستعمل مايناسبك book2-3.rar
  8. جزاك الله خيرا أخي رجوعي للأسف سيظل قليلا ومتباعدا لإنشغالي الشديد وأرجو من الله أن أجد بعض الدقائق لمشاركتكم أحبائي فهذا والله يسعدني أكثر مما يسعدكم
  9. السلام عليكم أخي الكريم تقول لو اننا وضعنا المعادله بالصف السابع مثلا والشيت سيكون به عدد صفوف مقدارها 300 صف كيف يتم نسخ المعادله الموجوده بالصف السابع الى بقيه الصفوف ؟ فقط تظلل الأسطر بداية من السابع إلي 300 أو ماتريد ثم Ctrl-D أو Data > Fill down
  10. السلام عليكم أخي الكريم تفضل المرفق .. أضفت شيت أسميته "الشهر الماضى" وفي الجديد تضيف رقم الموظف وتسحب المعادلة ,.. فتأتي بياناته مرتبات2.rar مرتبات2.rar
  11. السلام عليكم أخي الكريم أنا أفضل أن تترك المعادلة بخلية واحدة أو عدة خلايا للتذكرة وبعد أن تأخذ منها نسخة لباقي الخلايا ، مما يجعل الملف ثقيلا ... إجعل هذه الخلايا الباقية أرقام فقط Copy .. Paste .Value جرب ذلك أولا وإن كنت لاتزال تحتاج الكود فلترسل الملف كاملا
  12. السلام عليكم أخي الكريم جرب هذا الكود 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
  13. السلام عليكم أخي الكريم جرب هذا الكود 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
  14. السلام عليكم حل سريع بالجداول المحورية تفضل New Microsoft2.rar