ترحيل

[على نور]

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

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

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

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

ترحيل نور.rar

[طارق محمود]

السلام عليكم

أخي العزيز

تفضل كود بسيط مع شرح بسيط

Sub shift()

LR = [AV1000].End(xlUp).Row 'لمعرفة آخر سطر فيه نتيجة متعدد وجائز


For R = 11 To LR ' نبدأ حلقة من أول سطر به بيانات إلي آخر سطر


	x = Cells(R, "AV")

	With Sheets(x)

		LR2 = .[B1000].End(xlUp).Row + 1 'لتحديد آخر سطر جاهز لنقل بيانات

		.Cells(LR2, "B") = Cells(R, "B")

		.Cells(LR2, "C") = Cells(R, "D")

		.Cells(LR2, "D") = Cells(R, "E")

	End With


10

Next R

MsgBox ("الحمد لله" & Chr(10) & "تم الترحيل")


End Sub

وهذا هو المرفق

ترحيل نور.rar

[احمد حجازى]

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

[يوسف عطا]

ارفق ملف يا استاذ احمد لتلبية طلبك

[جمال عبد السميع]

إلي أساتذتي ومعلمي اللذين تعلمت منهم ولازلت أبحث عن كل خط يخطونة والقائمة طويلة وعظيمة من قمم هذا الصرح أقدم هذا الحل بالمعادلات بعد تقديم أساتذتي العظام حل الأكواد

ترحيل نور 2.rar