طلب كود ترحيل

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

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

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

رفقت ملف  للتعديل 

0000.rar

[سليم حاصبيا]

جرب هذا الشيء

تم التعديل على بعض الخلايا (الغاء دمج بعض الخلايا و تغيير اسماء الصفحات )لسهولة عمل الكود

 

2 مندوب salim 2003.rar

تم تعديل يوليو 28, 2016 بواسطه سليم حاصبيا

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

12 ساعات مضت, سليم حاصبيا said:

جرب هذا الشيء

تم التعديل على بعض الخلايا (الغاء دمج بعض الخلايا و تغيير اسماء الصفحات )لسهولة عمل الكود

 

2 مندوب salim 2003.rar

ممنون منك اخي الكريم 

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

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

12 ساعات مضت, سليم حاصبيا said:

جرب هذا الشيء

تم التعديل على بعض الخلايا (الغاء دمج بعض الخلايا و تغيير اسماء الصفحات )لسهولة عمل الكود

 

2 مندوب salim 2003.rar

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

هاذ الكود 

Sub Abu_Ahmed_Trheel()
Dim LR As Integer
LR = [A1000].End(xlUp).Row
Range("A1:J" & LR).Copy Range("L" & [L1000].End(xlUp).Row + 1)
MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه"
End Sub