طلب مساعدة في تعديل كود حتي يعمل

[ابو ياسر2]

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

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

اتمنا حل المشكلة في الملف المرفق 

Copy And Paste.rar

[زوهير]

اخي الكريم اين تريد ان يتم الترحيل

[ابو ياسر2]

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

 

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

[زوهير]

السلام عليك اخي

 

ضع الكود في حدث الورقة  وجرب ان شاءالله ياتي بثماره

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

[ابو ياسر2]

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