اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information