W
webels
Hi
The following code works great for me
Cells.Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "Test1"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:AL1"),
Type:=xlFillDefault
Range("A1:AL1").Select
Range("AR1").Select
ActiveCell.FormulaR1C1 = "Test10"
Range("AR2").Select
ActiveCell.FormulaR1C1 = "0"
Range("AR3").Select
ActiveCell.FormulaR1C1 = "neg"
Columns("J:J").Select
Range("J1:J500").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("AR1:AR3"), Unique:=False
However what would the syntax be I I wanted to fing all records not
equal to O and neg.
I have tried CriteriaRange:<> but to no avail.
Thanks
Eddie
The following code works great for me
Cells.Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "Test1"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:AL1"),
Type:=xlFillDefault
Range("A1:AL1").Select
Range("AR1").Select
ActiveCell.FormulaR1C1 = "Test10"
Range("AR2").Select
ActiveCell.FormulaR1C1 = "0"
Range("AR3").Select
ActiveCell.FormulaR1C1 = "neg"
Columns("J:J").Select
Range("J1:J500").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("AR1:AR3"), Unique:=False
However what would the syntax be I I wanted to fing all records not
equal to O and neg.
I have tried CriteriaRange:<> but to no avail.
Thanks
Eddie