كود ترحيل من صفحة لأخرى بزر

[الصادق ـ ح]

السلام عليكم ...ارجو المساعدة في معادلة الترحيل من ورقة عمل الى ورقة أخرى 

والمطلوب

السلام عليكم اساتذتي الكرام

اريد ترحيل المعطيات من عمود    b  في هذا الشيت   التعيين   الى العمود  b  في شيت قائمة المبيعات

وكذلك معطيات العمود   c  في هذا الشيت   الى العمود   e   في شيت قائمة المبيعات

عنوان مخالف ... تم تعديل عنوان المشاركة ليتناسب مع طلبك

ترحيل.xlsm

[حسين مامون]

جرب هذا الماكرو لعله يفي بالغرض

Sub TRANS()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lr1, lr2
Set ws1 = Sheets("جدول المبيعات")
Set ws2 = Sheets("قائمة المبيعات")
        lr1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
        lr2 = ws2.Cells(Rows.Count, 2).End(xlUp).Row + 1
        ws1.Range("b6:b" & lr1).Copy ws2.Range("b" & lr2)
        ws1.Range("c6:c" & lr1).Copy ws2.Range("e" & lr2)
End Sub

ترحيل.xlsm

[الصادق ـ ح]

....هذا هو المطلوب بارك الله فيكم وجزاكم الله خيرا  و زادكم الله من علمه وفضله وفتح لكم ابواب الخير والعطاء..تحياتي استاذي