(تمت الاجابة) تجميع عدة جداول في جدول واحد بالترتيب - دون الفارغة

[nono2011]

السلام عليكم

عندي ملف أريد مساعدتكم فيه وهو عبارة عن :

3 جداول أريد تجميعها في جدول واحد بالترتيب والأعمدة المقصودة بالتجميع هي أعمدة الاسم واللقب من الجدول 1 والجدول 2 والجدول 3

لتتجمع او ترحل لجدول التجميع ...

ملاحظة : مثلا الجدول 1 إذا كان فارغا ينتقل للجدول 2 وهكذا ... ( دون حساب الخلايا الفارغة )

كما اريد منكم لو أمكن طريقتين : 1 - بالاكواد 2 - بالمعادلات

والشرح المطلوب موجود بالمرفق

وشكرا سلفا لمن يقدم يد المساعدة

تجميع.rar

[ابو اسامة العينبوسي]

السلام عليكم

هكذا

Sub ÓåãááãÓÝá1_äÞÑ()

Dim Z, LR As Long

'---------------------------------------------

Range(Cells(12, "M"), Cells(51, "M")).ClearContents

'---------------------------------------------

Z = 4

For X = 1 To 3

For i = 1 To Application.WorksheetFunction.CountA(Range(Cells(12, Z).Address, Cells(51, Z).Address))

	LR = Cells(100, "M").End(xlUp).Row + 1

	Cells(LR, "m") = Cells(i + 11, Z + 1)

Next i

   Z = Z + 3

Next X

End Sub

اضغظ السهم فوق كلمة تجميع

test10.rar

تم تعديل نوفمبر 30, 2011 بواسطه ابو اسامة العينبوسي

[الـعيدروس]

السلام عليكم

جزاك الله خير استاذ ابو اسامة العينبوسي

هكذا الاكواد ولا فلا

تقبل مروري

[nono2011]

السلام عليكم :

انني اعجز عن الشكر ولا اجد العبارات المناسبة .... لذا اترك الاجر على الله .

لكن هل يمكن ان أن تكون نفس الطريقة بالمعادلات ؟

تم تعديل ديسمبر 1, 2011 بواسطه nono2011