وعليكم السلام ورحمه الله وبركاته
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

عمل رئع اخي hassona هذا هوالمطلوب جزاك الله خيراً
لكن لوسمحت اخي اريد عمل نسخة احطياطيةللملف في هذا المسار ="D:backBackup"

جزاك الله خيراً اخي الكريم نسأل الله لك العفو والعافية في الدنيا والآخرة

جزاكم الله خيرا على دعائك الطيب
آمين ولك بالمثل

استبدل السطرين

            MakeSureDirectoryPathExists ThisWorkbook.Path & "\backup\"
            ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\backup\" & Nam & ".xlsm"

بالسطرين

            MakeSureDirectoryPathExists "d:\backup\"
            ThisWorkbook.SaveCopyAs Filename:="d:\backup\" & Nam & ".xlsm"

أحسنت أيها البطل المغوار حسونة. بارك الله فيك

بارك الله فيك أخى الغالى / حســـونه
ما شاء الله شعلة نار سرعة الاجابة و روعة أداء
جزاك الله خيرا
-----------
وبعد اذنك تلبية لأخونا محمد عبد السلام ـ
الجزء الأخير من الطلب للسؤال بوضع رسالة تنبيه بالاختيار من الترحيل من عدمه
أستاذ / محمد
قبل هذا السطر الموجود بالكود

lr = wss.Range("a" & Rows.Count).End(xlUp).row + 1

قم بإضافة هذه الأسطر لرسالة التنبيه

MD = MsgBox(" هل تريد الترحيل الى Sheet1  ؟", vbYesNo + vbQuestion + vbDefaultImage30 + vbApplicationModal, "أكاديمية الصقر للتدريب")
  If MD = vbNo Then
    Exit Sub
       End If

السلام عليكم ورحمه الله وبركاته جزاكم الله خيرا اخواتي الافاضل على المساهمه في تلبياث طلبي لقد قمت باضافه السطر في المكان الذي اشار اليه محمد الدسوقي المشكله اذا قمت بالغاء الترحيل الى شيت واحد يتم الغاء حتى من شيت اثنان اريد لما اوافق على الترحيل يتم الترحيل الى شيتين طالبي هوا اذا قلت نعم يتم ترحيل الى Sheet1 وSheet2 واذا قلت , لا , يتم الترحيل الى Sheet2 ولكن يتم الغاء الترحيل الى Sheet1

اتفضل أخى الكريم
الملف المرفق به المطوب الذى أشرتم به و معذرة طلبكم لم يكن واضحا فى المشاركة الأخيرة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

عمل رائع اخي محمد الدسوقى هذا هوالمطلوب جزاك الله خيراً
اعتذر اخي محمد الدسوقى على طلبي كان غير وضح
لوسمحت اخي الكريم اريد عمل نسخة احطياطيةللملف في هذا المسار /="D:backBackup"/

ولقد وجهتني مشكله اخرى

الكود يعمل بشكل رائع المشكله هي اذا قمت بالغاء الترحيل الى شيت واحد يتم الغاء الاحتفاظ بنسخ احتياطيه حتى في جهاز الكمبيوتر اريد الاحتفاظ بجميع النسخ في الجهاز
وجزاك الله خيراً اخي الكريم نسأل الله لك العفو والعافية في الدنيا والآخرة

اتفضل يا أستاذ محمد عبد السلام
لك ما طلبت ... وملحوظة هامة لابد أن يكون اسم المجلد الذى ستجعله فى المكان المخصص D: هو نفسه الموجود فى الكود ( تأكد من تطابق الاسمين)
فى هذا الجزء من الكود

CODE

</strong>ActiveWorkbook.SaveCopyAs Filename:=&quot;D:Backup&quot;<strong>

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

بارك الله فيك استاذنا محمد الدسوقى
وبعد اذن سماحتكم
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

جزآكم الله خير على المجهود في الموضوع
وأسأل الله لي ولك التوفيق والسداد
ما شاء الله
لكم خالص تقديري واحترامي

بارك الله فيكما أخي محمد الدسوقي وحسونة وجزيتما خير الجزاء.

يرجى فيما بعد عند طرح موضوع أن يكون العنوان للموضوع معبر عن الموضوع ولا يحتوي على كلمة طلب أو مساعدة أو خلافه بل يجب أن يصف المشكلة أو الموضوع المراد البحث عنه.