(تمت الاجابة) تجاوز صف

[ابواليزيد]

مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز

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

[رجب جاويش]

هل تقصد هكذا

اولى ملابس1.rar

[ابواليزيد]

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

[رجب جاويش]

لاشكر على واجب أخى الفاضل

وكل عام وأنتم بخير