اذهب الي المحتوي
أوفيسنا

(تمت الاجابة) الترحيل الى اوراق عديدة وبمدى متغيير


الردود الموصى بها

اخوانى واحبابى

اريد الترحيل لاوراق متعدده

الفكرة بالنسبه لى صعبة رؤس الاعدة بالنسبة للاوراق واحدة باستثناء السيارات فى عدد الساعات

فى الورقة توجد اكثر من معده

فما السبيل ساقبل اى تعديل مع الحفاظ على فكرة العمل

=====

قمت بتعديل عناوين الاعمده لكى تكون موحده فى كل الاوراق

* ملاحظة

هناك اكثر من معده فى ورقة واحده

العمل_2.rar

رابط هذا التعليق
شارك

اخى عبدالله

حاولت فى التعديل على كود للاستاذ احمد زمان

وللاسف لم انجح فى التعديل

السلام عليكم

اخي ميدو

جرب امرفق تم اضافة كود ترحيل مرن اليه (مرونة الكود في ان الترحيل يتم فيه بشقين وبالتجربة ستكتشف ذلك)

كما تم اضافة تنبيه اذا لم يكن هناك بيانات لترحيلها او لم يتم اختيار ورقة عمل

العمل_2.rar

رابط هذا التعليق
شارك

اخى عبدالله المجرب

بداية اشكرك كل الشكر على مساعدتك

جزاك الله خيرا وبارك فيك

الكود يعمل بكفاءة وسرعة ما شا الله

اخى عبدالله

كنت كتبت ملحوظة لم تلفت انتباهك ولك كل العذر لان ردودك كثيرة اعانك الله

صفحة السيارات مثلا بها اكثر من سيارة الكود يرحل للاولى فقط

وهكذا فى بقية الاوراق

هل من الممكن اضافة شرط اخر على الترحيل

اذا تغير يبدء من العمود sثم اذا تغير يبدء من العمود acسيقفز 11عمود

تم تعديل بواسطه mido21
رابط هذا التعليق
شارك

هل من الممكن اضافة شرط اخر على الترحيل

اذا تغير يبدء من العمود sثم اذا تغير يبدء من العمود acسيقفز 11عمود

ان شاء الله كل شيء ممكن

جرب المرفق بعد التعديل (هناك معادلة في الخلية i1 دورها مهم في تحديد عمود الترحيل )حتى لو تم مسحها سيقوم الكود بإعادتها

العمل_2.rar

رابط هذا التعليق
شارك

اخى عبدالله المجرب

ايه الحلاوة دى يا عبدالله المجرب

اسال الله ان يغفر لك ويتجاوز عن سيئاتك

جزاك الله خيرا اخى هذا هو المطلوب

احسنت وجزاك الله عنى خيرا

رابط هذا التعليق
شارك

اخى عبدالله المجرب

ايه الحلاوة دى يا عبدالله المجرب

اسال الله ان يغفر لك ويتجاوز عن سيئاتك

جزاك الله خيرا اخى هذا هو المطلوب

احسنت وجزاك الله عنى خيرا

الحمدلله انه تم التوصل الى ما تريده اخي ميدو

ابواحمد

رابط هذا التعليق
شارك

اخى عبدالله

اعتذر لك لفتح الموضوع مره اخرى

اردت تغيير اسماء الالية فلم يعمل الكود لماذا

اعرف ان التغيير يتم فى حدث التغيير فى الةوقة والمديول معا

لكنه لم يعمل

لماذا وما هى الطريقة الصحيحة للتغيير(اسمى الالية باسم صاحبها حفار ميدو مثلا)

رابط هذا التعليق
شارك

الطريقة في المعادلة الموجودة في الخلية 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

واذا لم تستطع التعديل اعطني اسماء الاليات وساقوم بالتعديل

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information