طلب ادراج عبارة في خلية من خلال كود في حدث الورقة

[زياد عبد الجليل]

استاذ ياسر رجاء يا دكتور ساعدني : عندي حالة اخرى وهي اريد ان اكتب عبارة مثلا في الخلية j  و لتكن مثلا "مرحبا بكم في المنتدى" بمجرد كتابة اي شئ في الخلية c9 وليكن كل هذا في حدث الورقة ولكن بشرط ليس فقط الخلية j9 وانما كل ما ادرج قيمة في الخلية c  اي ابتداء من c9 تكتب العبارة في الخلية j و هكذا.

رجاء ان يكون مختصرا ولك مني جزيل الشكر .

اعتذر لقد ادرجت الموضوع مرتين اعتذر من الجميع

تم تعديل أغسطس 18, 2016 بواسطه زياد777

[زياد عبد الجليل]

شكرا لكل من اراد مساعدتي لقد اقتبست الكود من كود الاستاذ ياسر وشكرا

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range, LR As Integer

    If Target.Column = 3 And Target.Row > 8 Then
        Application.EnableEvents = False
            If Not IsEmpty(Target) Then
                LR = Cells(Rows.Count, "C").End(xlUp).Row
                Set Rng = Range(Cells(9, 1), Cells(LR, 1))
    
                               Target.Offset(, 7).Value = "????777"
            End If
        Application.EnableEvents = True
    End If
End Sub

[ياسر خليل أبو البراء]

الحمد لله أنك توصلت للحل أخي زياد

يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط

انقر على العلامة <> أثناء كتابة المشاركة ثم الصق الكود فيه ثم انقر عبارة "أضف للمشاركة"

ليظهر الكود بهذا الشكل

الكود
Code Here