Xls versnellen

Dag,

Kun je dit versnellen.

Sub philippe()
'
' Philippe Macro
'

'
Sheets("Printlijst").Select
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Range("D1:N1").Select
ActiveSheet.Shapes.Range(Array("Picture 3")).Select
Columns("A:CR").Select
Selection.EntireColumn.Hidden = False
Columns("AD:BE").Select
Selection.EntireColumn.Hidden = True
Range("AW2").Select
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=61
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=62
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=63
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=64
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=65
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=66
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=67
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=68
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=69
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=70
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=71
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=72
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=73
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=74
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=75
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=76
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=77
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=78
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=79
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=80
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=81
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=82
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=83
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=84
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=85
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=86
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=87
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=88
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=89
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=90
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=91
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=92
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=93
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=94
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=95
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=96
ActiveSheet.Range("$A$2:$CR$450").AutoFilter Field:=62, Criteria1:="<>"



Columns("BI").Select
Selection.EntireColumn.Hidden = True
Columns("BK:CA").Select
Selection.EntireColumn.Hidden = True
Columns("CC:CR").Select
Selection.EntireColumn.Hidden = True
Sheets("Lijsten").Visible = True
Sheets("Lijsten").Select
Range("H13").Select
ActiveCell.FormulaR1C1 = "Philippe"
Sheets("Lijsten").Visible = False
Sheets("Cockpit").Select
Range("B15:M15").Select
End Sub



Mvg philippe

Kun je code tags gebruiken (geregistreerd sinds 2015 ??)

Hey,

Code tags?

Ik ben maar een sporadische gebruiker, heb toen dit document gemaakt. Nu tijd voor het te versnellen.

Kun je mij helpen.

Zoek in dit forum eens wat code tags zijn.