أيهاب ممدوح قام بنشر ديسمبر 1, 2011 قام بنشر ديسمبر 1, 2011 اخواني الاعزاء مرفق ملف بيه عمليه تحويل بين المستودع وبين الفرع للشركه في مصر ومن خلال شيت الوارد تتم هذة العمليه يقوم بادراج الكميه في الفرع مصر ولكن المشكله او المطلوب عمله هو ان يدرج الكميه في شيت المستودع امام الصنف المحول منه ويقوم بادراج اسم الفرع المحول اليه واذا تمت عمليه اخري يقوم بادراجها بعد العمليه الاولي في المستودع كل المشكله في المستودع فقط ارجوا الافاده مرفق ملفehab.rar
أيهاب ممدوح قام بنشر ديسمبر 2, 2011 الكاتب قام بنشر ديسمبر 2, 2011 اخواني شرح المطلوب بطريقه اخري لدي عمليتين تحويل من المستودع الي فرعين يوجد كود بالملف سوف يضيف الكميه المحوله الي الفرع ولكن المشكله اني اريد ادراج الكميه المحوله بالمستودع في العمود الاول من التحويل من المستودع وعمليه التحويل الثانيه تدرج بنفس الطريقه ولكن في العمود الثاني شكرا
أيهاب ممدوح قام بنشر ديسمبر 2, 2011 الكاتب قام بنشر ديسمبر 2, 2011 اخواني اريد ان يدرج الكميه المحوله واسم الفرع بالتتابع في المستودع ehab.rar
احمدزمان قام بنشر ديسمبر 2, 2011 قام بنشر ديسمبر 2, 2011 السلام عليكم و رحمة الله بعد اذن اخي ابو نصار فعلا المطلوب غير واضح يعني لازم تحدد فين تتحط البيانات وكيف رايح تفرق بين الفرعين مصر وسوريا وكيف رايح تفرق بين الكمية هل هي صرف او وارد = = = = = يعني حسب مافهمت تبي تحط الكميتين وارد ومنصرف في العامودين F-G هل تريد اضافتها امام النوع و الرقم المادة ام اضافتها في سطر جديد مع رقم المادة واذا كنت تريد اضافتها امام النوع و الرقم هل يجب اضافتها او خصمها من الموجود ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
أيهاب ممدوح قام بنشر ديسمبر 2, 2011 الكاتب قام بنشر ديسمبر 2, 2011 اخي احمد زمان اريد عند العمليه الاوله في التحويل من المستودع تدرج الكميه في خانه الوارد في الفرع مصر او سوريا وتدرج الكميه في المستودع احد الاعمده الاربعه المخصصه للصرف للفروع امام اسم الصنف ولكن هنا توجد اربعه اعمده فارغه الاسم وما اريده هو ادراج الكميه المنصرفه امام الصنف واسم الفرع في اعلي العمود واذا كان العمود مشغول بعمليه سابقه يدرج في العمود التالي من الاربع اعمده ارجوا ان اكون اوضحت المطلوب
احمدزمان قام بنشر ديسمبر 2, 2011 قام بنشر ديسمبر 2, 2011 ادراج الكميه المنصرفه امام الصنف واسم الفرع في اعلي طيب هذا المنصرف و الوارد نعمل فيه ايه واذا صرفت الى سوريا اول مرة 10 يكتبها في عمود سوريا 10 واذا صرفت لسوريا 5 مرة اخرى يكتبها في العمود الفاضي ولا يضيفها الى قيمة 10 وموضوع يروح للعمود الفاضي هذه اعذرني فيها
أيهاب ممدوح قام بنشر ديسمبر 2, 2011 الكاتب قام بنشر ديسمبر 2, 2011 اخي احمد الوارد بالمستودع لا اريد التعديل عليه سوف يدرج يدويا وبالطبع اريد الاضافه 10 الي 5
احمدزمان قام بنشر ديسمبر 6, 2011 قام بنشر ديسمبر 6, 2011 السلام عليكم اخي اهاب اكيد الفكرة مش مستحيلة بس محتاج افهم كما تعرف - فهم السؤال نصف الإجابة ولكن صدقني حتى الآن فكرتك لم تصل لفهمي بشكل واضح اكرر اعتذاري
أيهاب ممدوح قام بنشر ديسمبر 6, 2011 الكاتب قام بنشر ديسمبر 6, 2011 السلام عليكم اخي \ احمد زمان يوجد لدينا الكثير من الفروع وتصميم شكل المستودع لدي يوجد في كل يوم اربع اعمده فقط للصرف وهم (f , g, h .i) ولذلك مستحيل تثبيت عمود لكل فرع لادراج المنصرف بها في شيت المستودع ولذلك جائت فكرة ادراج العمليات الصرف في المستودع بالمتابعه بين الفروع مثال نفترض عمليتين صرف بضاعه من المستودع لفرعين هما سوريا ومصر العمليه الاولي الصرف لسوريا صرف الصنف رقم 123 بكميه 5 قطع سوف تدرج في شيت سوريا في عمود الوارد بقيمه 5 قطع وسوف تدرج ايضا في عمود f من اعمده الصرف في المستودع بفرض انها العمليه الاولي في اليوم ويدرج ايضا اسم الفرع المحول اليه وهو سوريا في بدايه العمود f وتخصم من المستودع هذة الكميه وبذلك تكون انتهت العمليه الاولي العمليه الثانيه صرف بضاعه في نفس اليوم للفرع مصر نفس الصنف بكميه 4 قطع وسوف تاخذ نفس المسار السابق ماعدا المستودع سوف ياتي دورها لتدرج في اخر عمود ليس به بيانات من اعمده الصرف وفي حاله يكون المقصود هو العمود g وتخصم ايضا من المستودع وسوف تكون بالشكل الذي ادرجه يدويا في الملف اريد كود يعوض ذلك وبالنسبه للوارد في المستودع لا علاقه له بما يحدث لانه سوف يدرج يدويا واتمني ان اكون وفقت في شرح الموضوع ببساطه مرفق ملف ehab.rar
الـعيدروس قام بنشر ديسمبر 7, 2011 قام بنشر ديسمبر 7, 2011 السلام عليكم بعد اذن استاذي الحبيب احمد زمان حسب فهمي للمطلوب بيكون الكود كذا Sub tahwiell() 'نقل البيانات Application.Calculation = xlManual Dim FS, FR, TS, TR FS = "الوارد" TS = Sheets(FS).Range("A20") TR = Sheets(FS).Range("J20") TC = Sheets(FS).Range("K20") Sheets(TS).Unprotect Password:="ehab123" Sheets(TS).Cells(TR, TC) = Sheets(FS).Cells(20, 6) Sheets(TS).Protect Password:="ehab123" With Sheet11 S = .Range("F1000").End(xlUp).Row + 1 If Sheet1.Cells(4, "g").Value = .Cells(4, "f").Value Then .Cells(S, "f").Value = Sheet1.Cells(5, "c").Value ElseIf Sheet1.Cells(4, "g").Value = .Cells(4, "g").Value Then .Cells(S, "g").Value = Sheet1.Cells(5, "c").Value End If End With TS = Sheets(FS).Range("A21") TR = Sheets(FS).Range("J21") TC = Sheets(FS).Range("K21") 'Sheets(TS).Unprotect Password:="ehab123" Sheets(TS).Cells(TR, TC) = Sheets(FS).Cells(21, 5) 'Sheets(TS).Protect Password:="ehab123" Application.Calculation = xlAutomatic MsgBox "الحمد لله تم النقل" Sheets(FS).Select ActiveSheet.EnableSelection = xlUnlockedCells ActiveSheet.Protect End Sub ارجو ان اكون وفقت في فهم طلبك تحياتي
أيهاب ممدوح قام بنشر ديسمبر 8, 2011 الكاتب قام بنشر ديسمبر 8, 2011 اخي ابو نصار بارك الله فيك ولكن هذا الحل بعيد عن المطلوب المطلوب ادراج الكميه الوارده في الفرع وهذا موجود بالفعل ولكن مطلوب ايضا ادراج كميه المنصرف من المستودع امام الصنف مهما تعددت العمليات الصرف للنفس الفرع ويدرج اسم الفرع في اعلي العمود الاول وهي f4 واذا كان يوجد عمليه تحويل سابقه في نفس اليوم لفرع اخر يدرج اسم الفرع الجديد المنصرف اليه في الخليه g4 وتدرج الكميه امام الصنف المطلوب شكرا ehab.rar
احمدزمان قام بنشر ديسمبر 9, 2011 قام بنشر ديسمبر 9, 2011 السلام عليكم اتمنى ان يكون هذا المطلوب ehab.rar
أيهاب ممدوح قام بنشر ديسمبر 10, 2011 الكاتب قام بنشر ديسمبر 10, 2011 اخي \ احمد زمان الف مليون شكرا انه المطلوب ولقد اصبت وفقك الله ورعاك وزادك من علمه ان شاء الله لدي طلب وهو دمج الكودين في مفتاح واحد (كود المستودع + كود التحويل ) ولقد ارفقت ملف بعد التعديل الطفيف عليه مرفق ملف ehab.rar شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااا
احمدزمان قام بنشر ديسمبر 10, 2011 قام بنشر ديسمبر 10, 2011 السلام عليكم عندي مشكلة في الرفع للملفات بطيء جدا اذا لم يتم ارفاق الملف هذا هو الكود Sub tahwiell() 'äÞá ÇáÈíÇäÇÊ Application.Calculation = xlManual Dim FS, FR, TS, TR FS = "ÇáæÇÑÏ" TS = Sheets(FS).Range("A20") TR = Sheets(FS).Range("J20") TC = Sheets(FS).Range("K20") Sheets(TS).Unprotect Password:="ehab123" Sheets(TS).Protect Password:="ehab123" TS = Sheets(FS).Range("A21") TR = Sheets(FS).Range("J21") TC = Sheets(FS).Range("K21") Sheets(TS).Unprotect Password:="ehab123" Sheets(TS).Cells(TR, TC) = Sheets(FS).Cells(22, 9) Sheets(TS).Protect Password:="ehab123" ' - - - - - - - -- -- - -- - - - -- - -- - - - FS = "ÇáæÇÑÏ" TS = Sheets(FS).Range("A20") TR = Sheets(FS).Range("J25") TC = Sheets(FS).Range("K25") For c = 3 To 6 Sheets(TS).Cells(TR, TC + c - 3) = Sheets(FS).Cells(25, c) Next TR = Sheets(FS).Range("J27") TC = Sheets(FS).Range("K27") For c = 2 To 6 Sheets(TS).Cells(TR, TC + c - 2) = Sheets(FS).Cells(27, c) Next ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - Sheets(TS).Protect Password:="ehab123" Application.Calculation = xlAutomatic MsgBox "ÇáíãÏ ááå Êã ÇáäÞá" Sheets(FS).Select ActiveSheet.EnableSelection = xlUnlockedCells ActiveSheet.Protect End Sub
أيهاب ممدوح قام بنشر ديسمبر 10, 2011 الكاتب قام بنشر ديسمبر 10, 2011 اخي احمد كلما ضغط علي زر التحويل بعد دمج الكودين تظهر رساله خطا في الكود وعند الذهاب الي الكود اجد هذا السطر بلون اصفرActiveSheet.Enableelection = xlUnlockedCells ولكننه يقوم بتنفيذ المطلوب منه شكرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.