Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск и вывод данных согласно заданному критерию
 
#1
18.01.2020 15:30:32
Приветствую.

Сколько раз не пробовал - все никак не могу сделать ни через ВПР ни другими вариантами.
Помогите прописать формулу согласно которой в массиве информации искалась бы именно та, которая соответствует заданном критерию запроса.


Заранее благодарен за помощь.  
 
 
 
#2
18.01.2020 20:40:43
Цитата
другими вариантами
Для расходов 2019 года
Код
Sub Rasxod_2019()
Dim i As Integer
  For i = 8 To 19
    Cells(i, "H") = Range("B39:M62").Find(Cells(i, "B"), , xlValues, xlPart).Offset(2, 1)
  Next
End Sub
 
 
 
#3
19.01.2020 01:02:27
Artem_1988, доброй ночи. Вам мой совет, меняйте структуру ваших таблиц, сейчас там все печально.
 P.S в вашем файл-примере нет ни одной даты!
 
 
 
#4
19.01.2020 12:22:04
Цитата
Aleksey1107 написал:
меняйте структуру ваших таблиц, сейчас там все печально
Благодарен Вам за совет. Но это одна из тех ситуаций, когда нужно не меняя ничего сделать чтобы все работало, потому как все так привыкли и не хотят воспринимать ничего нового.  
 
 
 
#5
19.01.2020 12:30:49
Цитата
Kuzmich написал:
Для расходов 2019 года
Спасибо за совет.

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


Если сможете подсказать, как правильно сделать в таком случае - буду очень благодарен.  
 
 
 
#6
19.01.2020 12:44:18
Цитата
адреса этих строк на разных листах могут быть разными.
Можно расширить диапазон поиска (Range("B36:M1000")), запускать макрос на каждом листе или
сделать цикл по листам
Код
Sub Rasxod_2019()
Dim i As Integer
  For i = 8 To 19
    Cells(i, "H") = Range("B36:M1000").Find(Cells(i, "B"), , xlValues, xlPart).Offset(2, 1)
  Next
End Sub
 
 
 
#7
19.01.2020 13:06:43
Благодарен. Сейчас попробую воплотить в жизнь.  
 
 
 
Страницы: 1
Наверх