احمد محمد على قام بنشر نوفمبر 7, 2011 قام بنشر نوفمبر 7, 2011 اخوانى واحبابى اريد الترحيل لاوراق متعدده الفكرة بالنسبه لى صعبة رؤس الاعدة بالنسبة للاوراق واحدة باستثناء السيارات فى عدد الساعات فى الورقة توجد اكثر من معده فما السبيل ساقبل اى تعديل مع الحفاظ على فكرة العمل ===== قمت بتعديل عناوين الاعمده لكى تكون موحده فى كل الاوراق * ملاحظة هناك اكثر من معده فى ورقة واحده العمل_2.rar
عبدالله المجرب قام بنشر نوفمبر 7, 2011 قام بنشر نوفمبر 7, 2011 السلام عليكم اخي الفاضل راجع المشاركة في الرابط ادناه الرابط من هنا
احمد محمد على قام بنشر نوفمبر 7, 2011 الكاتب قام بنشر نوفمبر 7, 2011 اخى عبدالله حاولت فى التعديل على كود للاستاذ احمد زمان وللاسف لم انجح فى التعديل
عبدالله المجرب قام بنشر نوفمبر 8, 2011 قام بنشر نوفمبر 8, 2011 في 7/11/2011 at 19:22, mido21 said: اخى عبدالله حاولت فى التعديل على كود للاستاذ احمد زمان وللاسف لم انجح فى التعديل السلام عليكم اخي ميدو جرب امرفق تم اضافة كود ترحيل مرن اليه (مرونة الكود في ان الترحيل يتم فيه بشقين وبالتجربة ستكتشف ذلك) كما تم اضافة تنبيه اذا لم يكن هناك بيانات لترحيلها او لم يتم اختيار ورقة عمل العمل_2.rar
احمد محمد على قام بنشر نوفمبر 8, 2011 الكاتب قام بنشر نوفمبر 8, 2011 (معدل) اخى عبدالله المجرب بداية اشكرك كل الشكر على مساعدتك جزاك الله خيرا وبارك فيك الكود يعمل بكفاءة وسرعة ما شا الله اخى عبدالله كنت كتبت ملحوظة لم تلفت انتباهك ولك كل العذر لان ردودك كثيرة اعانك الله صفحة السيارات مثلا بها اكثر من سيارة الكود يرحل للاولى فقط وهكذا فى بقية الاوراق هل من الممكن اضافة شرط اخر على الترحيل اذا تغير يبدء من العمود sثم اذا تغير يبدء من العمود acسيقفز 11عمود تم تعديل نوفمبر 8, 2011 بواسطه mido21
عبدالله المجرب قام بنشر نوفمبر 8, 2011 قام بنشر نوفمبر 8, 2011 في 8/11/2011 at 08:33, mido21 said: هل من الممكن اضافة شرط اخر على الترحيل اذا تغير يبدء من العمود sثم اذا تغير يبدء من العمود acسيقفز 11عمود ان شاء الله كل شيء ممكن جرب المرفق بعد التعديل (هناك معادلة في الخلية i1 دورها مهم في تحديد عمود الترحيل )حتى لو تم مسحها سيقوم الكود بإعادتها العمل_2.rar
احمد محمد على قام بنشر نوفمبر 8, 2011 الكاتب قام بنشر نوفمبر 8, 2011 اخى عبدالله المجرب ايه الحلاوة دى يا عبدالله المجرب اسال الله ان يغفر لك ويتجاوز عن سيئاتك جزاك الله خيرا اخى هذا هو المطلوب احسنت وجزاك الله عنى خيرا
عبدالله المجرب قام بنشر نوفمبر 8, 2011 قام بنشر نوفمبر 8, 2011 في 8/11/2011 at 09:53, mido21 said: اخى عبدالله المجرب ايه الحلاوة دى يا عبدالله المجرب اسال الله ان يغفر لك ويتجاوز عن سيئاتك جزاك الله خيرا اخى هذا هو المطلوب احسنت وجزاك الله عنى خيرا الحمدلله انه تم التوصل الى ما تريده اخي ميدو ابواحمد
احمد محمد على قام بنشر نوفمبر 9, 2011 الكاتب قام بنشر نوفمبر 9, 2011 اخى عبدالله اعتذر لك لفتح الموضوع مره اخرى اردت تغيير اسماء الالية فلم يعمل الكود لماذا اعرف ان التغيير يتم فى حدث التغيير فى الةوقة والمديول معا لكنه لم يعمل لماذا وما هى الطريقة الصحيحة للتغيير(اسمى الالية باسم صاحبها حفار ميدو مثلا)
عبدالله المجرب قام بنشر نوفمبر 9, 2011 قام بنشر نوفمبر 9, 2011 الطريقة في المعادلة الموجودة في الخلية i1 قم بتعديل الاسماء ولكن قبل هذا قم يحذف هذا الجزء من الكود لازالة صيغة المعادلة Target.Offset(-1, 1).FormulaR1C1 = _ "=IF(OR(R[3]C[-1]=""لودر رقم 1"",R[3]C[-1]=""حفارة رقم 1"",R[3]C[-1]=""سيارة رقم 1""),""I"",IF(OR(R[3]C[-1]=""لودر رقم 2"",R[3]C[-1]=""حفارة رقم 2"",R[3]C[-1]=""سيارة رقم 2""),""S"",IF(OR(R[3]C[-1]=""لودر رقم 3"",R[3]C[-1]=""حفارة رقم 3"",R[3]C[-1]=""سيارة رقم 3""),""AC"",IF(OR(R[3]C[-1]=""لودر رقم 4"",R[3]C[-1]=""حفارة رقم 4"",R[3]C[-1]=""سيارة رقم 4""),""AM"",""""))))" ليصبح الكود هكذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub If Target.Row <> 2 Then Exit Sub Target.Offset(2, 0).ClearContents End Sub واذا لم تستطع التعديل اعطني اسماء الاليات وساقوم بالتعديل
احمد محمد على قام بنشر نوفمبر 9, 2011 الكاتب قام بنشر نوفمبر 9, 2011 اخى عبدالله جزاك الله خير احسن الله اليك ادام الله عليك الصحة والعافية والستر شكرا لك اخوك ميدو
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.