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

[احمد محمد على]

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

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

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

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

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

=====

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

* ملاحظة

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

العمل_2.rar

[عبدالله المجرب]

السلام عليكم

اخي الفاضل راجع المشاركة في الرابط ادناه

الرابط من هنا

[احمد محمد على]

اخى عبدالله

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

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

[عبدالله المجرب]

اخى عبدالله

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

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

السلام عليكم

اخي ميدو

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

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

العمل_2.rar

[احمد محمد على]

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

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

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

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

اخى عبدالله

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

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

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

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

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

تم تعديل نوفمبر 8, 2011 بواسطه 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

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

[احمد محمد على]

اخى عبدالله

جزاك الله خير

احسن الله اليك

ادام الله عليك الصحة والعافية والستر

شكرا لك

اخوك ميدو