تنبيه عند تغيير في خلية

[نايف - م]

السلام عليكم 

في مجال به خلايا مكتوب و حلايا فارغة .. كيف يمكن الحصول على مسج عند تغيير احدى الخلايا المكتوبة

مع الشكر

ملاحظة : لا يمكن الطلب من خلال ملف 

جربت الكود التالي و لم ينجح 

 

Dim KeyCells As Range

' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
'    Set KeyCells = Range("A1:C10")
lastrow = æÑÞÉ11.Cells(rows.Count, "b").End(xlUp).Row
        Set KeyCells = æÑÞÉ11.Range("b2:b" & lastrow)
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

' Display a message when one of the designated cells has been changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed."

End If

 

[omar elhosseini]

اخي 

ضع الكود التالي في حدث التغير

 

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
'    Set KeyCells = Range("A1:C10")
lastrow = æÑÞÉ11.Cells(Rows.Count, "b").End(xlUp).Row
Set KeyCells = æÑÞÉ11.Range("b2:b" & lastrow)
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

    ' Display a message when one of the designated cells has been changed.
    ' Place your code here.
    MsgBox "Cell " & Target.Address & " has changed."
End If
'
End Sub

 

شاهد المرفق

 

المصنف1.xlsm

 

 

[نايف - م]

الأخ الغالي omar elhosseini

نفس الكود أنا وضعته في مشاركتي و قلت أنني جربته و لم ينجح 

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

أنا أريد الرسالة فقط في الخلايا المكتوب فيها و ليست الفارغة

مع الشكر

[omar elhosseini]

شاهد المرفق

المصنف1.xlsm