ابواليزيد قام بنشر يوليو 28, 2012 قام بنشر يوليو 28, 2012 مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز 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
ابواليزيد قام بنشر يوليو 28, 2012 الكاتب قام بنشر يوليو 28, 2012 مع شكرى وتقديرى لاحترافك بارك الله فيك وزادك من علمة
رجب جاويش قام بنشر يوليو 29, 2012 قام بنشر يوليو 29, 2012 لاشكر على واجب أخى الفاضل وكل عام وأنتم بخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.