طلب كود ترحيل عاجل من شيتات لشيت اجمالي

[gamalin]

الاخوة الكرام

لدي ملف بع عدد كبير من الصفحات

و بكل منها سطر للاجمالي

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

 

مطلوب ترحيل السطر رقم 10 في كل صفحة بجوار السطر الذي فيه اسم الصفحة

 

test.rar

[ابراهيم الحداد]

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

انسخ هذا الكود والصقه فى محرر الاكواد وخصص له زر

Sub TrnsData()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "toc" Then
Sh.Range("B10:G10").Copy
For R = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & R) = Sh.Name Then
Range("F" & R).PasteSpecial xlPasteValues
End If
Next
End If
Application.CutCopyMode = False
Next
Next
Application.ScreenUpdating = True
End Sub

 

[محمد لؤي]

جزيت خيرا

 

[gamalin]

بارك الله فيك شكرا على سرعة الاستجابة

زادك الله علما