Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выборка с отдельного листа для фильтра через макрос
 
#1
15.02.2018 07:47:41
Добрый день Форумчане! Есть проблема) причем большая, есть план закупа с 5000 наименованиями и мне нужно фильтрануть и выбрать где то 100 разных позиций по номерам, есть фильтр....но, в ручную выбирать долго сами понимаете. Можете скинуть готовый макрос где можно на отдельном листе задать номера для выборки? буду благодарен!
 
 
 
#2
15.02.2018 08:01:01
При чем тут фильтр и зачем именно макрос ?) Может просто =ВПР() и протянуть ?)
 
 
 
#3
15.02.2018 08:09:43
Александр, да, мы через впр итак протягиваем для проверки, но проблема в том, что мы должны в соседней ячейке от этой позиций именно в плане закупа должны отмечать информацию о закупе и т.д. и т.п.) вывести отдельно эти позиций не проблема.... просто проблема в том, что там не 20 а 5000 позиций....и для того чтобы отметить 100 позиций нужно сидеть глазами искать эти позиций по строкам, либо фильтр открывать и сидеть отмечать 100 позиций и потом делать отметки в соседних ячейках, понимаете?
 
 
 
#4
15.02.2018 08:10:06
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=rules
https://www.planetaexcel.ru/techniques/3/59/
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=7
Изменено: Z - 15.02.2018 08:13:04
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#5
15.02.2018 08:24:22
Спасибо, статьи интересные, только вот решение там не совсем точное... мне нужна выборка на отдельном листе
 
 
 
#6
15.02.2018 08:51:14
"мне нужна выборка на отдельном листе"
Готовое/подходящее не нашли, довернуть не смогли. Сами писать макрос не собираетесь. Тогда в чем вопрос - заказывайте - на раздел "Работа" ссылка вам дана... ;)
ps Повторить пп 2.2, 2.3 Правил и по ним оформить файл пример. И оговорить, что, кроме макроса, вас может устроить.
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#7
15.02.2018 08:53:04
Код
Sub test()
With Sheets("Инкай (2)")
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        .Columns(2).Find(What:=Cells(i, 1), LookAt:=xlWhole).Offset(0, 9).Value = "Отмечено"
    Next i
End With
End Sub
Как вариант: так как вы не даёте информации по какому столбцу нужно искать, сделал по порядковому номеру. На  другом листе в колонке А начиная с первой строки пишете номера нужных позиций, с него же запускаете макрос, в колонке Объём закупа проставляется пометка - "Отмечено", фильтруете по этой пометке список - и работаете с ним.
Если нужен поиск не по столбцу порядковых номеров - просто поменяйте значение Colunms(2) 2 на порядковый номер нужного столбца
Изменено: Александр П. - 15.02.2018 09:07:30
 
 
 
#8
15.02.2018 09:11:08
Александр, спасибо! отличное решение! облегчили работу
 
 
 
#9
15.02.2018 09:33:58
Александр,а в общем доступе не будет работать?
 
 
 
#10
16.02.2018 01:02:45
Почитайте тут, вроде как нельзя добавлять макрос в книгу с уже включенных общим доступом.  
Изменено: Александр П. - 16.02.2018 01:04:45
 
 
 
Страницы: 1
Наверх