Я настраиваю решение в одно касание с помощью элемента управления формы для сортировки промежуточных итогов, копирования и вставки информации из одной рабочей книги в другую для нескольких пользователей.
Всякий раз, когда я использую свой элемент управления формой, он работает как сон, но как только другой пользователь сохраняет файлы в точности с именами и пытается выполнить код через элемент управления формой, я получаю сообщение об ошибке.Ошибка выдается из последнего утверждения в коде ниже.x.Sheets ("APHub"). Sort.SortFields.Add2 Key: = Range (_ "C2: C42524"), SortOn: = xlSortOnValues, Order: = xlAscending, DataOption: = _ xlSortNormal
Ошибкаони получают 438 во время выполнения с заявлением «объект не поддерживает это свойство или метод»
Я попытался определить лист как объект, но он не исправил его.
Dim x As Workbook
Dim y As Workbook
xName = "Missing_Merch.xlsx"
xNamePath = ThisWorkbook.Path & "\" & xName
Set x = Workbooks(xName)
Cells.Select
x.Sheets("APHub").Activate
Cells.Select
Cells.EntireColumn.AutoFit
Columns("F:I").Select
Selection.Cut
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Cells.Select
Selection.AutoFilter
x.Sheets("APHub").Sort.SortFields.Clear
x.Sheets("APHub").Sort.SortFields.Add2 Key:=Range( _
"C2:C42524"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal
Это должно начаться с моей последовательности сортировки до того, как произойдут все необходимые промежуточные итоги.