اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود عمل نسخة من شيت في ملف جديد


إذهب إلى أفضل إجابة Solved by lionheart,

الردود الموصى بها

طلب مساعدة.rar 739.28 kB  ·  1 downloadخوان من فترة رسلت بملف اطلب كود لعمل نسخة من الشيت باسم جديد وتكون النسخة بدون معادلات أو ارتباطات ولم يرد عليا أحد ولو بفكرة اليكم الملف وفيه توضيح للمطلوب جزيتم خيرا

انتبه من فضلك ... مشاركة مكررة , تــــم بالفعل حذف المشاركة الأخرى  ,,, يكفيك كتابة كلمة للـــــرفع 

رابط هذا التعليق
شارك

اخي  هاشم العلوي

شرحك غير كافي وملفك غير موجود

علي كل  حال 

تفضل طلبك المصنف1.xlsm

 

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

اخبرني بالنتيجه  

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

رابط هذا التعليق
شارك

اخي   هاشم العلوي

مذال طلبك غير واضح---- 

هل يوجد لديك ملف في مكان معين وتريد الترحيل اليه

ام تريد عمل نسخة من شيت معين - في مكان معين

من فضلك  قم بتوضيح المطلوب  

1- اكتب المدي المراد نسخه  مثال a1:الي h100

2-المكان المراد النسخ اليه هل  هو ملف  ام فولدر

3-وعلي اي برتشن تريد النسخ  مثال d-a-t-c

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

 

رابط هذا التعليق
شارك

اخي  هاشم العلوي

طبعاً لعدم توضيحك لطلبك

تم عمل الاتي

حفظ الصفحة بأسم خليه  h5

يتم حفظ الملف علي برتيشن d

 

الملف   نموذج كنترول .xlsm

اخي هل هذا هو المطلوب 

اخبرني بالنتيجه

  • Like 1
رابط هذا التعليق
شارك

اخي ابو يوسف  تم تعديل المدى إلى a1:bf44 

كما تم حذف السطور الخاصة بتفريغ بعض الخلايا 

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

أسأل الله أن يجعل هذا العمل في ميزان حسناتك يارب وجزاك الله عني خير الجزاء

 

رابط هذا التعليق
شارك

  • 3 weeks later...
  • أفضل إجابة
Sub Test()
    Const nRows As Integer = 25, iRow As Integer = 15
    Dim wb As Workbook, ws As Worksheet, sh As Worksheet, i As Integer
    Application.ScreenUpdating = False
        Set ws = ActiveSheet
        Set wb = Workbooks.Add(xlWBATWorksheet)
        For i = 1 To 10
            ws.Range("A" & iRow).Value = (i - 1) * nRows + 1
            If ws.Range("B" & iRow).Value = Empty Then Exit For
            ws.Copy After:=wb.Sheets(wb.Worksheets.Count)
            Set sh = ActiveSheet
            sh.Name = i
            With ws.Range("A" & iRow & ":BF39")
                .Copy
                sh.Range("A" & iRow).PasteSpecial xlPasteValues
                sh.Columns("BG:BH").Delete
                Application.Goto sh.Range("A1"), True
            End With
        Next i
        Application.DisplayAlerts = False
            With ActiveWorkbook
                .Worksheets(1).Delete
                .SaveAs ThisWorkbook.Path & "\Output", 51
                .Close False
            End With
        Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Done", 64
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

  • 3 weeks later...

اخي الكريم ابو يوسف اولا  شكرا جزيلا لمرورك الكريم

تم الاستبدال كما قلت ولكن للاسف لم يكن المطلوب فقد تم نسخ الصفحة الأولى فقط 

جزاك الله عني خير الجزاء 

رابط هذا التعليق
شارك

الاخ ابو يوسف 

اولا اشكرك من كل قلبي لمرورك الكريم ويعلم الله اني ادعوا لكل من تعاون معي 

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

رابط هذا التعليق
شارك

كود الاستاذ lionheart يقوم بنسخ الصفحة ١ في ورقة والثانية في ورقة أخرى واريدها في ورقة واحدة 

اذا امكن عمل كود اخر وقبل اغلاق الملف يقوم بنسخ الصفحات الأخرى في الصفحة الاولى

رابط هذا التعليق
شارك

اخي الكريم lionheart

اسال الله ان يحفظك ويزيدك علما 

الملف المطلوب  ينسخ  في cd  ويرسل الى مكتب التربية بالمديرية والمحافظة وللوزارة

 

رابط هذا التعليق
شارك

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

ليس طلبي بالضبط 

لا اريد نسخ كل الاوراق اريد نسخ الورقة التي أنا واقف عليها هناك أوراق لا احتاج نسخها نهائيا مثل ورقة اول \ثاني

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

لان المطلوب منا نسخة ورقية وأخرى اكسل مطابقة للنسخة الورقية وإن تحتوى على القيم فقطالمصنف3.xlsx 

رابط هذا التعليق
شارك

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

ليس طلبي بالضبط 

لا اريد نسخ كل الاوراق اريد نسخ الورقة التي أنا واقف عليها هناك أوراق لا احتاج نسخها نهائيا مثل ورقة اول \ثاني

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

لان المطلوب منا نسخة ورقية وأخرى اكسل مطابقة للنسخة الورقية وإن تحتوى على القيم فقطالمصنف3.xlsx 

اتمنى أن يكون المطلوب واضح1334369969_.JPG.75a34ebbd21bcb5b250e4ce66fa47b10.JPG

رابط هذا التعليق
شارك

اخي بالفعل بيتم نسخ اي بيانات ظاهرة

لان طلبك غير مفهوم

اخي من فضلك اقفل هذه المشاركة 

وقم بطلب باقي  طلبك في مشاركه اخري

انظر بعد النسخ

2022-02-27.png.3035de85032e1f6c66ba1915f15f496e.png

  • Like 1
رابط هذا التعليق
شارك

  • 3 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information