ابو ياسر2 قام بنشر يوليو 18, 2015 مشاركة قام بنشر يوليو 18, 2015 السلام عليكم ورحمة الله وبركاتة ممكن مساعد تي في اصلاح هذا الكود نسخ ولصق اذا تغيرت الخلية D ألي Yes اتمنا حل المشكلة في الملف المرفق Copy And Paste.rar رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يوليو 18, 2015 مشاركة قام بنشر يوليو 18, 2015 اخي الكريم اين تريد ان يتم الترحيل رابط هذا التعليق شارك More sharing options...
ابو ياسر2 قام بنشر يوليو 18, 2015 الكاتب مشاركة قام بنشر يوليو 18, 2015 الكود عملة اذا تغير الخلية في العمود D الي Yes يقوم بنسخ الخلية في العمود A و الصقها الي الخلية التي بعد Yes لا اعرف لماذا لا يعمل الكود اتمنا تجد حل المشكلة رابط هذا التعليق شارك More sharing options...
أفضل إجابة زوهير قام بنشر يوليو 18, 2015 أفضل إجابة مشاركة قام بنشر يوليو 18, 2015 السلام عليك اخي ضع الكود في حدث الورقة وجرب ان شاءالله ياتي بثماره Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Application.EnableEvents = False On Error Resume Next For Each c In Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row) X = Cells(c.Row, Columns.Count).End(xlToLeft).Column + 1 If c = "Yes" Then If Cells(c.Row, X) = "" Then Cells(c.Row, X).Value = c.Offset(, -3).Value End If End If Next c Application.EnableEvents = True End Sub 1 رابط هذا التعليق شارك More sharing options...
ابو ياسر2 قام بنشر يوليو 19, 2015 الكاتب مشاركة قام بنشر يوليو 19, 2015 ألف شكر اخي زوهير اشتغل معي الكود الان رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.