gamalin2

استاذنا ملف المبيعات هيكون فيه مبيعات شهر يناير وفبراير ومارس ...... حتى اغسطس عايز مبيعات يناير تاخد تكلفة يناير ومبيعات فبراير ومارس حتى يوليو تأخذ تكلفة فبراير لانه لم يوجد تغيير حتى يوليو ولن بداية من اغسطس تأخذ تكلفة يوليو مش عارف هل ممكن عمل حاجة زي كده والا لازم اعملها يدوي زي كده officena many vlookup.rar

لدي ملف فيه 2 شيت الاول فيه تكلفة شهرية للمنتج والمبيعات واريد في خانة التكلفة في شيت المبيعات جلب التكلفة المناسبة ( عندما يكون شهر البيع اكبر من او يساوي شهر التكلفة ) يعني في المثال في الملف شهر البيع في اغسطس وفي تغير في التكلفة في 7 يجيب تكلفة شهر 7 officena many vlookup.rar

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

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

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

استاذ محمد تحية طيبة وبعد ممكن اذا تكرمت تقول لي ليه الضغط على ctrl+shift+enter وازاي مع وضع المعادلة بالخليه ممكن عفوا مزيد من الايضاح عند نسخ المعادلة ولصقها يعتبرها نص ولا يعطي نتيجة

الاخوة الافاضل لدي كمية من البيانات تمثل انتاجية و تكلفة عمالة القطع بناء على عدد ساعات التشغيل في العمود n وايضا يوجد في العمود s تصنيف لهذه المنتجات استخدمت الوسط الحسابي واعطاني نتائج مضلله لتأثرة بالقيم العشوائية فقد يحدث في ايام يكون هناك اعطال او توقفات وتكون تكلفة الانتاج عالية جدا اوي يوم انتاج كبير وتكلفة الانتاج منخفضة لذا اريد استخدام المنوال mode ولكني اعرف انه ان لم يجد في استخدام المنوال قيمة تكررت اكثر من الباقين يعطي خطأ واريد استخدام الوظيفة harmean لجلب اقرب نتيجة للتكرار او تستبعد القيم المتطرفة وتحسب المنتوسط ... هل يمكن ذلك في السيت المسمى بيانات اسماء المجموعات وهي المتكررة في العمود s في شيت rate value وفي العمود n يوجد تكلفة القطعة فهل يمكن ملئ العمودين في شيت البيانات بنتيجة mode و hearmen ارجوا ان يكون المطلوب واضحا mode fun1.xlsx

وهل يمكن استخدام دالة mode or harmean بشروط او بشرط في حالة البيانا ت الغير مرتبة او الغير مفهرسة

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

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

