طلب كود اختيار كل الصفحات وحذفها

[gamalin]

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

لدي ملف به مجموعة من الصفحات وتنشا به صفحات أخرى دوما

وأريد كود يمكنه اختيار كل الصفحات بالملف عدا صفحتين صفحة حركة الحسابات وصفحة statement

وحذف الصفحات المختارة

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

ولم اعرف كود لالغاء الاختيار للصفحتين

الامر هام بالنسبة لي اريد كود للتعامل مع كل الصفحات بالملف واي ملف دون كتابة اسمائها في الكود ؟

 

test.rar

[ياسر خليل أبو البراء]

أخي الكريم جمال الدين

يرجى تغيير اسم الظهور للغة العربية فضلاً لا أمراً

جرب الكود التالي لحذف كل أوراق العمل ما عدا الورقة الأولى (حركة الحسابات) والورقة الثانية (Statement)

Sub DeleteAllSheetsExceptTwo()
    Dim Sh As Worksheet
    
    Application.DisplayAlerts = False
        For Each Sh In ThisWorkbook.Sheets
            If Sh.Name <> Sheet1.Name And Sh.Name <> Sheet2.Name Then
                Sh.Delete
            End If
        Next Sh
    Application.DisplayAlerts = True
End Sub

تقبل تحياتي

 

[gamalin]

3 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم جمال الدين

يرجى تغيير اسم الظهور للغة العربية فضلاً لا أمراً

جرب الكود التالي لحذف كل أوراق العمل ما عدا الورقة الأولى (حركة الحسابات) والورقة الثانية (Statement)

Sub DeleteAllSheetsExceptTwo()
    Dim Sh As Worksheet
    
    Application.DisplayAlerts = False
        For Each Sh In ThisWorkbook.Sheets
            If Sh.Name <> Sheet1.Name And Sh.Name <> Sheet2.Name Then
                Sh.Delete
            End If
        Next Sh
    Application.DisplayAlerts = True
End Sub

تقبل تحياتي

 

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

ثانيا اشكرك للكود الجميل ولكن اذا تكرمت توضح ولو بمثال كيف يمكنني كتابة اسم الصفحة sheet1.name بمعنى هل سأضع حركة الحسابات مكان كلمة name وكذلك statement ام سيظل هكذا

الكود رائع بل اكثر من رائع وتمت تجربته بنجاح باهر اشكرك

اخي الكريم لدي ملف به كود لانشاء صفحات كلما تغير الاسم في عمود معين

ولكنه بعد انشاء الصفحات المطلوبة كلها يقوم بعمل عدة صفحات زائدة ولا اعرف ما الخطا فيه

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

حركة الحسابات.rar

[ياسر خليل أبو البراء]

أخي الكريم جملين ..

قم بالإطلاع على الفيديو التالي لتعرف ما هي الأسماء البرمجية ..

وما زلنا ننتظر أن نرى اسمك ساطعاً باللغة العربية وإن شاء الله لن تنساه لأنك في أوفيسنا في بيتك الثاني ولست في أي منتدى آخر

تقبل تحياتي

[أبوعيد]

أخي جملين أهلا بك

تم التعدل على الكود داخل ملفك المرفق بحيث يتم حذف كل الشيتات الزائدة

جرب اامرفق

حركة الحسابات1.rar

[gamalin]

15 ساعات مضت, أبوعيد said:

أخي جملين أهلا بك

تم التعدل على الكود داخل ملفك المرفق بحيث يتم حذف كل الشيتات الزائدة

جرب اامرفق

حركة الحسابات1.rar

اخي الفاضل أبو عيد اشكرك لمرورك الكريم

عذرا اخي الكريم لم الحظ أي فارق عند تشغيل الكود أنشئت العديد من الصفحات الإضافية أيضا ولم يحدث أي فارق

23 ساعات مضت, gamalin said:

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

ثانيا اشكرك للكود الجميل ولكن اذا تكرمت توضح ولو بمثال كيف يمكنني كتابة اسم الصفحة sheet1.name بمعنى هل سأضع حركة الحسابات مكان كلمة name وكذلك statement ام سيظل هكذا

الكود رائع بل اكثر من رائع وتمت تجربته بنجاح باهر اشكرك

اخي الكريم لدي ملف به كود لانشاء صفحات كلما تغير الاسم في عمود معين

ولكنه بعد انشاء الصفحات المطلوبة كلها يقوم بعمل عدة صفحات زائدة ولا اعرف ما الخطا فيه

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

حركة الحسابات.rar

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

[ياسر خليل أبو البراء]

غير في السطر التالي

If Sh.Name <> "حركة الحسابات" And Sh.Name <> "اسم ورقة العمل المراد الإبقاء عليها" Then

 

[gamalin]

منذ ساعه, ياسر خليل أبو البراء said:

غير في السطر التالي

If Sh.Name <> "حركة الحسابات" And Sh.Name <> "اسم ورقة العمل المراد الإبقاء عليها" Then

 

جزاك الله خيرا اخي الكريم بقيت مشكلة واحدة وهي لماذا يقوم الكود بانشاء صفحات اكثر من المطلوبة في كود addcustomer

[أبوعيد]

نعم أخي كلامك صحيح عفوا

سبحان الله جل ما لا يسهو .

تم التعديل

تفضل

حركة الحسابات2.rar