Дилентант в VBA вернулся, больше всего вопросов по сортировке, непонятна ориентация и сорт метод S2LR = Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To S2LR If Sheets(2).Cells(1, 2).Value = Sheets(3).Cells(i, 1).Value _ And Sheets(2).Cells(2, 2).Value = Sheets(3).Cells(i, 2).Value _ And Sheets(2).Cells(3, 2).Value = Sheets(3).Cells(i, 3).Value _ And Sheets(2).Cells(5, 2).Value = Sheets(3).Cells(i, 5).Value _ Then
With ActiveWorkbook.Worksheets("операция").Sort .SetRange Range(Cells(2, 1), Cells(S2LR + 1, 6)) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With [moder]Тема создана с нарушением Правил форума[/moder]
Дилентант в VBA вернулся, больше всего вопросов по сортировке, непонятна ориентация и сорт метод S2LR = Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To S2LR If Sheets(2).Cells(1, 2).Value = Sheets(3).Cells(i, 1).Value _ And Sheets(2).Cells(2, 2).Value = Sheets(3).Cells(i, 2).Value _ And Sheets(2).Cells(3, 2).Value = Sheets(3).Cells(i, 3).Value _ And Sheets(2).Cells(5, 2).Value = Sheets(3).Cells(i, 5).Value _ Then
With ActiveWorkbook.Worksheets("операция").Sort .SetRange Range(Cells(2, 1), Cells(S2LR + 1, 6)) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With [moder]Тема создана с нарушением Правил форума[/moder]Reska