كود ترحيل

[nany4mg]

الاخوة الكرام

ممكن المساعدة في كود ترحيل للملف المرفق حيث انني اريد عند القيام باختيار ترتيب لسنة معينة واضغط على ترحيل ينتقل الجدول المطلوب الي صفحة اخرى 

ترحيل.xlsx

[حسين مامون]

انسخ هذا الماكرو واربطه بالزر

Option Explicit

Sub test()
Dim rg
With Sheets("Sheet1")
     rg = .Range("a" & Rows.Count).End(3).Row
    Sheets("Sheet2").Range("a1:c1000").ClearContents
    Sheets("Sheet2").Range("a1:c1000").Borders.LineStyle = 0
    .Range("a:a").Resize(rg, 3).Copy Sheets("Sheet2").Range("a1")
    .Range("$B$1:$B$16").AutoFilter Field:=1
End With
End Sub

 

[nany4mg]

الف شكر على المساعدة بارك الله فيك