ابواليزيد
-
Posts
9 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه ابواليزيد
-
-
مع شكرى وتقديرى لمجهودك وجزاك الله عنا خيرا وزادك الله من علمة
-
1- بعد اذن الكبير اريد كتابة الاول والثانى والثالث حتى رقم 30 لاانة لايكتب الا الاول مكرر فقط على طول وكتابة المجموع بترتيبة لانة لايكتب الا مجموع واحد فقط فى الاوائل2- اريد عمل الاحصاء بشكلة الصحصيحمع شكرى وتقديرى لمجهودكم
-
بعد اذن السادة الكرام عمل العشرة الاوائل لهذا الملف
-
مع شكرى وتقدبرى لمجهوداتككككككككككككككككككككككككك
-
مع شكرى وتقديرى لاحترافك بارك الله فيك وزادك من علمة
-
مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز
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
الشهادات
في منتدى الاكسيل Excel
قام بنشر
بعد اذن الكبير ظهر عندى مشكلة عند عمل دوائر بشهدات اخر العام تعطى دوائر على الناجح كمان مع شكرى وتقديرى
تجارب 2014.rar