ياسر خليل أبو البراء

أخي الفاضل صلاح منور المنتدى والله بص ..الموضوع محتاج تركيز ودراسة ووممارسة عشان تقدر تدمج الدوال مع بعضها كل دالة بيكون ليها هدف اوعى تفتكر إني مثلا لما أحب أكتب معادلة بمسك لوحة المفاتيح ودرب درب أبداً دا أنا بكون غرقان في شبر مية .. بابدأ التعامل مع جزئية جزئية حتى أصل للنتيجة المرجوة بشوف أنا محتاج أعرف ايه وأستخرجه من خلال معادلة بسيطة .. وأعمل أكتر من معادلة بسيطة تكون معادلة مركبة أو معقدة شوف الرابط التالي فيه شرح مبسط لمعادلة من هنا

سؤال أخير .. البيانات في عمود المخالفات في ورقة "التقرير الفصلي" هي نفس البيانات في عمود المخالفات في ورقة "التقرير الشهري "أم أن كلاهما يكتب بشكل منفصل؟ ونفس السؤال على الأربعة الأعمدة الخاصة بالسور ؟؟ هل تكتب منفصلة في كل منهما ؟؟ اعذرني لكثرة الأسئلة .. هذا بسبب كثرة الأوراق والانتقال بينها وطالما أن الكود الذي سأقوم بعمله مرتبط بهذه الأعمدة لما تجاهلتها ... كان يجب أن تكتب بها بعض البيانات رجاااااء أخي ابو عبد الملك عند كل طلب جديد تكتب بعض البيانات وليكن في 10 أسطر حتى نختبر الكود أول بأول .. لأنه لو به خطأ فيما بعد سيكون من الصعب تداركه فيرجى مراجعة الكود ونتائجه بشكل دقيق أكثر من مرة حتى نتلافى أي عيوب أو نقائص قد تظهر .. سؤال آخر : عند بدء الكود هل يتم مسح البيانات الموجودة بورقة العمل "التقرير الفصلي"؟ أم أنه لو فيه بيانات قديمة تظل كما هي وترحل البيانات الجديدة أسفلها كل دي أسئلة لم تجيب عليها

نقطة تانية .. طيب لما لا تتم عملية الاستدعاء مباشرة من ورقة "التقرير الشهري" فيها الـ 5 أعمدة جاهزين ننسخهم مرة واحدة بدلاً من إعادة صياغة الكود بدون داعي هذه وجهة نظري أنا قمت بالفعل بالبدء في عمل الكود ولكن النقطة الأولى محيراني يا أخي. وقلت لك حاول تتابع معي وتخليك معايا عشان أنا مش هكون موجود بكرة إن شاء الله فحاول تساعدني عشان ننهي الجزء ده قبل ما نمشي تقبل تحياتي

إذا كان التعديل لنفس الموضوع كما تقول فحاول تشوف المعادلة اتعملت إزاي وايه التغيير اللي تم وطبقه على المعادلة اللي إنت عايزها .. ولما تحب توضح نقطة معينة يرجى تحديد ورقة العمل المطلوب العمل عليها وأوراق العمل المرتبطة بها ومسميات كل ورقة عمل والنطاق أو الخلايا أو الخلية المراد عمل المعادلة بها .. يعني من الآخر شرح تفصيلي يزول معه أي لبس أنا بقول كدا لأني أول ما فتحت ملفك لقيت أوراق عمل كتيرة جدا وملهاش علاقة بالطلب (دا بيشتت الأعضاء) كان ممكن ببساطة تحذف كل أوراق العمل الغير ضرورية وتبقي فقط أوراق العمل المطلوب الشغل فيها .. وطبعا دا هيكون نموذج مصغر لملفك وإنت تاخد المعادلة بعد الوصول للحل وتنسخها في ملفك الأصلي وتجربها وتشوفها ظبطت معاك أو لا تقبل تحياتي

