اضافه زر

[Osama-2020]

الاخوة الافاضل

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

برجاء المساعده فى اضافه (( زر ))  عند الضغط عليه يتم تحديث او نسخ البيانات كامله وبنفس الترتيب من ورقه العمل Data الى ورقه العمل الموجود بها ال (( زر )) فقط

وايضا ارجو اضافه :

بعد الانتهاء من تحديث او نسخ البيانات يتم ظهور رساله (( تم التحديث)) فى حاله كان هناك تعديل أو اضافه بيانات جديده..... او لا يوجد تحديث حاله لم يكن هناك اى جديد 

جزاكم الله خيرا كثيرا 🤲🤲Share.xlsx

تم تعديل ديسمبر 14, 2022 بواسطه Osama-2020

[حسين مامون]

وعليكم السلام

انسخ الماكرو الى محرر الاكواد واحفظ الملف بصيغة xlsm

ثم جرب 

 

Sub copy_tous()
Dim ws As Worksheet
Dim Aws As Worksheet
Dim lr
Set ws = Sheets("Data")
Set Aws = ActiveSheet
lr = ws.Cells(Rows.Count, 1).End(3).Row
     ws.Range("a2:ar" & lr).Copy Aws.Range("a2")
     msgbox"تم النسخ بنجاح"
End Sub

 

تم تعديل ديسمبر 16, 2022 بواسطه حسين مامون

[Osama-2020]

جزاكم الله خيرا استاذنا  @حسين مامون

الكود يعمل 100%