Поиск значений

[Rom1k06]

Помогите плиз!!!!
Необходимо найти значение с листа 2 колонки "A" в листе 4 колонки "A"
искать необходимо по одному, по очереди если значение найдено то из этойже строчки но столбца 2 необходимо взять значение и вставить его в лист 4 , найденной строке, столбец 51.... и тд до первого пустова значения в колонке "A" ....

[SAS888]

если значение найдено то из этойже строчки но столбца 2 необходимо взять значение...

Столбцы 2 в листах 2 и 4 пусты. Что тогда брать при обнаружении найденного значения для вставки в лист 4 столбец 51 ?

[Rom1k06]

столбец 2 с листа 2 заполняется с листа 1 нажатием кнопочки сохранить

[SAS888]

Посмотрите вложение. На листе 2 нажмите кнопку "Сохранить".

[Rom1k06]

Отлично то что надо а если я добавлю еще цикл чтобы перебрать все столбци листа 2
и еще обди чтобы добавить в послднею пустую на листе 4
Это будет правильно? только он у меня почемуто съедает последнее и
в первой строке идет смещение.
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set x = .Columns("A").Find(what:=Cells(i, "A"), LookAt:=xlWhole)
и почему вы пишете именно так..
Я просто еще начинаю изучать VBA и немного не пойму как работает-
если можно оставте коментарий к этому коду
мне будет легче разобратся...
В чем была моя ошибка?

[SAS888]

На сколько я понимаю, то найденные данные нужно вставлять не в

последнюю пустую на листе 4

а в столбец текущего при обработке в цикле клиента. По крайней мере, я так сделал. Если нужно по другому - объясните подробнее.
Посмотрите вложение. В коде макроса "Poisk" - подробные комментарии.

[Rom1k06]

Да это именно так как я хотел но сделал немного подругому.

вычислил кол.столбцов от 1 до 1-го пустого,
и организовал цикл от 2 до макс

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

[Rom1k06]

Еще хотел уточнить как правильно прописывать поиск...
Я немного не понимаю как распологать методы.
Это была промежуточная версия задачи (Для меня).
Мне теперь необходимо теже данные экспортировать в другой файл..
1. Взять стоку 1 и вставить ее в колонку 4
2. взять строку 2 и вставить ее в колонку 5
я прописал код которй берет и вставляте все по очетеди , а можно и организрвать цикл из выбранн столбцов.. (4,5,11,1)
Он все делает правильно но программа получается большая..

[SAS888]

В VBE наберите Find и нажмите F1. В Help-е все подробно расписано.
Организовывать цикл по избранным параметрам лучше всего с применением массивов. Следующий пример вставляет "Yes" в первую строку тех столбцов, номера которых содержатся в массиве "a". Этот массив можно формировать динамически в процессе работы макроса по каким-то Вашим условиям (в примере он задан явно).

Sub Test()

    Dim i As Long, a
    a = Array(4, 5, 11, 1)
    For i = LBound(a) To UBound(a)
        Cells(1, a(i)) = "Yes"
    Next

End Sub

[Rom1k06]

Спасибо сегодня попробую....
Я так понимаю что будет их перебирать в том порядке в котором они написаны?
Что значит LBound b UBound -Я так понял что это начало и конец массива.
И почему именно Cells(1, a(i)) а не просто Cells(1, i)



Просто задача для меня еще сложная так что понемногу но сделаю.
а по поводу FIND там все написано на Английском...
мне неочень понятно...