صراحة أنا تهت منك اعذرني إنت ليه بتكرر البيانات ..عايز أفهم النقطة دي... ودلوقتي إنت بتقول استدعاء ..هل الاستدعاء هيكون على أساس رقم القيد ...؟؟؟!! أنا بنسى خلي بالك يا ريت تمسك نقطة نقطة عشان أنا فعلاً تهت في الملف الكلام الكتير في أكثر من نقطة توهني وخلاني مش عارف أبدأ .. ودي مشكلتي .. وعشان أعرف أتعامل وأكيد إنت فهمت كدا بتناول جزء جزء عشان اقدر أوصل للكل أنا مش آالة أنا بني آدم وإمكانياتي محدودة والله

الملف فتح عندي على جهاز آخر عليه نسخة أوفيس 2013 بالنسبة للجزء الاول لم أفهمه جيداً .. تقصد ترحيل البيانات إلى هذه الأعمدة من أي ورقة؟ هل الترحيل من ورقة العمل "التقرير الشهري" أم الترحيل يكون من ورقة "مجمع النتائج الشهرية"؟ ولو الترحيل من ورقة التقرير الشهري ؟؟ هل يتم مسح البيانات الموجودة في ورقة "التقرير الفصلي" قبل الترحيل أم يتم الترحيل إلى أول صف فارغ ليس به بيانات التوضيح بارك الله فيك وحاول تخليك معايا الليلة عشان مسافر بكرة إن شاء المولى .. فتابع عشان لو حبيت أستسفسر عن نقطة معينة تكون موجود .

بالنسبة لهذا الطلب قم بالإطلاع على المرفق فيه شرح بالتفصيل لكيفية عمل نطاق ديناميكي والشرح موجود على هذا الرابط أيضاً من هنا Dynamic Range.rar

أخي الكريم شوف الطلب في هذا الموضوع أولاً ، بعدها يمكنك طرح موضوع جديد بطلب جديد ..هكذا نظام المنتدى .. وإن شاء الله الأخوة الأعضاء لن يتأخروا في الاستجابة لطلبك أرجو الإطلاع على رابط التوجيهات لمعرفة كيفية التعامل مع المنتدى

أخي الكريم أبو عبد الملك سأسافر غداً بإذن الله تعالي .. حملت الملف ولكن !!!!!!!! نفس المشكلة ..لا أدرى لما لا يفتح الملف عندي ...

الأخ الفاضل أبو سما إليك الملف التالي عله يكون المطلوب إن شاء المولى بيانات احصائية.rar

الأخ الكريم أبو عبد الملك المرفق لا يعمل بشكل سليم يرجى إعادة رفعه مرة أخرى ...

أخي الكريم أبو فاطمة .. في الموضوع الخاص بك قم بشرح ما تريد وبالتفصيل وإن شاء الله تجد المساعدة من إخوانك ... الرجاء التوضيح حتى تجد المساعدة تقبل تحياتي

دلالة الأرقام هي الصفوف والأعمدة ADDRESS(1,1) اللي ورا القوس مباشرة رقم 1 يشير للصف الأول أما رقم 1 اللي بعديه رقم العمود الأول أي الصف الأول والعمود الأول أي الخلية A1 ADDRESS(2,1) الصف الثاني والعمود الأول أي الخلية A2

