ابو ياسر2

الف شكر اخي ياسر الان صار يعمل 100% ربنا يبارك فيك ويسعدك كما تحاول بكل جهدك تسعد الناس

اخي ياسر حصلت معي مشكلة لما عدلت النسخ و الصق بدل العمود A و B الي النسخ من العمود AH والصق في العمود AM توقف الكود عن العمل رغم انني معدلة صح < Private Sub Workbook_Open() With Sheet4 .Visible = True With .Range("AH1", .Cells(Rows.Count, "AH").End(xlUp)) .Range("AM1").Resize(.Rows.Count).Value = .Value End With .Visible = False End With End Sub > حاولت اضع الكود بين أقواس تنصيص الكود <> لكن يظهر بهذا الشكل Auto Copy Sheet4 V3.rar

ألف الف شكر اخي ياسر الكود يعمل الان 100% و الورقة مخفية بارك الله فيك علي ما تقدمة من خدمة لكل الناس ولا تطلب سوي الدعاء اسم ابني ياسر و الاسم الحقيقي حسن

هذا الملف المرفق فية الورقة Sheet4 مخفية auto copy sheet4.rar

الورقة مخفية هل يوجد حل لتعديل الكود بحيث يعمل مع الورقة المخفية ؟

هل توجد طريقة لجعل الكود يعمل عند فتح الاكسل في الورقة sheet 4 وهي مخفية

اعتذر اخواني اتعبتكم معاية حاولت وضع الكود في ورقة مخفية Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:="123456" With Range("AH1", Cells(Rows.Count, "AH").End(xlUp)) Range("AM1").Resize(.Rows.Count).Value = .Value End With ActiveSheet.Protect Password:="123456" End Sub لكن لم يعمل معاية عند وضعة في ورقة مخفية ماهو الحل حتي يعمل وكيف واضع الكود بين اقواس حتي يظهر كما انت تضعة في الموضوع

ألف شكر اخي ياسر الكود شغال ويعمل بدون مشكلة

اخي ياسر كيف جعل الكود يعمل مع الورقة sheet4 اتمنا تشاهد الملف المرفق auto copy.rar

ألف شكر علي مساعدتي وانا لسا مبتدي و اسف لو اتعبتكم اخي طارق محمود عند وضع الكود ظهرت لي رسالة خطاء

السلام عليكم ورحمة الله وبركاتة ممكن مساعدتي في تعديل هذا الكود نسخ عمود A الي العمود B يعمل تلقائي عند فتح الاكسل Private Sub Worksheet_Open() If Not stopped Then With Range("A1", Cells(Rows.Count, "A").End(xlUp)) Range("B1").Resize(.Rows.Count).Value = .Value End With End If End Sub

ألف شكر اخي زوهير اشتغل معي الكود الان

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

السلام عليكم ورحمة الله وبركاتة ممكن مساعد تي في اصلاح هذا الكود نسخ ولصق اذا تغيرت الخلية D ألي Yes اتمنا حل المشكلة في الملف المرفق Copy And Paste.rar

ألف الف شكر ابو عيد ربنا يوفقك شغال الكود الان و الحمدالله

الف شكر اخي ابو عيد علي مساعدتك لي و الكود شغال تمام لكن هل ممكن تعديلة بحيث يرتب حسب الاكبر لان العشرة الارقام الاكبر يرتبها من الاصغر الي الاكبر الي بالموجب في الخلايا الزرقاء اما ترتيب الارقام السالبة فا تمام لا يوجد فيها اي مشكلة لو صعب اتمنا فقط تعديل الملف المرفق TEST3 حتي يعمل لانني نقلت العمود B الي العمود E TEST3.rar

الترتيب حسب اكبر عشرة ارقام في العمود A و اصغر ارقام في العمود A التريب يكون لكامل الصف

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

السلام عليكم ورحمة الله وبركاتة احتاج مساعدة في كود مكرو يقوم بتريب العشرة ارقام الاكبر و العشرة ارقام الاصغر في الملف المرفق شرح المطلوب اتمنا مساعدتي TEST1.rar

يعمل 100% الله يوفقك يا ياسر علي ما تقدمة من مساعدة مشاء الله عليك و الكود شغال وهو المطلوب لكن توجد مشكلة باقية واحد وهي انة ما يلصق من بعد العمود الخلية E بالتريب لكل صف ياليت يكون الصق يكون بعد العمود E لكل الصفوف

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

ألف شكر اخي ياسر علي اهتمامك و الرد علي استفسارتي ومحاولة مساعدتي هذا مثال الكود الي يعمل معي تلقائي بدون الحاجة للنقر علي اي زر عندما اغير في الورقة M2 Yes في الورقة M1 يتم نسخ و الصق اتمنا تعدل الكود الاول الذي عمل معي تمام لكن يكون يعمل مثل هذا الكود بدون الحاجة للنقر علي الخلايا او لوحة المفاتيح حتي يعمل بمجرد تغير الخلية يقوم بالنسخ و الصق كما شرحت لك لان الاكسل عندي مربوط مع قاعدة بيانات Mysql عندما يحدث تغير في الخلية فا الكود السابق لا يعمل او تعديل نفس هذا الكود بيحث يعمل كل ما تغير في الخلية D ألي Yes يقوم بنسخ الخلية A الي E و يكرر كل ما حدث تغير في الخلية D ألي Yes بنسخ A في الخلية التي بعد الخلية E Copy And Paste V4.rar

اخي ياسر اول ملف الذي وضعتة Copy And Paste According To Value In Column A شغال تمام لكن مشكلتي وهي ان البيانات متغيرة تلقائي من خلال قاعدة بيانات في العمود A و العمود D و الكود لا يعمل سوي لو تم النقر علي الخلية وانا اريدة يعمل تلقائي مجرد تغير الخلية تلقائي اتعبتك معي اخي ياسر لكن اتمنا تجد حل

الف شكر اخي ياسر علي مساعدتك لكن ليس هذا المطلوب و ايضاء يوجد مشكلة ينسخ و يلصق كل ما نقرة علي اي خلية ارسلت لك كود انا استعملة للنسخ و الصق ويعمل ممتاز معي لكن عيبة لا يكرر النسخ و الصق من بعد الخلية e اتمنا انك شاهدتة لانة يعمل معي بدون مشاكل ويعمل تلقائي بدون الحاجة للنقر علي اي خلية في الاكسل و اتمنا تشاهد هذا الملف عندما اغير في العمود A في الورقة M2 كلمة Yes ألمفروض ينسخ ولصق الخلية D الي الخلية E في الورقة M1 Copy And Paste V3.rar

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