mahmoud hamza قام بنشر سبتمبر 2, 2018 قام بنشر سبتمبر 2, 2018 السلام عليكم لدى زر ماكرو لجلب بيانات محدده اريد ادخال header and footer ضمن الماكرو هل يمكن ادخال تذيل رأسى وأفقى فى كود الترحيل هذا هو الكود الذى اريد التعديل عليه Application.ScreenUpdating = False Dim My_rg As Range Dim x%, i%, a(), k%: k = 1 Dim lr%: lr = Sheets("All WaFa").Cells(Rows.Count, 1).End(3).Row Set My_rg = Sheets("All WaFa").Range("a1:AJ" & lr) Sheets("تقرير").Range("b1").CurrentRegion.Resize(500).Clear a = Array(4, 5, 9, 21, 12, 13, 14, 17, 16, 22, 25, 6, 49, 7) For i = 0 To 13 My_rg.Columns(a(i)).SpecialCells(xlCellTypeVisible).Copy _ Sheets("تقرير").Cells(1, k) k = k + 1 Next Erase a Application.ScreenUpdating = True End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.