سؤال عن عمل كود عباره عن امر لخمس ملفات مفتوحه في ان واحد

[رشا يوسف]

السلام عليكم ...

ارجو المساعده في الرد علي سؤالي ...

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

مثال 

امر : حذف خمس اعمده من شيت رقم واحد في الملف الاول وحذف خمس اعمده من شيت رقم واحد في الملف الثاني وحذف خمس اعمده من شيت رقم واحد في الملف الثالث  وهكذا .....

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

الأخت الفاضلة رشا

إن شاء الله يمكن عمل المطلوب .. لكن رجاء إرفاق ملف توفيراً لوقت الأخوة الأعضاء ..

تقبلي تحياتي

[رشا يوسف]

مرتبات شهر 12.rar

داخل الملف المرفق اربع ملفات 

المطلوب 

عند فتح اربع ملفات في ان واحد او اكثر من اربع ملفات نعطي لهم كود يامر بتغير مثال : من محافظه السويس الي محافظه الشرقيه 

ويكون التغير في شيت رقم1 في كل ملف 

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

أختي الفاضلة ما هي الأعمدة التي تريدين حذفها ..

هل ورقة العمل المقصود بها الورقة الأولى أي ورقة الضريبة أم ورقة العمل المسماة "1" ؟

حددي الأعمدة المراد حذفها عمود A وعمود B مثلاً (مثال لما يجب أن يتم طرحه)

 

[رشا يوسف]

بارك الله فيك وجزاك الله خيرا 

المقصود ورقة العمل "1" والاعمدة المراد حذفها عمود a 

المطلوب كود ( كود يحذف العمود a  من ورقة العمل "1" فى كل الملفات المفتوحة  

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

الأخت رشا

طبعاً هناك تضارب في المعلومات كما أرى .. في المشاركة الأولى ذكرتي أن الأعمدة المطلوب حذفها 5 أعمدة وفي المشاركة السابقة عمود واحد

عموماً ..المهم الفكرة في الطلب ..

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

Sub DeleteColumnFromAllOpenWBs()
    Dim WB As Workbook
    For Each WB In Workbooks
        If WB.Name <> ThisWorkbook.Name Then
            WB.Worksheets("1").Columns(1).Delete
        End If
    Next WB
    MsgBox "Completed ...", 64
End Sub

 

مرتبات شهر 12.rar

[رشا يوسف]

شكر وتقدير لعباقرة الاكسل والاكواد 

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

على الرحب والسعة أختي رشا

بس يا ريت في موضوعاتك القادمة إن شاء الله ميكونش فيه تضارب في المعلومات .. دائماً وأبداً إخواني لا ننسى التفاصيل بل وأدق التفاصيل حيث أن ذلك يجعل الصورة واضحة لمن أراد أن يقدم المساعدة

والحمد لله الذي بنعمته تتم الصالحات