الأخت الفاضلة رشا يوسف لما لا تستخدمي دالة Index فهي أكثر مرونة من غيرها إليك المعادلة التالية ضعي المعادلة في الخلية F4 =IFERROR(INDEX($C$12:$C$16,MATCH(B4,$B$12:$B$16,0)),"") شرح المعادلة ************* الجزء الأول الدالة IFERROR وتستخدم الدالة في حالة حدوث خطأ في النواتج ولها عدد 2 بارامتر : الأول هو القيمة value والثاني value_if_error أي القيمة التي توضع في حالة حدوث خطأ .. البارامتر الأول هنا هو الجزء الأول (الخاص بالبحث) INDEX($C$12:$C$16,MATCH(B4,$B$12:$B$16,0)) والبارامتر الثاني هو الجزء "" أي أنه عند البحث وعدم وجود نتائج للبحث فإنه يحدث خطأ #N/A ولتجنب الخطأ توضع القيمة فراغ ، عن طريق أقواس التنصيص مرتين متتاليتين الجزء الثاني هو الجزء الخاص بالبحث INDEX($C$12:$C$16,MATCH(B4,$B$12:$B$16,0)) والدالة Index من الدوال البحثية لها 3 بارامترات .. ------------------------------------------------ ** البارامتر الأول النطاق اللي المفروض عايزين النتائج منه ، أو مصفوفة القيم المراد البحث داخلها ولو وقفنا داخل المعادلة وحددنا الجزء ده $C$12:$C$16 وضغطنا من لوحة المفاتيح F9 هنلاقي النتائج بهذا الشكل {12;15;18;21;24} ودي مصفوفة القيم المراد البحث داخلها ** البارامتر الثاني هو رقم الصف داخل مصفوفة القيم ، مش رقم الصف في ورقة العمل .. طيب إزاي هنعرف رقم الناتج أو الصف المراد البحث عنه داخل المصفوفة هنا بنستخدم الدالة Match ودي دالة بحث بردو بتجيب رقم الصف MATCH(B4,$B$12:$B$16,0) دا البارامتر الثاني وهنا بتتم عملية البحث عن قيمة البحث الموجودة في الخلية B4 وبيتم البحث عن قيمة الخلية B4 في النطاق $B$12:$B$16 ودا بردو مصفوفة النطاق ..يعني لو حددنا السطر ده وضغطنا F9 من لوحة المفاتيح هتلاقي الناتج بهذا الشكل {"معلم";"خبير";"مساعد";"مدرس";"اخصائى"} فاللي بيحصل إنه بيبحث عن القيمة الموجودة في الخلية B4 داخل المصفوفة دي .. القيمة الموجودة كلمة "معلم" ودي أول كلمة في المصفوفة يعني رقم 1 إذاً رقم الصف هو واحد (وأؤكد ليس المقصود رقم الصف في ورقة العمل .. المقصود رقم نتيجة البحث داخل المصفوفة ) طيب رقم 0 دا ايه فايدته ... فايدته إننا بنقول لعملية البحث إنها تكون متطابقة تماماً .. تطابق عملية البحث للقيمة المراد البحث عنها >> إحنا دلوقتي عندنا نطاقين أو مصفوفتين للقيم (الأولى المراد استخراج النتيجة منها) و (الثانية المراد البحث بداخلها) الإكسيل بيقوم الأول بالبحث قبل ما يظهر النتيجة (دي الخطوات المنطقية للعمل) .. بيقوم بالبحث عن القيمة الموجودة في الخلية B4 داخل المصفوفة الخاصة بيها .. طلع الناتج 1 لأنها أول نتائج البحث خلاص وصل الإكسيل لرقم ناتج البحث داخل المصفوفة ..ياخد الرقم دي ويشوف النتيجة رقم1 الموجودة في المصفوفة الأول ..هيلاقي إن رقم 1 في المصفوفة الأولى هو رقم 12 ** البارامتر الثالث اختياري ودا هنا ملوش استخدام لأن المصفوفة مكونة من بعد واحد فممكن نكتب رقم 1 أو نتركه من غيره ما نكتبه لأن رقم 1 هو الافتراضي =INDEX($C$12:$C$16,MATCH(B4,$B$12:$B$16,0),1) >>>>> عشان نفهم أبعاد المصفوفة ذات البعدين ------------------------------------------------- ضع المعادلة التالية في أي خلية =INDEX($B$12:$C$16,MATCH(B4,$B$12:$B$16,0)) المصفوفة الأولى هي $B$12:$C$16 نخلي بالنا هنا المصفوفة بتاخد القيم من عمودين ..يبقا المصفوفة ثنائية الأبعاد نحدد الجزء اللي فات ونضغط F9 من لوحة المفاتيح هنلاقي النتائج بهذا الشكل {"معلم",12;"خبير",15;"مساعد",18;"مدرس",21;"اخصائى",24} لو ركزنا هنعرف شكل المصفوفة .. بتاخد قيم الصف من العمودين مع بعض يعني مثلاً : معلم و 12 في صف واحد وداخل المصفوفة مع بعض بيفصل بينهم فاصلة عادية بعد كدا الصف اللي بعديه هتلاقي خبير 15 وبردو بيفصل بينهم فاصلة عادية ... أما الفاصل بين قيم المصفوفة أقصد البعد الثاني بيتم الفصل بفاصلة منقوطة بمعنى آخر : ********** معلم 12 أول صف في المصفوفة خبير 15 ثاني صف في المصفوفة مساعد 18 تالت صف في المصفوفة وهكذا .. (بيفصل بين الصفوف فاصلة منقوطة) داخل الصف الواحد عمودين لأن المصفوفة من بعدين : عمود 1وعمود 2 (بيفصل بين الأعمدة داخل المصفوفة فاصلة عادية) ناخد مثال بسيط عشان نفهم العملية إزاي بتتم : لو عايزين رقم الصف 4 والعمود 1 هنشوف المصفوفة .. رقم البصف 4 هنلاقي مدرس 14 ، ورقم العمود المطلوب هو العمود 1 إذاً الناتج كلمة مدرس يا ريت تكون النقطة دي وضحت ************************************************************************** نجرب المعادلة دي ونشوف اللي فهمناه =INDEX($B$12:$C$16,MATCH(B4,$B$12:$B$16,0),1) ع السريع هيتم البحث داخل المصفوفة ذات البعدين (طالما إنها ذات بعدين إذاً سيتم الاستعانة بالبارامتر الثاني والثالث للدالة Index) عشان نعرف رقم الصف المطلوب ورقم العمود المطلوب هنا رقم الصف هنجيبه من خلال الدالة Match هنلاقي رقم الصف هو 1 وأخيراً البارامتر التالت ودا كتبناه 1 يعني العمود الأول إذاً الناتج النهائي هو كلمة "معلم" لو غيرنا رقم العمود من 1 إلى 2 هيتغير الناتج إلى 12 لو غيرنا رقم العمود إلى 3 هيديني خطأ لأن المصفوفة ذات بعدين مش 3 .. الخطأ #REF! أرجو أن أكون وفقت في توصيل المعلومة

