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

[Alx.ekb]

 Selection.Find(What:="123", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

А как сделать так, чтобы функция возвращала номер найденной ячейки?

[Казанский]

Отставить Range.Find!
Функцию ПОИСКПОЗ знаете?

nomer = worksheetfunction.match("123",диапазон,0)

[Alx.ekb]

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

Отставить Range.Find!
Функцию ПОИСКПОЗ знаете?

nomer = worksheetfunction.match("123",диапазон,0)

Так чтоли?

Agent = ComboBox1.Value
nomer = WorksheetFunction.Match("Agent", Worksheets("Listings").Columns("AN"), 0)
MsgBox prompt:="Найдена строка номер " & nomer & ".", _
Title:="Выбранное значение"

[Казанский]

Скорее так

nomer = WorksheetFunction.Match(Agent, Worksheets("Listings").Columns("AN"), 0)

[Alx.ekb]

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

Скорее так

nomer = WorksheetFunction.Match(Agent, Worksheets("Listings").Columns("AN"), 0)

Ругается:

Run-time error '1004':

Невозможно получить свойство Match класса WorkSheetFunction

[RAN.]

А так Columns("A:N") не пробовали?

[Alx.ekb]

Сообщение от RAN.

А так Columns("A:N") не пробовали?

Не работает

Можт ошибка где-то раньше?
Вот код:

Private Sub ComboBox1_Change()
Dim Agent As String
nSender = Worksheets("Listings").Columns("AU").Rows(5000).End(xlUp).Row ' îïðåäåëÿåò êîëè÷åñòâî ñòðîê
If Èäåò_Îáðàáîòêà Then Exit Sub
Èäåò_Îáðàáîòêà = True
With ComboBox1
.List = Worksheets("Listings").Range("AN2", "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

 Agent = ComboBox1.Value             ' ïåðåìåííàÿ - çíà÷åíèå êîìáîáîêñà
 nomer = WorksheetFunction.Match(Agent, Worksheets("Listings").Columns("A : N"), 0) ' ïîèñê íà ëèñòå çíà÷åíèÿ. òóò íóæíî ïîëó÷èòü íîìåð ñòðîêè, ñîäåðæàùåé çíà÷åíèå êîìáîáîêñà
 MsgBox prompt:="Âûáðàíà ñòðîêà íîìåð  " & nomer & ".", _
 Title:="Âûáðàííîå çíà÷åíèå"
' MsgBox ComboBox1.Value
End Sub '

[IgorGO]

"трудно искать черную кошку в темной комнате, особенно - если ее там нет!"

посмотрите чему равно Agent перед поиском. это полный текст процедуры? насколько я понимаю в Agent перед поиском несколько первых букв искомого слово, а не само слово.

[Alx.ekb]

Сообщение от IgorGO

"трудно искать черную кошку в темной комнате, особенно - если ее там нет!"

посмотрите чему равно Agent перед поиском. это полный текст процедуры? насколько я понимаю в Agent перед поиском несколько первых букв искомого слово, а не само слово.

Да, верно. в агенте только набранные буквы

[Alx.ekb]

За сегодня ничего не нашел, как извлечь значение строки из этого проклятого комбобокса!!! Миллион примеров, а я не могу понять ничего...

Может нужно сделать событие по click или KeyDown?