gamalin قام بنشر ديسمبر 18, 2016 مشاركة قام بنشر ديسمبر 18, 2016 الاخوة الكرام لدي ملف بع عدد كبير من الصفحات و بكل منها سطر للاجمالي وأريد كود لترحيل بيانات السطر الإجمالي في صفحة اجمالية مجمعة مكتوب بها بيان بأسماء الصفحات مطلوب ترحيل السطر رقم 10 في كل صفحة بجوار السطر الذي فيه اسم الصفحة test.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر ديسمبر 18, 2016 مشاركة قام بنشر ديسمبر 18, 2016 السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى محرر الاكواد وخصص له زر 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 1 رابط هذا التعليق شارك More sharing options...
محمد لؤي قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 جزيت خيرا رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر ديسمبر 19, 2016 الكاتب مشاركة قام بنشر ديسمبر 19, 2016 بارك الله فيك شكرا على سرعة الاستجابة زادك الله علما رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.