السلام عليكم شباب
سويت كود ترحيل عن طريق شرح الاخ عبد الله المجرب وعدلت فيه ليصبح هاكذا
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 تترحل لصفحه سائل الوزير وضبطت الشغله بس واجهتني مشكله انو عندما اضغط ترحيل يرحل خليه واحده فقط
او يجب عمل كل خليه زر ترحيل خاص
انا اريد اكثر من كود بزر ترحيل واحد ويرحل كل خليه لصفحه خاصه بها