Hallo,
Als de volgende conditie waar is: Sheets("selectie").Range("c3") = "123"
Dan wil ik de volgende code uitvoeren:
Sheets("xxx").Visible = True
Sheets("xxx").Select
With ActiveSheet
.AutoFilterMode = False
With .Range("A1: P1")
.AutoFilter
.AutoFilter field:=16, Criteria1:=">=" & d1, Operator:=xlAnd, Criteria2:="<=" & d2
End With
End With
Columns("P: P").Select
Selection.EntireColumn.Hidden = True
Range("A: P").Sort Key1:=Range("J1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Hoe kan ik dit het makkelijkst bereiken?
Als de volgende conditie waar is: Sheets("selectie").Range("c3") = "123"
Dan wil ik de volgende code uitvoeren:
Sheets("xxx").Visible = True
Sheets("xxx").Select
With ActiveSheet
.AutoFilterMode = False
With .Range("A1: P1")
.AutoFilter
.AutoFilter field:=16, Criteria1:=">=" & d1, Operator:=xlAnd, Criteria2:="<=" & d2
End With
End With
Columns("P: P").Select
Selection.EntireColumn.Hidden = True
Range("A: P").Sort Key1:=Range("J1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Hoe kan ik dit het makkelijkst bereiken?