Метод «Диапазон» объекта «_Worksheet» не удалось при попытке сортировки таблицы - PullRequest
Новая
       5

Метод «Диапазон» объекта «_Worksheet» не удалось при попытке сортировки таблицы

0 голосов
/ 22 января 2019

Я пытаюсь найти ответ на мою ошибку в Excel, я пытаюсь отфильтровать содержимое столбца в таблице от наибольшего к наименьшему. Я записал макрос, делающий это, но всякий раз, когда я помещаю этот код в кнопку, я получаю «Метод» Диапазон »объекта« _Worksheet », не выполняющийся» после того, как я пытаюсь его использовать. 

  ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort.SortFields. _
    Clear

ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort.SortFields. _
    Add Key:=Range("Time"), SortOn:=xlSortOnValues, Order _
    :=xlDescending, DataOption:=xlSortNormal

With ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

VBA выделяет следующую часть кода: 

ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort.SortFields. _
    Add Key:=Range("Time"), SortOn:=xlSortOnValues, Order _
    :=xlDescending, DataOption:=xlSortNormal

Я ценю любую помощь, заранее спасибо.

1 Ответ

0 голосов
/ 22 января 2019

Диапазон, указанный в команде, указан в ActiveSheet.Он должен быть связан с Sheet ("FDTHC"). 

ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort.SortFields.Add _
    Key:=ThisWorkbook.Sheets("FDTHC").Range("Time"), _
    SortOn:=xlSortOnValues, _
    Order:=xlDescending, _
    DataOption:=xlSortNormal
...