نسخ الصفحه الاولى ولصقها على باقي صفحات الملف

[احمد شيخ الشباب]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

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

ولكم جزيل الشكر

العملاء.rar

[احمد شيخ الشباب]

      Dim I As Byte '0-to-255

      For I = 1 To 400

      ActiveWorkbook.Sheets("1").Copy After:=ActiveWorkbook.Sheets("1")

        Next I

 

تم ارسال هذا الكود لي من احد الاصدقاء 

اارجو الافاده

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

أخي الكريم

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

جرب الكود التالي عله يفي بالغرض

Sub CopySheetToAllSheets()
    Dim I As Long
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        For I = 2 To 400
            Sheet1.Cells.Copy
            Sheets(I).Paste
        Next I
    Application.CutCopyMode = False
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

لا تنسى أن تحدد أفضل إجابة في حالة أن تم عمل المطلوب كما أردت

[احمد شيخ الشباب]

أخي الكريم

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

جرب الكود التالي عله يفي بالغرض

Sub CopySheetToAllSheets()
    Dim I As Long
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        For I = 2 To 400
            Sheet1.Cells.Copy
            Sheets(I).Paste
        Next I
    Application.CutCopyMode = False
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

لا تنسى أن تحدد أفضل إجابة في حالة أن تم عمل المطلوب كما أردت

 

 

لم ينجح اخي العزيز

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

تم تغيير اسم الظهور تقبل تحياتي

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

أخي الكريم

جرب الملف المرفق

اضغط Alt+ F8 واختار الماكرو ثم انقر RUN

العملاء.rar

[احمد شيخ الشباب]

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

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

وجزيت بمثله يا شيخ الشباب

مشكور على الالتزام بالتوجيهات

الحمد لله الذي بنعمته تتم الصالحات ..هذا من فضل ربي ، ولئن شكرتم لأزيدنكم

[احمد شيخ الشباب]

وجزيت بمثله يا شيخ الشباب

مشكور على الالتزام بالتوجيهات

الحمد لله الذي بنعمته تتم الصالحات ..هذا من فضل ربي ، ولئن شكرتم لأزيدنكم

من واجبنا الالتزام بالتعليمات

واحترام لمن قدم لنا العلم و الفكره والنصح والمشوره

اذكرك واذكر نفسي بقوله تعالى: { هل جزاء الإحسان إلا الإحسان}

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