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

السلام عليكم ورحمة الله وبركاته طلب بسيط جدا ارجو الرد اريد شرح لهذا الكود 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 انا فهمت بعض خطواتة الخطوات اااساسية اللي هي في السطور الطويلة مش فاهمها

الله ينور عليك

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

اخي العزيز ابو احمد احنا كلنا ممتنين لسرعة استجابتك انت وكافة الخبراء في هذا الموقع الرائع بس المشكلة مثلا في موضوعنا هذا مثلا انكم بتحطوا الاجابة ماشي نجي نبص احنا كمبتدئين علي الكود مش عارفين نفهمه واحنا طبعا عايزين نفهم مش مجرد نلزق ورق حيط وخلاص ارجو منك شرح كود الترحيل هذا وجزاك الله خيرا 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

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

حمل هذا الملف http://www.ziddu.com/download/13461234/excel00.rar.html نظام كامل

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

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

a;vh ............

بسم الله الرحمن الرحيم ارجو من المبدعين اعضاء المنتدي امدادي بافكار لتطوير هذا العمل ولكم جزيل الشكر حمل من هنا

سبقني أ/دغيدي abdelaziz.rar

بارك الله فيكم

الفكرة اللي انا عايزها اني لما الغي نسبة عامل من الاربع عمال تلقائي باقي العمال تاخد نسبتهم زائد نسبة العامل اللي اتحرم من نسبته

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

اخي العزيز الشيت بتاعك ومعادلاتك صحيحه لكن المشكلة مش فيهم المشكلة في قائمة formulas فيها calculation options انت لازم تختار automatic مش manual بص كده علي الوضع الحالي في الشيت بتاعك

ألف مبروك

بارك الله فيك أخي محمد

اخي انا عملت حاجه بص كده ممكن يكون صح Book10.rar

انا طبقت قاعدة if انه في حالة الاعفاء تجمع المواد اللي ما عليها اعفاء بس لو ده قصدك بص كده عليه Book11.rar

جزاك الله خيرا وبارك فيك

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

علي العموم انا حاطط المعادلة انت حضرتك حاول افهمها وطبقها علي 2003 وان شاء الله تشتغل بالتوفيق

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

=SUMIFS('البيانات الاساسية'!$AG$4:$AG$275;'البيانات الاساسية'!$A$4:$A$275;$AF$1;'البيانات الاساسية'!$E$4:$E$275;$A9;'البيانات الاساسية'!$AH$4:$AH$275;B$8) دي المعادلة الاساسية اللي انا بنيت عليها الشغل افهمها وقوللي رايك