Только начинаю знакомиться с макросами, поэтому не могу домучать один из них.
Необходимо осуществлять сверку данных из "Формы заказа" и данных из автоматически выгружаемого отчета на вкладке "550". С формой будет работать последовательно 2 человека: первый заполняет страницу с Формой и защищает ее от изменений, затем второй должен скопировать свой отчет на вторую страницу, преобразовать его и выполнить проверку поячеечно на странице "Проверка".
Отчет на второй странице для сопоставления с формой на первой трансформируется следующим образом:
-автозамена точки на запятую в столбце Unit Price
-двойная сортировка сначала по Global code (от а до я), а затем по Unit price (от наим к наиб)
-фильтр по столбцу Next status, нужны только со статусом 522
Полученный результат копируем на страницу проверка в поле E5
Код |
---|
Sub Макрос3() Range("A1").Select ActiveWorkbook.Worksheets("550").Sort.SortFields.Clear ActiveWorkbook.Worksheets("550").Sort.SortFields.Add Key:=Range("J2:J300"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("550").Sort.SortFields.Add Key:=Range("M2:M300"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("550").Sort .SetRange Range("A1:S300") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Columns("M:M").Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Columns("E:E").Select Selection.AutoFilter ActiveSheet.Range("E:E").AutoFilter Field:=1, Criteria1:="522" Selection.CurrentRegion.Select Selection.Copy Sheets("проверка").Select Range("E5").Select ActiveSheet.Paste End Sub |
При запуске ругается на все,что можно( Прошу помочь ибо я блондинка( Файлик вложением.
Спасибо!