HEY!.....
im a newbie in macros....
and i need help......
i want to filter the "COMPARISON" sheet by it's column "CpK" with condition CpK<1.67.......
afterwards, i need to copy the whole data(all columns) to the "CpK" sheet...
then with the same process but the condition is Cp<10 copy, then paste to the "Cp" sheet.......
i hope it will be solved.....
*im sorry i couldn't attach the file due to it size
Sub cpk_sum()
'
' cpk_sum Macro
'
'
Sheets("COMPARISON").Select
Range("A2:O2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$O$101").AutoFilter Field:=6, Criteria1:="<1.67", _
Operator:=xlAnd
Range("$A$1:$O101").Select
Range("A2").Activate
Selection.Copy
Sheets("CpK<1.67").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("COMPARISON").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Sheets("CpK<1.67").Select
ActiveWindow.ScrollColumn = 2
Range("G:G,K:K").Select
Range("K2").Activate
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 1
Range("A1").Select
End Sub
Bookmarks