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

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

قام بنشر

ألسلام عليكم ورحمة الله وبركاتة 

اتمنا مساعدتي في كود يقوم بنسخ خلية من العمود D الي الخلية E  اذا تغير في العمود A  الخلية الي كلمة YES

و كل ما تغيرة الخلية في العمود A ألي كلمة YES يقوم بنسخ العمود D الي الخلية التي بعد E و يكون بهذا التكرار المستمر

و الكود يعمل بمجرد فتح الاكسل بدون ازار  يعمل تلقائي بمجرد فتح الاكسل

الملف المرفق فية المطلوب 

اتمنا اجد من يساعدني

 

copy and paste.rar

قام بنشر

الف شكر اخي ياسر خليل علي ردك ومساعدتي و الكود شغال  لكن فقط اتمنا تعدلة بحيث يعمل تلقائي من اول ما افتح ملف الاكسل

حاولت اعدلة لكن فشل ولم يعمل

 
Private Sub Worksheet_Calculate()
    Dim c As Range
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    If Target.Value = "Yes" Then Target.End(xlToRight).Offset(0, 1).Value = Target.Offset(0, 3).Value
End Sub
قام بنشر

هل ممكن تعدل الكود بحيث فقط يعمل تلقائي حتي بدون ما اظلل علي اي خلية  لان البيانات متغيرة تلقائي في العمود A و D

لان مصدر البيانات قاعدة بيانات MYSQL

قام بنشر

الف شكر اخي ياسر علي مساعدتك لكن ليس هذا المطلوب و ايضاء يوجد مشكلة ينسخ و يلصق كل ما نقرة علي اي خلية 

ارسلت لك كود انا استعملة للنسخ و الصق ويعمل ممتاز معي لكن عيبة لا يكرر النسخ و الصق من بعد الخلية e

اتمنا انك شاهدتة لانة يعمل معي بدون مشاكل ويعمل تلقائي بدون الحاجة للنقر علي اي خلية في الاكسل

و اتمنا تشاهد هذا الملف  عندما اغير في العمود A في الورقة M2 كلمة Yes 

ألمفروض ينسخ ولصق الخلية D الي الخلية E في الورقة M1

Copy And Paste V3.rar

قام بنشر

اخي ياسر اول ملف  الذي وضعتة   Copy And Paste According To Value In Column A

 

شغال تمام لكن مشكلتي وهي ان البيانات متغيرة تلقائي من خلال قاعدة بيانات في العمود A و العمود D و الكود لا يعمل سوي لو تم النقر علي الخلية 

وانا اريدة يعمل تلقائي مجرد تغير الخلية تلقائي

اتعبتك معي اخي ياسر لكن اتمنا تجد حل

قام بنشر

أخي الحبيب .. ما هي الخلايا التي تقوم بالتعديل فيها والتي تريد بعدها أن ينفذ الكود

الطلب غير واضح بعض الشيء

ثم إنك في رسالة خاصة أرفقت كود وأخبرتك أن تضع الكود هنا في الموضوع وقلت أن الكود يعمل بشكل ممتاز ولكن تريد التعديل عليه

ضع الكود الخاص بك ولا تنسى أن تضع الكود بين أقواس الكود <>

ليظهر ما داخل أقواس الكود بهذا الشكل ..
قام بنشر (معدل)

ألف شكر اخي ياسر علي اهتمامك و الرد علي استفسارتي ومحاولة مساعدتي

 

هذا مثال الكود الي يعمل معي تلقائي بدون الحاجة للنقر علي اي زر

 

عندما اغير في الورقة M2  

Yes

 

في الورقة  M1 يتم نسخ و الصق 

 

اتمنا تعدل الكود  الاول الذي عمل معي تمام  لكن يكون يعمل مثل هذا الكود بدون الحاجة للنقر علي الخلايا او لوحة المفاتيح حتي يعمل بمجرد تغير الخلية يقوم بالنسخ و الصق

 

كما شرحت لك لان الاكسل عندي مربوط مع قاعدة بيانات Mysql عندما يحدث تغير في الخلية فا الكود السابق لا يعمل 

او تعديل نفس هذا الكود بيحث يعمل كل ما تغير في الخلية D ألي Yes يقوم بنسخ الخلية  A الي E و يكرر كل ما حدث تغير في الخلية D ألي Yes بنسخ A في الخلية التي بعد الخلية E

Copy And Paste V4.rar

تم تعديل بواسطه etheer
قام بنشر

أخي الحبيب الصورة أصبحت مشوشة قليلاً أجب عن الآتي :

هل التغيير الذي تقصده سيكون في نفس الورقة ؟

هل التغيير في نفس الورقة في العمود D ؟

كيف يكون التغيير في العمود D وهو يحتوي على معادلة ؟

إذا كان الأمر كذلك إذا التغير الذي تقصده في العمود المرتبط بالمعادلة ؟

هل التغيير المطلوب لصف واحد فقط أم لجميع الصفوف التي تحتوي على كلمة Yes مرة واحدة في كل تغيير ؟

كل هذه الأسئلة لا أجد لها جواباً واضحاً

قام بنشر (معدل)

قصدي عندما تتغير الخلية D الي Yes يعمل الكود ويقوم بالنسخ و الصق اما بالنسبة للورقة M2 فقد تعتمد فقط اضعها حتي يتغير مافي الورق M1 بدون الحاجة للنقر علي اي خلية او لوحة المفاتيح وهي مفتوحة الورقة M1 وهو  مجرد مثال علي كود يعمل معي ويقوم بالنسخ و الصق بدون الحاجة علي النقر علي خلية او لوحة المفاتيح علي زر ENTER

 

هل تستطيع تعديل هذا الكود بحيث يقوم بنسخ الخلية A  اذا تحقق الشرط في الخلية D الي Yes و ولصقة الي الخلية E وكل تغيرة الخلية في العمود D الي Yes يكرر نفس الشي ويقوم 

بنسخ الخلية في العمود A  الخلية التي بعد E 

تم تعديل بواسطه etheer
قام بنشر (معدل)

يعمل 100% الله يوفقك يا ياسر علي ما تقدمة من مساعدة

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

و الكود شغال وهو المطلوب   :dance1: 

 

لكن توجد مشكلة باقية واحد وهي انة ما يلصق من بعد العمود الخلية E  بالتريب لكل صف

 

1426279128461.png

 

ياليت يكون الصق يكون بعد العمود E  لكل الصفوف

تم تعديل بواسطه etheer
قام بنشر

هذه آخر محاولة مني ..أنا تعبت من الموضوع ، لأنك مش بتوضح من بدري ، وطرحت عليك الكثير من الأسئلة ، وكلما اقرتبنا من الحل ، ابتعدنا مرة أخرى

إليك الملف المرفق ، وإن شاء الله ، بإذن الله يؤدي الغرض

 

Copy And Paste V5.1 Final.rar

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information