أخي الفاضل صالح ما بالكم إخواني إذا طلبت منكم طلب بسيط تهربتم مني ! والله إني لأعجب .. أخبرتك أخي أن تضع بعض البيانات في الملف المرفق لتجربة الكود وسألتك عن الخلايا التي سيتم الترحيل إليها فلم تبالي بسؤالي .. التوضيح يوفر الوقت والجهد ويجعل الموضوع لا يطول حتى يتمكن الأعضاء من مساعدة الجميع أرجو تفهم الأمر بارك الله فيكم أخي إليك الكود التالي على قدر ما فهمت .... Sub TransferDataToClosedWB() Dim WB As Workbook Dim LR_A As Long, LR_B As Long Dim Answer As Long LR_A = IIf(Cells(Rows.Count, 1).End(xlUp).Row = 1, 1, Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False If Application.WorksheetFunction.CountA(Range("A1:A" & LR_A)) < 1 Then MsgBox "لا يوجد بيانات لترحيلها", vbInformation: Exit Sub ThisWorkbook.Sheets("Sheet1").Range("A3:Q" & LR_A).Copy Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & "اكسل2.xlsx") With WB.Sheets("Sheet1") LR_B = IIf(Cells(Rows.Count, 1).End(xlUp).Row = 1, 1, Cells(Rows.Count, 1).End(xlUp).Row + 1) .Range("A" & LR_B).PasteSpecial xlPasteValues .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).Select End With Answer = MsgBox("تم الترحيل بفضل الله" & Chr(10) & "هل تريد مسح البيانات التي تم ترحيلها؟", vbQuestion + vbYesNo) If Answer = vbYes Then ThisWorkbook.Sheets("Sheet1").Range("A3:Q" & LR_A).ClearContents Else: End If WB.Close SaveChanges:=True Application.CutCopyMode = False Application.ScreenUpdating = True End Sub أرجو أن يكون الحل صحيحاً وألا يكون فيه تعقيب لأنه لو به تعقيب فهذا بسبب قصور التوضيح ولك جزيل الشكر على اهتمامك بأمر التوضيح الذي طلبته منك Transfer Data To Closed Workbook YasserKhalil.rar

