ترحيل أعمدة معينة من عدة صفحات إلى صفحة جديدة

[121403]

السلام عليكم

في المرفق 3 مصنفات لاكسيل في المصنفين بطاطس ، بيبسي أريد ترحيل أعمدة معينة من عدة ورقات في المصصنف إلى ورقة جديدة باسم total

وفي المصنف sheets أريد نقل بيانات الورقتين التين باسم total  في المصنفين السابقين إلى المصنف

sheets

بيانات الحساب.rar

والمطلوب موضح بالمرفق

[121403]

أرجو من خبراء الاكسيل الرد ومساعدتي إن أمكن

[الـعيدروس]

السلام عليكم

 

جرب استخدم الكود التالي للملفين بطاطس وببسي

واما الترحيل للملف Sheets لم يتوفر لدي الوقت غدا إن شاء الله

Public Sub Ta()
Dim S As Worksheet
Dim Rn As Range
Set T = Sheets("total")
T.Range(T.Cells(2, 1), T.Cells(T.Rows.Count, 16)).ClearContents
Application.ScreenUpdating = 0
For Each S In ThisWorkbook.Worksheets
If S.Name Like "شهر" & "*" Then
For Each Rn In S.Range("A10:A" & S.Cells(Rows.Count, 1).End(xlUp).Row)
If Not IsEmpty(Rn) Then
With S
Lr = T.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
Union(.Cells(Rn.Row, "H"), .Cells(Rn.Row, "I"), .Cells(Rn.Row, "O"), _
.Cells(Rn.Row, "P"), .Cells(Rn.Row, "V"), .Cells(Rn.Row, "W")).Copy
T.Range("C" & Lr).PasteSpecial xlPasteValues
End With
End If
Next
End If
Next
End Sub

[121403]

السلام عليكم

الأستاذ عباد جزاك الله خيراً

جربت الكود والأمور تمام

وأنا بانتظار الترحيل إلى الملف sheets

[121403]

أرجو من الأخوة أعضاء المنتدى مساعدتي في أقرب فرصة ما أمكن

[121403]

الأستاذ عباد الملف بطاطس وبيبسي لا ينسخ أكثر من 30 عمود هل من حل لهذا الموضوع

[121403]

ألا يوجد حل يااخوان الله يجزاكم خير

[samiaa711]

السلام عليكم

شكرا جزيلا على هذه الصفحات

وجعلها اااه في ميزان حسناتكم

[121403]

السلام عليكم

أريد كود الترحيل للملف sheet

الله يجزاكم الجنة