البحث في الموقع
Showing results for tags 'تجاوز صف'.
تم العثور علي 1 نتيجه
-
مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز Sub Macro7() ' ' Macro7 Macro ' Macro recorded 30/10/2008 by zedasalem ' ' Keyboard Shortcut: Ctrl+u ' Sheets("ÇáÔíÊ").Select ActiveSheet.Unprotect Columns("A:EE").Select Selection.EntireColumn.Hidden = False Range("DA6:DB6").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="ÏæÑ ËÇä" Range("A7:EE1500").Select Selection.Copy Sheets("ØÈÇÚÉ_2").Select Range("A7").Select ActiveSheet.Paste Range("A7").Select Sheets("ÇáÔíÊ").Select Application.CutCopyMode = False Selection.AutoFilter ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True Range("M6").Select ActiveSheet.Protect End Submmmmmm.rar
