بارك الله فيك أخى الغالى / حســـونه
ما شاء الله شعلة نار سرعة الاجابة و روعة أداء
جزاك الله خيرا
-----------
وبعد اذنك تلبية لأخونا محمد عبد السلام ـ
الجزء الأخير من الطلب للسؤال بوضع رسالة تنبيه بالاختيار من الترحيل من عدمه
أستاذ / محمد
قبل هذا السطر الموجود بالكود
CODE
lr = wss.Range("a" & Rows.Count).End(xlUp).row + 1
قم بإضافة هذه الأسطر لرسالة التنبيه
CODE
MD = MsgBox(" هل تريد الترحيل الى Sheet1 ؟", vbYesNo + vbQuestion + vbDefaultImage30 + vbApplicationModal, "أكاديمية الصقر للتدريب")
If MD = vbNo Then
Exit Sub
End If