بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'header and footer'.
تم العثور علي 1 نتيجه
-
السلام عليكم لدى زر ماكرو لجلب بيانات محدده اريد ادخال 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
