D
DISMfish
Is it possible to AutoFilter based on adjacent cells with complementing
criteria?
For instance, I have values in row x, columns y and z. And I need to
see if x,y < Minimum and x,z > Maximum is this possible?
Here's what I have right now:
'Is Val_Min between limits? (Column 17)
Sheets(sName).Cells(17, 1).AutoFilter Field:=17, _
Criteria1:=">=" & Min_Limit, Operator:=xlAnd, Criteria2:="<=" &
Max_Limit
'Is Val_Max between limits? (Column 18)
Sheets(sName).Cells(18, 1).AutoFilter Field:=18, _
Criteria1:=">=" & Min_Limit, Operator:=xlAnd, Criteria2:="<=" &
Max_Limit
'Is Val_Min below Min_Limit AND Val_Max above Max_Limit? (Column 17
and 18)
????
Sheets(sName).UsedRange.SpecialCells(xlCellTypeVisible).Copy
Sheets.Add().Name = strName
ActiveSheet.Paste
Thanks,
Logan
criteria?
For instance, I have values in row x, columns y and z. And I need to
see if x,y < Minimum and x,z > Maximum is this possible?
Here's what I have right now:
'Is Val_Min between limits? (Column 17)
Sheets(sName).Cells(17, 1).AutoFilter Field:=17, _
Criteria1:=">=" & Min_Limit, Operator:=xlAnd, Criteria2:="<=" &
Max_Limit
'Is Val_Max between limits? (Column 18)
Sheets(sName).Cells(18, 1).AutoFilter Field:=18, _
Criteria1:=">=" & Min_Limit, Operator:=xlAnd, Criteria2:="<=" &
Max_Limit
'Is Val_Min below Min_Limit AND Val_Max above Max_Limit? (Column 17
and 18)
????
Sheets(sName).UsedRange.SpecialCells(xlCellTypeVisible).Copy
Sheets.Add().Name = strName
ActiveSheet.Paste
Thanks,
Logan