طلب مساعدة في كود ترحيل اعمدة محددة الى صفحة 2 و بنفس التنسيق الموجود في الصفحة الرئيسية

[زياد عبد الجليل]

السلام عليكم

لدي ملف قمت ببرمجة زر يقوم بالفلترة و بعدها ترحيل البيانات المفلترة الى الصفحة 2 لكن اريد ترحيل اعمدة محددة دون أخرى و ارجو ان يتم الترحيل وفق التنسيق الموجود في الصفحة الرئيسية (2) ولكم مني جزيل الشكر

ملف ترحيل متخصص.rar

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

جرب هذا الكود

Option Explicit
Sub copy_range()
Dim lr2%, lrFeuil_2%
lr2 = Sheets("2").Cells(Rows.Count, 1).End(3).Row
If lr2 < 15 Then lr2 = 15
lrFeuil_2 = Sheets("Feuil2").Cells(Rows.Count, 1).End(3).Row + 1

    With Sheets("2")
        Union(.Range("a16:i" & lr2), .Range("L16:V" & lr2)). _
        Copy Sheets("Feuil2").Range("a" & lrFeuil_2)
    End With
End Sub

 

[زياد عبد الجليل]

شكرا لك استاذ الكود يعمل بشكل جيد