
'
Sheets("dettagli").Select
Selection.AutoFilter Field:=16, Criteria1:="SI", _
Operator:=xlAnd
Selection.AutoFilter Field:=15, Criteria1:="RONCHI", _
Operator:=xlAnd
Range("a5,o5").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("lista").Select
Range("A2").Select
ActiveSheet.Paste
|
