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

عبد العزيز كمال

02 الأعضاء
  • Posts

    57
  • تاريخ الانضمام

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

مشاركات المكتوبه بواسطه عبد العزيز كمال

  1. السلام عليكم ورحمة الله وبركاته

    طلب بسيط جدا ارجو الرد

    اريد شرح لهذا الكود

    Sub OFFICNA1()

    LR = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row

    x = Range("F2").Value

    Range("A2:D" & LR).Select

    Selection.Copy

    Range("A2").Select

    Sheets(x).Select

    LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row

    Range("A" & LR1 + 1).Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Range("C1").Select

    MsgBox ("done")

    End Sub

    انا فهمت بعض خطواتة الخطوات اااساسية اللي هي في السطور الطويلة مش فاهمها

  2. السلام عليكم ورحمة الله وبركاته

    الملف عبارة عن قائمة كبيرة بالعملاء مبوبة علي اساس ابجدي وكل عميل امامة رقم سجلة واريد صفحة بحث بمجرد وضع الاسم ثنائي او ثلاثي او رباعي يظهرلي العميل ورقم سجلة //////////////الملف مرفق

    لستة عملاء.rar

  3. اخي العزيز ابو احمد احنا كلنا ممتنين لسرعة استجابتك انت وكافة الخبراء في هذا الموقع الرائع بس المشكلة مثلا في موضوعنا هذا مثلا انكم بتحطوا الاجابة ماشي نجي نبص احنا كمبتدئين علي الكود مش عارفين نفهمه واحنا طبعا عايزين نفهم مش مجرد نلزق ورق حيط وخلاص ارجو منك شرح كود الترحيل هذا وجزاك الله خيرا

    Sub OFFICNA1()

    LR = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row

    x = Range("F2").Value

    Range("A2:D" & LR).Select

    Selection.Copy

    Range("A2").Select

    Sheets(x).Select

    LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row

    Range("A" & LR1 + 1).Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Range("C1").Select

    MsgBox ("done")

    End Sub

    • Like 1
  4. والله انا شاكر ليكم جدا علي الكود اناححاول افهمها وابدا اتعلم الفي بي لانه يبدو جدا انه عصب الاكسل للي عايز بقي محترف

    وجزاكم الله خيرا جميعا

    ومبروك يا اخي علي اول كود ليك وعقبالي

    ومتشكر علي سرعة الاستجابة المعهودة منكم دايما

  5. السلام عليكم ورحمة الله وبركاته

    لو سمحتم عايز من حضراتكم كود او طريقة او دالة تخليني لما اضغط علي الزر المسمي بترحيل ينقل التاريخ اعلي الشيت الحالي والقيم اللي اسفل الزر اللي هي بتاعة البضاعه والاجهزة و ... الي الاجمالي والقيم دي تنتقل لصف جديد في الشيت بتاع تجميع شهري ولما امسح البيانات دي واضيف غيرها واضغط ترحيل تنتقل البيانات الجديدة الي صف جديد في شيت التجميع الشهري . لمزيد من الفهم لسؤالي من فضلكم حملوا الملف .

    حمل الملف في المرفقات

    account.rar

  6. [اريد من هذا الملف انه عندما يتغيب احد العمال فى اى يوم توزع النسبة تبعه الى باقى العمال اى اريد دالة تحسب اذا كان فى خانة احد العمال القيمة صفر توزع النسبة المفروضة له على باقى العمال

    ]ولكم جزيل الشكر

    حسابات المشروع.rar

  7. أخي العزيز انا عملتلك الشهاده اللي انت طلبتها انت مجرد تضع رقم جلوس الطالب في الشهاده ومن ثم تظهر لك كل بياناته

    ويمكنك بعد ذللك بسهولة عمل صفحة اخري وبها عدد من الشهادات وطباعتها انا عملتلك نموذج من الشهاده انت قوللي رايك

    MH5Be.png

    الشهاده.rar

  8. =SUMIFS('البيانات الاساسية'!$AG$4:$AG$275;'البيانات الاساسية'!$A$4:$A$275;$AF$1;'البيانات الاساسية'!$E$4:$E$275;$A9;'البيانات الاساسية'!$AH$4:$AH$275;B$8)

    دي المعادلة الاساسية اللي انا بنيت عليها الشغل افهمها وقوللي رايك

×
×
  • اضف...

Important Information