ارجو المساعده لاظهار رساله تنبيه

[احمد محمد ماترك]

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

اخواني الكرام  

اريد عند الضغط علي زرار ترحيل تظهر لافته تنبيه مكتوب عليها تم الترحيل 

والملف مرفق يوضح المطلوب 

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

 

Matrek (1).xlsm

[نبيل عبد الهادي]

Option Explicit

Sub Dive_Last_Row()
  If ActiveSheet.Name = "الايراد" Then Exit Sub
  Sheets("الايراد").Range("a3").End(4).Offset(1).Resize(, 3).Value = _
  ActiveSheet.Range("a4").End(4).Resize(, 3).Value
MsgBox "تم الترحيل", vbDefaultButton1, "رسالة تنبيه "

End Sub

 

[احمد محمد ماترك]

7 minutes ago, نبيل عبد الهادي said:

Option Explicit

Sub Dive_Last_Row()
  If ActiveSheet.Name = "الايراد" Then Exit Sub
  Sheets("الايراد").Range("a3").End(4).Offset(1).Resize(, 3).Value = _
  ActiveSheet.Range("a4").End(4).Resize(, 3).Value
MsgBox "تم الترحيل", vbDefaultButton1, "رسالة تنبيه "

End Sub

 

الف الف شكر اخي الكريم  بارك الله فيك