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

[رشا يوسف]

مممم.rar

السؤال فى الملف المرفق ( المطلوب ) 

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

الأخت الفاضلة رشا يوسف

إليكي الكود التالي عله يفي بالغرض إن شاء المولى

Sub Final()
    Dim WS As Worksheet
    Dim I As Integer
    Set WS = Sheets("Final")
    
    Application.ScreenUpdating = False
        With WS.Range("A3:L1000")
            .Offset(1).ClearContents
            .Borders.LineStyle = xlNone
        End With
        
        For I = 1 To 3
            Sheets(I).Range("A4:L" & Sheets(I).Cells(Rows.Count, "C").End(xlUp).Row - 1).Copy
            WS.Range("A" & WS.Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial xlPasteValues
        Next
        
        With WS.Range("C" & WS.Cells(Rows.Count, "C").End(xlUp).Row + 1)
            .Value = "الجملة"
            .Offset(, 2).Resize(, 5).Formula = "=ROUND(SUM(E4:E" & WS.Cells(Rows.Count, "C").End(xlUp).Row - 1 & "),2)"
        End With
        
        With WS.Range("A3:L" & WS.Cells(Rows.Count, "C").End(xlUp).Row)
            .Borders.Weight = xlThin
            .BorderAround Weight:=xlThick
        End With


    Application.CutCopyMode = False
    Application.ScreenUpdating = False
End Sub

قمت بإنشاء ورقة عمل باسم Final لعمل المطلوب في هذه الورقة ..

إليكي أيضاً الملف المرفق فيه تطبيق الكود

لا تنسي أن تحددي أفضل إجابة ليظهر الموضوع مجاب ومنتهي ، كما لا تنسي أن تضغطي على كلمة "أعجبني هذا" في حال أن المشاركة أعجبتك

تقبل الله منا ومنكم

Copy Sheets To Final Sheet YasserKhalil.rar

[رشا يوسف]

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

شكراااااااااااااااااااااااااااا  ليك 

         

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

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

يرجى الالتزام بالتوجيهات والضغط على "تحديد كأفضل إجابة" ليظهر الموضوع مجاب ومنتهي

تقبلي تحياتي

[محمد لطفى]

ماشاء الله على الابداع جزاكم الله خيرا