أب مارية قام بنشر أبريل 1, 2014 قام بنشر أبريل 1, 2014 اخواني في هذا المنتدى الرائع السلام عليكم ورحمة الله تعالى وبركاته لدي فورم حذف وأريد إضافة عدد الوحدات المحذوفة من الشيت الأول إلى الشيت الثاني مع شرط والشرح بالتفصيل داخل المرفق لكم مني ألف تحية وسلام حذف.rar
أب مارية قام بنشر أبريل 4, 2014 الكاتب قام بنشر أبريل 4, 2014 السلام عليكم الأخ شوقي هذا هو العمل المطلوب بارك الله فيك لقد قمت بتطبيق الكود على البرنامج الاصلي لم ينجح معي حيث لا يقوم باضافة العدد الوحدات الى المخزون بعد عملية الحذف فماهو السر في ذلك أرجو المساعدة
شوقي ربيع قام بنشر أبريل 4, 2014 قام بنشر أبريل 4, 2014 السلام عليكم لايوجد أي سر في الكود اعتقد ان تسمية الورقة التي يرحل اليها المخزون هي السبب ان كانت مختلفة عن اسم الورقة في الملف الذي ادرجته (Stocks) قم بتغير التسمية في هذا الكود فقط كما هي لديك في الملف الاصلي Set sh = ThisWorkbook.Sheets("Stocks")
أب مارية قام بنشر أبريل 5, 2014 الكاتب قام بنشر أبريل 5, 2014 السلام عليكم ورحمة الله تعالى وباركاته أخي شوقي الورقة تحمل نفس الاسم لكن بقي المشكل حيث يكمن في أنه بعد الضغط على زر الحذف لا يقوم باضافة عدد الوحدات المحذوفة إلى الوحدات في الورقة الثانية وقد قمت برفع الملف الأصلي لمعاينته والعمل عليه مباشرة حذف01.rar
شوقي ربيع قام بنشر أبريل 5, 2014 قام بنشر أبريل 5, 2014 السلام عليكم الخطاء موجود في الحلقة التكرارية اجعله هكذا For i = 12 To Lr If sh.Range("B" & i) = Des And sh.Range("C" & i) = P_Un Then sh.Range("D" & i) = sh.Range("D" & i) + Qté Next
أب مارية قام بنشر أبريل 5, 2014 الكاتب قام بنشر أبريل 5, 2014 السلام عليكم بالرك الله فيك أخي شوقي على العمل وجعل عملك هذا في ميزان حسناتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.