هو ده المطلوب تماما بس بينفذه حتى في سطرين فقط ويتوقف ممكن اتعبك وتجرب تنفيذ الكود عملي في الملف وممكن كمان تختصر الشروط مش هي المشكلة انا جربته على شرطين فقط ونفس النتيجة لو تكرمت تجرب في الملف وتشوف تأثير الكود والبيانات وده اخر تعديل للكود والخلايا مضبوطة وكله تمام والترحيل بيتم ممتاذ في او سطرين منن شيت po_rec Sub recp_fill() Application.ScreenUpdating = False For I = 5 To [a10000].End(xlUp).Row If Cells(I, 14) <> Cells(I, 13) And Cells(I, 13) = "recept1" Or Cells(I, 13) = "recept2" Or Cells(I, 13) = "recept3" Or Cells(I, 13) = "recept4" Or Cells(I, 13) = "recept5" Or Cells(I, 13) = "recept6" Then With Sheets("recept").[a10000].End(xlUp) .Offset(-17, 1) = Cells(I, 2) .Offset(-15, 1) = Cells(I, 5) .Offset(-14, 1) = Cells(I, 6) .Offset(-13, 1) = Cells(I, 😎 .Offset(0, 1) = Cells(I, 13) Sheets("po_rec").Cells(I, 14).Value = Cells(I, 13) ' MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" End With Exit For End If Next I Application.ScreenUpdating = True Range("b6").Select End Sub

اشكرك اخي الكريم تم المطلوب و الحمد لله بشأن الارقام والكتابة بس انا مش قادر افهم برضه يه الكود بيعمل جيدا في اول سطرين من ملف po_rec ويتوقف لكن يعطي رسالة الترحيل رغم انها بين حدي الشرط if , end if وعلى حسب فهمي ان مادام كتبها يبقى الشرط تحقق طيب ليه لم يكم باقي الاوامر اللي بين الحدين هتجنن صراحة ومن الصبح فاتح الكود وعمال اغير فيه وماتوصلتش لحاجة ومش عارف انقل لخطوة تانية عموما شكرك اخي الكريم تعبت معايا

اخي الكريم تم تربة الكود اعلاه السطر ده كتب في نفس الشيت شيت ال Po_rec وليس في الشيت المطلوب شيت recept و باقي البيانات صارت ترحل في اسطر متباعدة بعيدة عن الجدول او الاماكن المطلوبة في شيت recept جزاك الله خير لتعبك شاكر لفضلك انا اللي مش لاقي له سبب او حل هو لماذا الكود بعد ما بينفذ سطرين صح بيتوقف او بينفذ في اماكن غير اللي انا بستهدفها ومش شايفها مش عارف اشكرك مرة اخرى .cells(.row, 1) = Cells(a, 13)

اخي الكريم صحيح لم اجري التعديلات السابقة لاني كما قلت لك سابقا هناك اني تحايلت على جهلي باني طرحت من الرقم -21 وادى الغرض ولم تتح لي فرصة تجربة الكود اللي تفضلت به وهو كان لتحسين الكود لكن الغرض كان متحقق المبتغى باختصار بغض النظر عن الكود خالص اذا قبلت في شيت po_rec عدة سطور مطلوب نقل بياناتها الى شيت recept في عمود b ثم يطبع في الخانة المجاورة في عمود 14 في نفس شيت po_recept نفس محتوى خانة عمود 13 عندما يتحقق شرط ان تكون الخانة ي عمود 13 تساوي recept1 الى recept6 وايضا تكون لا تساوي الخانة المجورة في عمود 14 لماذا ؟ لان الطلب الواحد سيتم استلام عليه عدد من الرسائل واريد عند تغيير الحالة من recep 1 .... الى recept 6 اي ستة رسائل لنفس الطلب وستة مرات تغيير في خانة الحالة كل مرة اغير الحالة وانفذ الكود وكنت بمساعدتك توصلت للكود ده لكنه يعمل جيدا ي سطرين فقط ويتوقف ولا ادري ما السبب ارجوا ان يكون المطلوب وضح وعموما اشكرك كثيرا لمحاولتك المساعدة و على وقتك تحياتي لك

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

يا استاذنا جزاك الله خيرا لمحاولتك المساعدة المطلوب في شيت PO_REC عند تغيير خانة في عمود 13 وتصبح غير مساوية للخانةفي عمود 14 عند الضغط على زر التنفيذ يتم نقل بعض البيانات الى شيت RECEPT الكود اعلاه يعمل جيدا ولكنه يعمل لسطرين فقط

الاخوة الافاضل لدي ملف فيه سجل عن طلب سلعة ما تستورد واريد عند تغيير الحالة و الضغط على زر تنفيذ ينقل البيانات لشاشة recept كتبت كود و خليته يكتب ok علشان الكود ينزل للسطور الثانية لكن اكتشفت اني محتاج اغير تاني حالة نفس الطلب بمعنى عند تغيير الحالة من po الى recept1 يتم التنفيذ و عند تغييرها مرة اخرى الى recept2 يتم التنفيذ ايضا ونقل البيانات الى صفحة recept بفكر في اني اجعله عند التغيير من po الى recept1 والتنفيذ يكتب recept1 في العمود التالي وعند تغيير الحالة الى recept2 وبقاء العمود المجاور recept1 معنى ذلك ان الحالة تغيرت وعندها ينفذ الكود واذا لم تتغير الحالة يعني العمودين متساويتين ينزل للصف التالي refill.xlsm

الاخوة الافاضل ممكن ح يتكرم ويشرح لي الكود ده وليه لا يعمل محتاج ادون معادلات في كل من f , g ,j ,k عند كتابة الكود ووضع المعادلة في f فقط يعمل جيدا وعند اضافة معادلات اخرى في اي خانه يتوقف الملف Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 5 And Target.Column < 11 And Target.Column <> 6 Then Range("f" & Target.Row).Formula = "=IFERROR(VLOOKUP(RC[-1],item!C[-4]:C[4],2,FALSE),""ßæÏ ÛíÑ ãÚÑÝ "")" Range("g" & Target.Row).Formula = "=IFERROR(VLOOKUP(RC[-2],bal_cost!C:C[15],10,FALSE),""ßæÏ ÛíÑ ãÚÑÝ "")" 'Range("i" & Target.Row).Formula = "=IF(ISBLANK(A" & Target.Row & "),0,E" & Target.Row & "*H" & Target.Row & ")" End If End Sub

اشكرك اخي الكريم لكن انا اريد الادخال في الجدول في السطر 4 و 6 و هكذا ولكن الكود اللي استخدمته يذهب الى اخر سطر لهذا طرحت 21 من كل خانة اريد ان اكتب فيها ليتحرك لاعلى ويكتب في خانات تسبق اخر سطر تحياتي لو يوجد كود افضل ارجوا الافادة واشكرك على امر الخروج من الحلقة اشكرك اخي الكريم تم المطلوب وتم الخروج من الحلقة واعادة صياغة وضبط الكود باستثناء الكتابة في سطر 4 بدون الذهاب الى اخر سطر و طرح منه 21 لو اردت افادتي بكود اصح اكون شاكر وو ان الكود الحالي ادى الغرض مع وافر التحية

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

في الملف المرفق يوجد شيت po_rec و شيت recept مطلوب ..عند تحقق شرط وهو وجود كلمة recept1 .... الى recept6 في عمود 13 وايض بشرط الايكون في عمود 14 يوجد كلمة ok يتم نقل بعض البيانات الى شيت recept كتابة ok .. ف نفس السطر في شيت po_rec , والخروج من الدورة لحين طلب التنفيذ مرة اخرى عنوان مخالف ... تـــم تعديل عنوان المشاركة ليعبر عن طلبك ... وطالما ان حجم الملف صغير فممنوع رفعه مضغوط .. فقد تم اعادة رفع الملف بدون ضغط مع امتداد يقبل لصق الأكواد به وهو XLSM Sub recp_fill() On Error Resume Next Application.ScreenUpdating = False For a = 5 To [a10000].End(xlUp).Row If Cells(a, 2) <> "" And Cells(a, 13) = "recept1" Or Cells(a, 13) = "recept2" Or Cells(a, 13) = "recept3" Or Cells(a, 13) = "recept4" Or Cells(a, 13) = "recept5" Or Cells(a, 13) = "recept6" And Cells(a, 14) <> "ok " Then MySheets = "recept" With Sheets(MySheets).[a10000].End(xlUp) .Offset(4 - 21, 1) = Cells(a, 2) .Offset(6 - 21, 1) = Cells(a, 5) .Offset(7 - 21, 1) = Cells(a, 6) .Offset(8 - 21, 1) = Cells(a, 😎 .Offset(21 - 21, 1) = Cells(a, 13) End With End If Sheets("po_rec").Cells(a, 14).Value = "ok" Next a Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" Range("b6").Select On Error GoTo 0 End Sub هذ الكود ينفذ المطلوب ولكن يستمر حتى اخر سطر يحقق الشرط اريد ان يتوقف بمجرد ان يجد سطر يحقق الشروط وينفذ ويخرج refill.xlsm

اشكرك اخي الكريم تم

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 8 And Target.Column < 8 Then Range("c" & Target.Row).Formula = "=IFERROR(VLOOKUP(b" & Target.Row & ",item!C[-1]:C[4],2,FALSE),"""")" Range("h" & Target.Row).Formula = "=IF(ISBLANK(A" & Target.Row & "),0,$B$7*F" & Target.Row & "*(1+G" & Target.Row & "))" Range("i" & Target.Row).Formula = "=IF(ISBLANK(A" & Target.Row & "),0,E" & Target.Row & "*H" & Target.Row & ")" End If End Sub انا كتبته كده فتوقف عن العمل ودخل في حلقة وهنج الملف فما الخطأ

الاخوة الافاضل استاذ محمد صالح رجو التكرم بمساعدتي في الاتي استكمال لنفس الكود والحالة اخي الكريم اريد كتابة هذا السطر ليضيف المعادلة في العمود c ايضا ولم اعرف كتابتها بطريقة الكود الذي كتبته انت فهل اطمع في اضافتها للكود السابق ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],item!C[-1]:C[4],2,FALSE),"""")" ولو امكن الافادة كيف يمكن كاتبة الكود بالطريقة السابقة انا بدخل على الماكرو واسجل كتابة المعادلة و استخدمها في الكود لكن لا يكتبها المسجل كما كتبتها انت زفر التحية هناك امر اخر عند الانتهاء من التسجيل وترحيل الطلب بيتم افراغ النوذج وحذف الاسطر كلها هل سيم كتابة المعادة نتيجة لهذه الخطوة و في اي سطر

اخي الكريم اريد كتابة هذا السطر ليضيف المعادلة في العمود c ايضا ولم اعرف كتابتها بطريقة الكود الذي كتبته انت فهل اطمع في اضافتها للكود السابق ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],item!C[-1]:C[4],2,FALSE),"""")" ولو امكن الافادة كيف يمكن كاتبة الكود بالطريقة السابقة انا بدخل على الماكرو واسجل كتابة المعادلة و استخدمها في الكود لكن لا يكتبها المسجل كما كتبتها انت زفر التحية هناك امر اخر عند الانتهاء من التسجيل وترحيل الطلب بيتم افراغ النوذج وحذف الاسطر كلها هل سيم كتابة المعادة نتيجة لهذه الخطوة و في اي سطر