организация поиска из xl В Visual Basic

[assei]

Доброго всем вечера! подскажите что не так с кодом?не ищет данные в из столбца "А".

Private Sub Command3_Click() 'поиск 
  Dim q As String
  q = Text1(0).Text
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
  On Error Resume Next
  Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate
  If Err Then
    MsgBox "В списке (" & Text1(0) & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ"
  Else
    MsgBox "Искомые данные (" & Text1(0) & ") найдены!", vbInformation, "СООБЩЕНИЕ"
   End If
End Sub

Изменено 11 мая, 2017 пользователем assei
изменения пояснения к теме

[NatM]

В строке

 Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate

уберите лишний

, LookAt:=xlWhole

 

[assei]

В 11.05.2017 в 19:32, NatM сказал:

В строке

 Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate

уберите лишний

, LookAt:=xlWhole

 

удаление ни дало ни каких изменений

[assei]

ни чего не получилось я пример выложил посмотрите пожалуйста!

Новая папка.rar

[NatM]

Я могу работать только с макросами...

В макросе работает. Единственно, я ссылку на книгу XL убирала, и он работал в текущей книге... Т.е. единственное отличие с вашим кодом в этом ...

UPD. Есть еще одно различие: значение q я задавала прямо в коде. Попробуйте тоже задать жестко

Изменено 15 мая, 2017 пользователем NatM

[assei]

Вопрос решен, если понадобится код говорите.

[NatM]

Код не нужен, но просто любопытно: в чем было дело?

[assei]

http://www.cyberforum.ru/visual-basic/thread1975293.html    ЗДЕСЬ МНЕ ОТВЕТИЛИ

[NatM]

Т. е. дело ещё и в q.. .