Здравствуете, подскажите, пожалуйста, есть ли возможность в VBA, задавать сортировку самому, то есть с заданными условиями, а точнее возможно ли задать, например следующим образом:
Яблоко
Груша
Вишня
Лук

А возможно создать в виде собственного фильтра, что б я прописал в самом коде VBA , что идет зачем, а макрос по этой аналогии мне отфильтровал, или в этом есть какие-нибудь нюансы?

Кто-нибудь скиньте хоть примерный код ,как надо начать, есть идея, но не знаю, как это воплотить.
допустим в 1 столбце список
Лист 1
Яблоко
Груша
Вишня
На втором листе я пишу как надо сортировать:
Лист 2
Груша
Вишня
Яблоко
Скиньте, кто сталкивался с такой ситуацией решение, хоть как-то, похоже, а то мыслей вообще нет ни каких, с чего начать и к чему прийти есть только голый Excel.
Или ссылку на похожее если поднимали такой вопрос, перешерстил форум , похожего не нашел.

kuklp, спасибо, то что надо.

AndreTM, спасибо большое чуть доработал, и вообще стало шикарно, и ещё раз хочу сказать большое спасибо Hugo121, а так же kuklp, PlanB вы мне очень помогли.
Да поставил следующее
If InStr(a(i, 1), b(n, 1)) > 0 Then
Теперь он может сортировать в заданном порядке, если даже в списки, стоит допустим яблоко1 или 2яблоко. Вообще м по основе .
И если не сложно можете подсказать ответы на такие вопросы,
Можно ли заменить b = Range("b2:b6") , массивом из слов в самом коде, т.е. допустим
Array("Яблоко", "Груша",”Вишня”,”Лук”,”Морковь”), и если да, то какой способ будет более правильным , и действенным , если заранее предполагать, что сортировка будет происходить где то по 100 наименованием а сам список сортируемы будет предпологать около 1000 позиций.

Не хотел обращаться, но эту маленькую загвоздку, что то не осилить мне.
А проблема в следующем, по примеру AndreTM, я сделал сортировку но , появилась загвоздка сортируется только один столбик A , а остальные остаются без изменений как можно это подправить?
авторPrivate Sub CommandButton1_Click()
t = Sheets("Сумма").[A:A]
p = Sheets(2).[A1:A4]
t0 = 1
k = 1
While k <= UBound(p, 1)
For i = t0 To UBound(t, 1)
If InStr(t(i, 1), p(k, 1)) > 0 Then
If i > t0 Then
ti = t(i, 1)
t(i, 1) = t(t0, 1)
t(t0, 1) = ti
End If
t0 = t0 + 1
End If
Next
k = k + 1
Wend
End Sub

Думал моежт вот это пристроить к коду но не получается
авторApplication.AddCustomList ListArray:=Sheets(2).[A1:A4]
Sheets(1).[A1].CurrentRegion.Sort Key1:=Sheets(1).[A1], _
OrderCustom:=Application.CustomListCount + 1
Application.DeleteCustomList Application.CustomListCount

Спасибо, то что нужно!

Подскажите, пожалуйста, как сделать, что б макрос видел последнюю заполненную строчку, а то он у меня видит, сколько всего, в том числе и пустых, а вот заполненных он не видит например:
LRow=1000 (когда заполненные всего 25 по Cells(r, 2))
LastRow=1500 (когда заполненные всего 10 по Cells(n, 1))
А рядом с ними в следующих столбцах стоят значение и они как раз заполнены на листе Sheets("Сумма") 1000 и он как раз их и определяет как всего
Sheets("Итог") 1500

авторWith Sheets("Сумма").UsedRange
LastRow = .Rows.Count
For r = LastRow To 1 Step -1
If .Cells(r, 2) = "" Then .Rows(r).Delete
End If
Next
End With
With Sheets("Итог").UsedRange
LRow = .Rows.Count
For n = LRow To 1 Step -1
If .Cells(n, 1) = "" Then
End If
Next
End With
t = Sheets("Сумма").[A:C]
p = Sheets("Итог").[A:A]
t0 = 1
k = 1
While k <= LRow( нужно 25 а видит как 1000)
For i = t0 To LastRow

Спасибо IsEmpty(Sheets("Сумма") очень помогло , все стало более понятно.

Hugo121, да здесь мне повезло и все идет с первой строки, а если действительно у меня будет не с первой строки ну допустим, в начале, будет обозначение столбца, и мне его в подсчет не нужно будет включать, что нужно написать что б вычислял с нужно строки
Я так понимаю, нужно будет через for как то делать?