طلب مساعدة فى قاعدة if فى حال تساوي خليتين

[عبدالرحمن بدوى]

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

فى الملف المرفق أريد المساعدة فى صياغة قاعدة if فى الماكرو

أريد أن اقول لو قيمة e5 = j5

استدعى ماكرو un_check

او اظهر رسالة sorry only this user can make modification

 

 

وشكرا

trial macro.rar

[احمدزمان]

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

هذا الكود تضعه في حدث الورقة التي تعمل عليها

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E5") = Range("J5") Then Application.Run "Un_Check"
End Sub

 

trial macro.rar

[عبدالرحمن بدوى]

6 ساعات مضت, احمدزمان said:

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

هذا الكود تضعه في حدث الورقة التي تعمل عليها

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E5") = Range("J5") Then Application.Run "Un_Check"
End Sub

 

trial macro.rar

شكرا جدا لاهتمامك ومساعدتك

بس انا ليا طلب بسيط

اولا انا عايز كود ماكرو عادي لأني هربطه بزرار un check

ثانيا انا عايز انه لو الخليتبن مش متساويين يظهر لى رسالة الى انا كاتبها فوق

او اي رسالة عادي يعنى

[احمدزمان]

Sub az
If Range("E5") = Range("J5") Then
 Application.Run "Un_Check"
Else
Msgbox "sorry only this user can make modification"
End if
End Sub

 

[عبدالرحمن بدوى]

شكرا جدا على المساعدة

جزاكم الله خيرا

[احمدزمان]

العفو

آمين

و اياكم