ابواليزيد

بعد اذن الكبير ظهر عندى مشكلة عند عمل دوائر بشهدات اخر العام تعطى دوائر على الناجح كمان مع شكرى وتقديرى تجارب 2014.rar

مع شكرى وتقديرى لمجهودك وجزاك الله عنا خيرا وزادك الله من علمة

1- بعد اذن الكبير اريد كتابة الاول والثانى والثالث حتى رقم 30 لاانة لايكتب الا الاول مكرر فقط على طول وكتابة المجموع بترتيبة لانة لايكتب الا مجموع واحد فقط فى الاوائل 2- اريد عمل الاحصاء بشكلة الصحصيح مع شكرى وتقديرى لمجهودكم تجارب.rar

بعد اذن السادة الكرام عمل العشرة الاوائل لهذا الملف تجارب.rar

مع شكرى وتقدبرى لمجهوداتككككككككككككككككككككككككك

مع شكرى وتقديرى لاحترافك بارك الله فيك وزادك من علمة

مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز 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

مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز 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 Sub

مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز 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 Sub