ارجو المساعدة توسيع السلسلة بالصفحات

[khaled1110]

اريد توسيع السلسلة بتتابع الصفحات

كما هو معلوم يمكنك توسيع السلسلة بتتابع الخلايا بحيث 1 2 عند السحب عليهم يصبح 1 2 3 4 5

لكن أريد عند السحب على خلية تأخذ قيمتها من خلية محددة مشابهة في جميع الورقات أن يتم نسخ قيمة هذه الخلية من كل الورقات في ملف الأكسل مع العلم أن أسماء الورقات مختلف وليس ورقة 1 ورقة 2

بحيث 1 في عمود A1 من ورقة 1

عند السحب يصبح

1 في عمود A1 من ورقة 1

1 في عمود A1 من ورقة 2

1 في عمود A1 من ورقة3

1 في عمود A1 من ورقة 4

مع العلم أن أسماء الورقاتمختلفة وعندي في الجدول اكثر من الف ورقة

ارجو المساعدة.rar

[الـعيدروس]

لماذا عند السحب

بالامكان عمل ماتريد بكود

Public Sub Ali_x()

Dim S As Worksheet

i = 19

For Each S In ThisWorkbook.Worksheets

If Not S.Name = ActiveSheet.Name Then

With S

.Range(.Cells(1, 1), .Cells(1, 5)).Copy

ActiveSheet.Range("A" & i).PasteSpecial xlPasteValues

i = i + 1

End With

Application.CutCopyMode = False

End If

Next

End Sub

[طارق محمود]

السلام عليكم

تفضل المرفق وبه الشرح

ارجو المساعدة.rar

[طارق محمود]

أخي الحبيب الغالي أبانصار

عفوا ، لم أر حلك قبل الإرسال

ولكن لابأس ، من باب تعدد الحلول

[khaled1110]

شكراااااااااااااا كتير الله الله يوفقكون يارب ويجزيكم كل خير