Автозаполнение Транспортной накладной (по новой форме)

[Alx.ekb]

Решил написать макрос, позволяющий автоматизировать процесс заполнения транспортной накладной.

Функционал:

1, При запуске:

Открывается форма, на ней есть поля, которые нужно заполнить и по нажатии кнопки записать - записывает в определенное место.

2. Поиск в предыдущих заявках:

По мере ввода в комбобокс (больше 2 символов) начинает искать (например получателя) в диапазоне ячеек (который определяется динамически) искомое значение. При выборе - получает номер выбранной строки и подтягивает значения (например ФИО и телефон) из определенных столбцов этой же строки.

При помощи гугла все это почти сделал, но начало все глючить...
Пишет only comments may apper...

А т.к. я в программировании не очень силен, прошу помочь! Ошибка скорее всего в отсутствии End Sub или что то вроде того

Этот макрос очень универсален, и, я думаю, очень многим сможет упростить жизнь!

Отвечу на любые вопросы.

[Alx.ekb]

Файл сейчас добавлю

[Alx.ekb]

пример вот

[doober]

Для начала так должно быть,а дальше ничего не понял.что надо сделать

Private Sub ComboBox1_Change()
nSender = Worksheets("Listings").Columns("A").Rows(5000).End(xlUp).Row ' определяет количество строк
If Идет_Обработка Then Exit Sub
Идет_Обработка = True
With ComboBox1
If .Value = "" Then .List = Worksheets("Listings").Range("AN3", "AN" & nSender).Value
For i = .listcount - 1 To 0 Step -1
  If Not .List(i) Like "*" & .Value & "*" Then .RemoveItem i
Next
.ListRows = .listcount
.DropDown
End With
Идет_Обработка = False
End Sub

[IgorGO]

Позволю несколько замечаний:
1.Если в ComboBox1 удалить символ - приведенный выше код не изменить содержимое .List. Предлагаю при любом изменении ComboBox1 набирать полный .List и отфильтровывать нужные значения.
2.Если ComboBox1 пуст - не фильтровать .List
3.Поиск обычно ведут по совпадению первых букв (это довольно спорное утверждение, но на его основании я первую * из Like убрал)

Private Sub ComboBox1_Change()
nSender = Worksheets("Listings").Columns("A").Rows(5000).End(xlUp).Row ' определяет количество строк
If Идет_Обработка Then Exit Sub
Идет_Обработка = True
With ComboBox1
.List = Worksheets("Listings").Range("AN3", "AN" & nSender).Value
if .value <> "" then
  For i = .listcount - 1 To 0 Step -1
    If Not .List(i) Like .Value & "*" Then .RemoveItem i
  Next
end if
.ListRows = .listcount
.DropDown
End With
Идет_Обработка = False
End Sub

[Alx.ekb]

Класс! Работает как надо!
Дальше хочу, чтобы после выбора строки в комбобоксе можно было узнатьномер выбранной строки в листе "Listings" - и далее по ней заполнять поля в форме.

Каким образом узнать номер выбранной в комбобоксе строки?

Я искал, но пришел к выводу, что нет функции, которая может напрямую из комбобокса выдернуть номер выбранной ячейки, т.к. при заполнении комбобокса из диапазона - данные по строкам хранятся в другом формате... Вот на этом я и встал.

И еще загвоздка в компиляции проекта:

Compile Error:
only comments may appear after End Sub, End Function or End Prophety.
Я уже голову сломал, в чем загвоздка...

[IgorGO]

у .List есть ListIndex - номер выбраной записи из списка.
только что он Вам даст? номер в списке не сооответсвтвует номеру сроки с диапазона данных, откуда были взяты значения.
во-первых, потому что диапазон начинается с 3-й строки
во-вторых, список отфильрован, часть значений из него выброшена

[Alx.ekb]

Да, примерно об этом я и говорил, что нет прямого способа узнать выбранную ячейку.

Получается:
надо придумывать что-то другое.

поиск значения в определенном столбце листа "Listings", равного записи в комбобоксе и только так получим номер строки...

Проще говоря искать значение комбобокса на листе поочередным перебором всех строк столбца на листе, цикл номер "икс" - даст нам номер ячейки
Адрес ячейки получится: А"ИКС"

Есть менее извращенный способ?

Всем спасибо за ответы!
Пошел дальше гуглить

А может быть есть желающие заработать и дописать это чудо? Пишите в ЛС

[Казанский]

Можно без перебора, есть метод Range.Find - запишите рекордером команду Ctrl+F.

[Alx.ekb]

Сообщение от Казанский

Можно без перебора, есть метод Range.Find - запишите рекордером команду Ctrl+F.

Все гениальное просто