بحث مخصص فى أوفيسنا

طارق محمود

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

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

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

  • Days Won

    38

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

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

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

575 Excellent

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

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

Profile Information

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

Contact Methods

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

اخر الزوار

4,982 زياره للملف الشخصي
  1. السلام عليكم أخي الكريم جرب هذا الكود 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
  2. السلام عليكم أخي الكريم جرب هذا الكود 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
  3. السلام عليكم حل سريع بالجداول المحورية تفضل New Microsoft2.rar
  4. السلام عليكم أخي الكريم تقول : "أنا أقوم بهذه الخطوات من خلال عملية طويلة تستغرق وقتا وجهدا من خلال عدة خطوات مملة ما بين برامج الويندوز والأوفيس وبعض المواقع المحدِّدة لكمية البيانات في كل ..." فالأفضل أن ترفق الشكل النهائي لما تحصل عليه مثلا البيانات في الملف التيكست تكون في عمود واحد فلترفق ملف اكسل بعد معالجتك اليدوية ليسهل علي من اراد المساعدة تصور 1- كم عدد الأعمدة تقريبا الناتجة 2- ماهي الأرقام التي تهملها 3- ماشكل البيانات بعد حذف المسافات انت تحملت وقتا طويلا فالأفضل ان تغير أسلوب العرض للمشكلة
  5. السلام عليكم ضع هذا الكود في حدث الصفحة المقصودة Private Sub Worksheet_Activate() Application.CellDragAndDrop = False End Sub Private Sub Worksheet_Deactivate() Application.CellDragAndDrop = True End Sub تفضل المرفق به حذف هذه الخاصية للشيت الثاني فقط حذف خاصية AUTOFILL للورقة الثانية فقط.rar
  6. السلام عليكم أخي الكريم يحدث هذا الخطأ عندما تكون قد استخدمت (أو حجزت للإستخدام) كافة أعمدة الورقة ويحدث خطأ حجز كافة أعمدة الورقة (أو الصفوف) للإستخدام عندما تذهب لآخر عمود (أو صف) وتملأ أي خلية به بأي بيان (ولو مسافة) معني تلك الرسالة أنك إن أزحت الأعمدة فسوف يتم إزاحة آخر عمود (الذي به بيانات كما يفهم الاكسل) لذلك علاجها أن تمسح نهائيا بعض الأعمدة الغير مستخدمة (أو كلها وهو الأفضل) تفضل الملف بعد المعالجة New Microsoft Excel Worksheet2.rar
  7. السلام عليكم أخي الكريم أرجو الالتزام بقواعد المشاركة من حيث العنوان والاستعجال وعدد مرات الطلب الواحد تفضل الملف به ماطلبت تلاميذ 2017.rar
  8. جميل أبو القبطان حل بسيط وسهل فقط للإثراء يمكن استبدال معادلات IF الطويلة بمعادلة Vlookup مثلا المعادلة في الخلية B3 يمكن كتابتها هكذا =VLOOKUP(C3,$H$2:$I$9,2,0)
  9. أخي الحبيب / محمد حسن المحمد جزاك الله خيرا الشكر والفضل لله سبحانه وتعالي
  10. أخي الحبيب / ياسر بارك الله فيك وجعلني عند حسن ظنكم أعذرني ، بل اعذروني جميعا للإنقطاع أنا متابع خفيف فقط هذه الأيام لانشغالي شبه الدائم لو تيسر وقت أدخل طبعا وأشارك
  11. السلام عليكم تفضل أخي الملف وبه ورقة للشرح نقل التركيز.rar عذرا أخي سليم ، لم أقرأ ردك
  12. أخي الكريم تماما ، كما فهمت أنا أيضا من السائل الكود الموجود أصبلا بالملف يرحل الفاتورة للورقة الأولي (المبيعات) ويحذف بيانات الفاتورة في صفحة فاتورة المبيعات فإذا لم تكن هناك فواتير مُرحلة من قبل فستكون هي الأولي وإلا يأخذ رقم آخر ماتم ترحيله ويضيف له 1
  13. السلام عليكم أضفت سطرين للكود الأصلي ليقوم بتكرار ترحيل رقم الفاتورة والتاريخ وكود العميل واسم العميل بعدد الأصناف المرحلة تفضل المرفق احمد شعبان2.rar
  14. السلام عليكم الكود التالي في حدث ورقة فاتورة المبيعاتيقوم بعملية الترقيم التلقائي للفاتورة 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)
  15. السلام عليكم وهذا حل آخر سريع وعملي بالجداول المحورية أنظر الفيديو المرفق ومرفق أيضا الملف Piv_Table.rar sumifs__PivTables.rar