If functie of andere mogelijkheid?

[Campesino]

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?

 

[Wigi]

ongeteste code

If Sheets("selectie").Range("C3").Value = 123 Then

    With Sheets("xxx")
    
        .Visible = True
        .AutoFilterMode = False
        .Range("A1:P1").AutoFilter field:=16, Criteria1:=">=" & d1, Operator:=xlAnd, Criteria2:="<=" & d2
        .Range("P1").EntireColumn.Hidden = True
        
        .Range("A1:P1").Sort _
            Key1:=.Range("J1"), Order1:=xlAscending, _
            Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
            
    End With

End If

Wigi