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

[هاشم العلوي]

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

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

[هاشم العلوي]

نسخ شيت.rar هذا هو الملف المرفق ارجوا التعاون والمساعدة

[حسونة حسين]

السلام عليكم ورحمه الله وبركاته وبها نبدأ

تفضل اخى هاشم

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

[محمد يوسف ابو يوسف]

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

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

علي كل  حال 

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

 

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

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

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

[هاشم العلوي]

اخي محمد جزاك الله عني خير الجزاءهذا هو الملف مرة أخرى    نسخ شيت.rar

[محمد يوسف ابو يوسف]

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

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

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

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

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

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

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

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

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

 

[محمد يوسف ابو يوسف]

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

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

تم عمل الاتي

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

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

 

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

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

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

[هاشم العلوي]

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

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

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

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

 

[lionheart]

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

 

[محمد يوسف ابو يوسف]

غير هذا  

 For i = 1 To 10

ليكن هكذا 

 For i = 1 To 1

 

[هاشم العلوي]

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

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

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

[محمد يوسف ابو يوسف]

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

 

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

[هاشم العلوي]

الاخ ابو يوسف 

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

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

[هاشم العلوي]

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

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

[lionheart]

The output will be printed or what? Can you explain what will you do with the final output

[هاشم العلوي]

اخي الكريم lionheart

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

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

 

[lionheart]

What about PDF as output

[هاشم العلوي]

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

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

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

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

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

[محمد يوسف ابو يوسف]

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

اتمني من الله ان يكون تم طلبك

 

تفضل نموذج كنترول (1).xlsm

 

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

 

[هاشم العلوي]

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

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

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

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

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

اتمنى أن يكون المطلوب واضح

[محمد يوسف ابو يوسف]

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

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

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

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

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

[هاشم العلوي]

للرفع