Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос Поиск в таблице по двум критериям и вставка значения на другой лист
 
Помогите написать макрос
Код
Sub 333()

    Dim TextForFind, iRng As Range
        With ActiveSheet.Columns(3).Find 'поиск значения в третьем столбце
            TextForFind = Sheets("Лист1").Range("B2").Value 'Текст для поиска
                Set iRng = Columns(3).Find(what:=TextForFind, LookIn:=xlFormulas, lookat:=xlPart)'поиск значения в третьем столбце(нужно ли повторять??) поиск в формулах, искать не точное совпадение, а в содержимом ячеек
                If Not iRng Is Nothing Then  'правильна ли формулировка?
    Dim lngLastRow As Long
        lngLastRow = Sheets("лист1").UsedRange.Rows.Count
        Sheets("Лист1").Cells(lngLastRow, 2).Value = Range(iRng).Value  'здесь вообще отсебятина.... а должно быть найденное значение

End Sub
еще проблемма в том,  что должно быть 2 условия, т.е. по первому условию в 3 столбце искать значение ячейки B2 и в 4 столбце искать значение ячейки B3.
 
если с помощью find и значений несколько то нужно еще Findnext
Код
a = iRng.Address'---запоминаем адрес первой найденной ячейки
'---цикл по следующим найденным ячейкам     
     Do 
       Set iRng = Columns(3).FindNext(iRng)
        If iRng.Address = a Then Exit Do
        некий код..........
     Loop

а вообще файл приложите с описанием согласно файла и вручную напишите что должно в итоге выйти.
Изменено: V - 3 Апр 2015 08:17:47
Страницы: 1
Читают тему (гостей: 1)