احمد محمد ماترك قام بنشر أبريل 11, 2019 مشاركة قام بنشر أبريل 11, 2019 السلام عليكم ورحمه الله وبركاته اخواني الكرام اريد عند الضغط علي زرار ترحيل تظهر لافته تنبيه مكتوب عليها تم الترحيل والملف مرفق يوضح المطلوب وجزاكم الله كل خير Matrek (1).xlsm رابط هذا التعليق شارك More sharing options...
نبيل عبد الهادي قام بنشر أبريل 11, 2019 مشاركة قام بنشر أبريل 11, 2019 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 1 1 رابط هذا التعليق شارك More sharing options...
احمد محمد ماترك قام بنشر أبريل 11, 2019 الكاتب مشاركة قام بنشر أبريل 11, 2019 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 الف الف شكر اخي الكريم بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.