أخي الحبيب ومعلمي الكبير محمد صالح التمس له العذر فهو جديد عهد بالمنتدى كما أنه يبدو أنه قضى حاجته وولى بعيداً ...

أخي الحبيب حتى مع وجود النتائج المرفقة لم أفهم المطلوب الكود يعمل بشكل جيد في ترحيل البيانات .. وضح ربنا يبارك فيك ..

أخي الكريم سبق أن نبهت عليك أكثر من مرة أن الموضوع عندما يكون غير واضح لا تجد استجابة وتصر على عدم التوضيح ثم تظل ترفع الموضوع أكثر من مرة ولا تجد الإجابة فتطرح موضوع جديد رغم أن الموضوع الجديد هو نفسه القديم فلا تجد استجابة يرجى التركيز في موضوع واحد وعدم تعدد الموضوعات .. وتوضح بأسلوب بسيط يفهمه الجميع كأن تقول في ورقة العمل المسماة "المشتريات" في العمود D في الخلية كذا تكلم بلغة الإكسيل : مصنف كذا - ورقة عمل كذا - العمود كذا - الصف كذا - الخلية كذا - النطاق كذا وتسمي كل اسم باسمه حتى نفهم المطلوب وإذا صعب عليك الشرح والتوضيح ارفق شكل النتائج المتوقعة

أخي الصالح صالح أحمد يرجى إرفاق الملف مرة أخرى وبه بعض البيانات لمعرفة النطاق المراد ترحيله وإلى أين تريد الترحيل .. ارفق بعض النتائج المتوقعة .. حتى تجد المساعدة من الأخوة

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

جرب الكود بهذا الشكل Sub ee() [a5] = [b1] [b5:c5].Formula = "=IFERROR(INDEX(p!$B$3:$C$100,MATCH($A5,p!$A$3:$A$100,0),MATCH(B$4,p!$B$2:$C$2,0)),"""")" [b5:c5].Value = [b5:c5].Value End Sub

جزيت خيراً أخي غسان وإن شاء الله يستفيد منه الكثير من الأعضاء .. وفي انتظار النسخ القادمة وإلى الأفضل دائماً

أخي الحبيب أبو يوسف الطريقة جميلة ولكنها غير عملية لسببين في وجهة نظري : السبب الأول أنها لا تظهر في الطباعة وكثير ممن يريد وضع الدوائر الحمراء يريدون طباعتها السبب الثاني أن الدوائر لا تظهر بشكل منضبط كما تفعل الأكواد ، حيث أنه بالأكواد يمكنك التحكم في الدوائر بشكل ما تقبل تحياتي

أخي الحبيب وأبي الروحي أبو يوسف بارك الله فيك وجزاك الله خير الجزاء على كلماتك المسطرة من ذهب ، لديك قدرة عجيبة على صياغة الألفاظ ، أرى في كلامك فصاحة وطلاقة وبلاغة منقطعة النظير .. بارك الله فيك أخي الفاضل أبو عبد الملك اعتقدت أن العمود الأول هو أرقام مسلسلة فقمت بإضافة هذا الجزء لأن الرقم هنا يفترض أن يكون أرقام مسلسلة (عموماً قمت بحذف هذا الجزء) وتمت إضافة رسالة لتأكيد الحذف من عدمه .. كما تمت إضافة جزئية هامة وهي لو أنه لا توجد بيانات لا تتم عملية الترحيل .. يرجى تحديد أفضل إجابة وإخبارنا بنسبة الإنجاز الذي تم للآن .. واطرح موضوع جديد بطلباتك الجديدة وإن شاء الله تجد المساعدة من الأخوة الكرام تقبلوا تحياتي Quran School V8.rar

الحمد لله أن تم المطلوب على خير عمو فؤاد أخي وحبيبي علاء رسلان النجم المرتقب في سماء المنتدى وصاحب الهمة العالية بارك الله فيك وجزاك الله خير الجزاء تقبلوا تحياتي