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

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


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

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

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

وأريد كود يمكنه اختيار كل الصفحات بالملف عدا صفحتين صفحة حركة الحسابات وصفحة 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

تقبل تحياتي

 

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

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

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

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

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

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

تقبل تحياتي

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

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

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

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

جرب اامرفق

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

 

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

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

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