Комментарии к коду

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Комментарии к коду (Макросы/Sub)

Комментарии к коду

Reska

Дата: Четверг, 06.10.2016, 08:43 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Дилентант в 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

MsgBox ("заказ уже существует")
Exit Sub

End If
Next

Sheets(3).Cells(S2LR + 1, 1).Value = Sheets(2).Cells(1, 2).Value
Sheets(3).Cells(S2LR + 1, 2).Value = Sheets(2).Cells(2, 2).Value
Sheets(3).Cells(S2LR + 1, 3).Value = Sheets(2).Cells(3, 2).Value
Sheets(3).Cells(S2LR + 1, 4).Value = Sheets(2).Cells(4, 2).Value
Sheets(3).Cells(S2LR + 1, 5).Value = Sheets(2).Cells(5, 2).Value
Sheets(3).Cells(S2LR + 1, 6).Value = Sheets(2).Cells(8, 2).Value

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]