nany4mg قام بنشر يونيو 29, 2021 مشاركة قام بنشر يونيو 29, 2021 الاخوة الكرام ممكن المساعدة في كود ترحيل للملف المرفق حيث انني اريد عند القيام باختيار ترتيب لسنة معينة واضغط على ترحيل ينتقل الجدول المطلوب الي صفحة اخرى ترحيل.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر يونيو 29, 2021 أفضل إجابة مشاركة قام بنشر يونيو 29, 2021 انسخ هذا الماكرو واربطه بالزر 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 1 رابط هذا التعليق شارك More sharing options...
nany4mg قام بنشر يونيو 30, 2021 الكاتب مشاركة قام بنشر يونيو 30, 2021 الف شكر على المساعدة بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.