Проверка ячеек на наличие искомого элемента

[Vceznayka]

Приветствую всех, кто решил мне помочь
Проблема заключается вот в чем:
Необходимо, чтобы VBA проверил ячейку А:3 если в ячейке находится искомый элемент то выполнить действие, если нет то проверить ячейку В:3 и тогдалие до ячейки BQ
Заранее благодарю!

[Bape}l{ka]

проверка следующей ячейки только в том случае, если в предыдущей не найдено нужное?? или просто весь диапазон А3:BQ3 проверить?

[Vceznayka]

Если можно сделать так чтобы проверил весь диапазон то еще лучше.
Но нужно чтобы выделил столбец в котором находится искомый элемент

[Bape}l{ka]

ну поконкретнее запрос дайте: что искать, что выполнять при нахождении.. ???

[VictorM]

Пробуйте

Sub ПоискЗначения() 'В 3-ей строке
      i = 1'с первого столбца
      While Not IsEmpty(Cells(3, i))
          n = 5 'Искомый элемент
          If Cells(3, i).Value = n Then
          Cells(3, i).Select
              Call MsgBox("Совпало", vbInformation, Application.Name)
          End If
          i = i + 1
      Wend
End Sub

[Vceznayka]

Необходима в Книга1.xls лист1 строке А3 по BQ3 найти Out traffic, скопировать столбец в котором находится Out traffic и вставить его в Книга2.xls лист1 столбец С:С
Затем в Книга3.xls лист1 строке А3 по BQ3 найти in- traffic, скопировать столбец в котором находится In traffic и вставить его в Книга2.xls лист1 столбец D:D

[VictorM]

Недосмотрел.
Чтобы выделить(скопировать) столбец замените

Cells(3, i).Select

на

Columns(i).Select

или

Columns(i).Copy

ну, а дальше уже делайте с этими значениями что хотите))

[Vceznayka]

VictorM Огромное спасибо !!!

[Hugo121]

Используя Find по строке было бы быстрее, и код чуть короче. Буквально вчера пример поиска был: http://www.programmersforum.ru/showthread.php?t=173594

Вот, на примере Виктора:

Sub tt()
    Dim x As Range, n
    n = 1 'Искомый элемент
    Set x = Rows(3).Find(n, , , xlWhole)
    If Not x Is Nothing Then
        x.Select
    End If
End Sub

Вернее лучше так, а то при наличии нескольких значений переходит не к первому, а к второму (!):

Sub tt()
    Dim x As Range, n
    n = 1    'Искомый элемент
    Set x = [a3:q3].Find(What:=n, after:=[q3], LookAt:=xlWhole)
    If Not x Is Nothing Then
        x.Select
    End If
End Sub

[Djeki]

Развивая эту тему позвольте задать ещё один вопрос. Если в заданном диапазоне несколько раз встречается искомый элемент, и необходимо после первого найденного значения продолжить поиск и найти все последующие искомые элементы в заданном диапазоне а так же вывести в окно Отладки адреса этих найденных ячеек ??
Вот что то типа такого, но по всему заданному диапазону..

Sub tt()
Dim x As Range, n
n = "s55" 'Искомый элемент
Set x = [A4:T11].Find(n, , , xlWhole)
If Not x Is Nothing Then
x.Select
Debug.Print x.Address
End If
End Sub

Спасибо за ответ..