سلام
خسته نباشید لطفا بفرمایید هر یک از این ردیفها چه کارهای را انجام میدن
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$1006").AutoFilter Field:=1, Criteria1:="<>"
Range("G1:O1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
خسته نباشید لطفا بفرمایید هر یک از این ردیفها چه کارهای را انجام میدن
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$1006").AutoFilter Field:=1, Criteria1:="<>"
Range("G1:O1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
کامنت