
Sub ELIMINA_STAMPA()
Sheets("FOGLIO CONTROLLO").Select
Selection.AutoFilter Field:=3, Criteria1:="X"
Cells.Select
Selection.Delete Shift:=xlUp
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub STAMPA_CONTROLLI()
Sheets("FOGLIO CONTROLLO").Select
Selection.AutoFilter Field:=3, Criteria1:="="
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub |
