استدعاء بيانات من صفحتين وتجميعهم فى صفحه واحدة

[احمد حبيبه]

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

الاخوة الاعزاء

المطلوب معادله تقوم باستدعاء تلاميذ المستوى الاول الموجودين فى ورقة 1
وبعد انتهاء استدعاء المستوى الاول تقوم المعادلة باستدعاء تلاميذ المستوى الثانى الموجودين فى ورقه 11
فى اخر خليه فارغه بعد المستوى الاول مع مراعاة ان تكون المعادلة مطاطه وتراعى زياده او نقصان عدد التلاميذ فى كل صف

استدعاء.rar

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

 Sub Give_Data()
Dim first As Worksheet
Dim sec As Worksheet
Dim third As Worksheet
Dim lr1%, lr2%, m%: m = 4
 Set first = Sheets("ورقة1")
 Set sec = Sheets("ورقة11")
 Set third = Sheets("تجميع")
 third.Range("b3").CurrentRegion.Offset(1).ClearContents
 lr1 = Application.Max(first.Range("b:b")) + 3
 lr2 = Application.Max(sec.Range("b:b")) + 3
 third.Cells(m, 2).Resize(lr1 - 3, 9).Value = _
 first.Range("b4").Resize(lr1 - 3, 9).Value
 m = m + lr1 - 3
 third.Cells(m, 2).Resize(lr2 - 3, 9).Value = _
 sec.Range("b4").Resize(lr2 - 3, 9).Value
End Sub

الملف مرفق

استدعاء.xlsm

[احمد حبيبه]

اخى العزيز سليم حاصبيا

الكود رائع وسلس

لكن هل يمكن العمل من خلال المعادلات

ان امكن

تحياتى اخى العزيز

[سليم حاصبيا]

By formula استدعاء.xls