ابو ياسر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

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