طلب تعديل كود

[ماهر الكعبي]

السلام عليكم شباب 

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

Sub Abu_Ahmed_Trheel()
Dim LR As Integer
Range("C16").Copy Sheets("ورقة1").Range("B" & Sheets("ورقة1").[B1000].End(xlUp).Row + 1)
Range("c16").ClearContents
MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه"
End Sub

Sub Abu_Ahmed1_Trheel()
Dim LR As Integer
Range("C15").Copy Sheets("سائل الوزير 800 مل   12 عبوة").Range("B" & Sheets("سائل الوزير 800 مل   12 عبوة").[B1000].End(xlUp).Row + 1)
Range("c15").ClearContents
MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه"
End Sub
 

اني الي اريد اعمله انو كل خليه تترحل لصفحه خاصه بها مثل C16 تترحل لورقه 1 و C15 تترحل لصفحه سائل الوزير وضبطت الشغله بس واجهتني مشكله انو عندما اضغط ترحيل يرحل خليه واحده فقط 

او يجب عمل كل خليه زر ترحيل خاص 

انا اريد اكثر من كود بزر ترحيل واحد ويرحل كل خليه لصفحه خاصه بها

[ياسر خليل أبو البراء]

أخي الكريم ماهر

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

الأفضل في طرح الموضوعات إرفاق ملف معبر عن الطلب لتوفير الوقت والجهد ولتكون الإجابة أدق من قبل الأخوة

أما العمل على مجرد تخمينات فهذا لا أحبذه على الإطلاق .. وقد يختلف معي الكثيرون لكني أتمسك برأيي في هذه النقطة ، لأن الملف المرفق معبر بشكل كبير عن الطلب ويكون العمل أفضل وأسرع وأدق ..

تقبل تحياتي