Ocultar botón de filtro en macro para ordenar datos

Tengo la siguiente macro mediante la cual ordeno los datos de una tabla con filtros. ¿Qué debo agregar y/o cambiar para que queden ocultos todos los botones del filtro?

Sub cuenta()   
    ActiveWorkbook.Worksheets("Fee").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Fee").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "B3:B101"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Fee").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

1 Respuesta

Respuesta

Solo agrega estos al final

Selection. AutoFilter

Quedando de esta manera

Sub cuenta()   
    ActiveWorkbook.Worksheets("Fee").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Fee").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "B3:B101"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Fee").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
selection.autofilter
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas