Snasui Excel Forum

Code: Select all

ActiveSheet.Range("B4:E4").Select
If Not ActiveSheet.AutoFilterMode Then
    ActiveSheet.Range("B4:E4").AutoFilter
End If
ActiveSheet.Protect , AllowFiltering:=True

Code: Select all

ActiveSheet.Range("B4:E4").Select
Selection.AutoFilter
ActiveSheet.Protect , AllowFiltering:=True

Code: Select all

...
With ActiveSheet
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("D" & rowCount + 5) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add Key:=.Range("B" & rowCount + 5) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Range("B4:N" & rowCount + 5)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
End With
...

Code: Select all

With Range("B4:N" & rowCount + 5)
          .Sort key1:=Range("D4"), Order1:=xlAscending, _
                MatchCase:=False, _
                Header:=xlYes, _
                Orientation:=xlTopToBottom
          .Sort key2:=Range("B4"), Order2:=xlAscending, _
                Header:=xlNo, _
                MatchCase:=False, _
                Orientation:=xlTopToBottom
End With