(تمت الاجابة) ارجو المساعدة فى كود ترحيل

[على نور]

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

ارجو مساعدتى بكود ترحيل بسيط حتى استطيع التعديل فيه

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

التوضيح فى المرفق

توزيع.rar

[على نور]

للرفع

[طارق محمود]

السلام عليكم

أخي العزيز

إستعمل هذا الكود

Sub distribute()

LR = [B10000].End(xlUp).Row


For i = 1 To 6

	Asas_Col = i + 140

	x = "اساسى " & i

	y = "الدرجة النهائية  1"

	C1 = WorksheetFunction.Match(x, [B4:CX4], 0) + 1

	C2 = WorksheetFunction.Match(y, Range(Cells(6, C1), Cells(6, C1 + 9)), 0) + C1 - 1


		For r = 9 To LR

			If Cells(r, Asas_Col) > 0 Then

				With Sheet2

					Rw_1 = WorksheetFunction.Match(i, .[F1:F1000], 0) + 36

					LR_i = .Range("C" & Rw_1).End(xlUp).Row + 1


					.Cells(LR_i, "C") = Cells(r, "B")

					.Cells(LR_i, "B") = Cells(r, "D")

					.Cells(LR_i, "D") = Cells(r, C2)

				End With

			End If

		Next r

Next i


MsgBox ("تم الترحيل بحمد الله")


End Sub

يتم تشغيله بزر مثلا من ورقة الاساس

[طارق محمود]

تفضل المرفق وبه الكود

توزيع2.rar

[طارق محمود]

السلام عليكم

فيه خطأ بالكود سيتم تعديله حالا

الثلاث مواضع للدالة Match

المعامل 0 بدلا من 1

[طارق محمود]

بالنسبة لمن حمل الملف أرجو تصليحه كما سبق أو تحميل الجديد (مرفق)

توزيع3.rar

[على نور]

اخى فى الله طارق

كنت اعلم علم اليقين انك من سترد على

عمل اكثر من رائع جزاك الله خيرا

ولكن لى طلب بسيط هل يمكن عم ذلك دو زر اى ان الترحيل يكون اوتو متيكى

اخيك فى الله

وعذرا لتاخرى فى الرد

[طارق محمود]

السلام عليكم

تفضل أخي

المرفق به ماطلبت

توزيع4.rar

[على نور]

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

اشكرك استاذنا طارق على المجهود الطيب والمبذول

وجزاك الله خيرا

ولكن لى طلب بسيط

ماذا لو اردت ترحيل البيانات الموجود فى الاعمدة الصفراء

بمعنى ترحيل البيانات فى الاعمدة الصفراء وليس الحمراء بنفس الطريقة

توزيع5.rar

[على نور]

للرفع

[طارق محمود]

السلام عليكم

تفضل أخي المرفق

أرجو أن يكون هذا ماتريد

توزيع6.rar

[على نور]

اخى طارق

جزاك الله خيرا

ولكن ان اريد ات يتم ترحيل بيانات الدرجة النهائية 2 الى شيت التوزيع

يعنى ترحيل بيانات الدرجة النهائية 2 بدلا من الرجة النهائية 1

انظر المرفق ولكم جزيل الشكر

توزيع7.rar

[طارق محمود]

السلام عليكم

تفضل أخي المرفق

غير في أي من الخلايا الخضراء أو الخلية الزرقاء

توزيع8.rar

[على نور]

اخى واستاذى طارق جزاك الله خيرا عمل اكثر من رائع

ولكن لى طلب وهذا من عشمى وسعت صدركم عمل زر فى صفحة الاتوزيع بحيث اختار منه اساسى 1 واساى 2 وهكذا مع هذا الكود الرائع الذى قمت بعمله

جزاك الله خيرا

[طارق محمود]

السلام عليكم

تفضل المرفق

توزيع9.rar

[على نور]

اخى فى الله طارق السلام عليكم ورحمة الله

اريد ان تكون ها التنسيق ثابت اللى ان لونته بللون الاصفر

وان يكون هنا زر عند الضغط عليه يعرض اساسى 2 واساى 3 واساسى 4 وهكذا

بمعنى اخر صفحة واحدة وبيانات متغيرة على حسب كل اساسى

انظر المرفق

توزيع9.rar

[على نور]

للرفع

[على نور]

للرفع

[طارق محمود]

السلام عليكم

أخي العزيز

تفضل المرفق

توزيع10.rar

[على نور]

اخى طارق سلام الله عليك

اعرف انى اثقلت عليك

ولكن انظر هذه المشكلة فى الملف المرفق

وارجو ان تساعدنى

توزيع10.rar