Добрый вечер друзья. Необходима Ваша помощь. Есть список наименований компаний в столбце. Он очень большой порядка 500, 20 (он всегда одинаковый) из них мои, всегда мучаюсь, листая весь список в каждом файле ища эти компании. Существует ли такой код, чтобы этот список был допустим в коде макроса и через его запуск он сразу его фильтровал. Заранее всем спасибо за помощь.
Добрый вечер друзья. Необходима Ваша помощь. Есть список наименований компаний в столбце. Он очень большой порядка 500, 20 (он всегда одинаковый) из них мои, всегда мучаюсь, листая весь список в каждом файле ища эти компании. Существует ли такой код, чтобы этот список был допустим в коде макроса и через его запуск он сразу его фильтровал. Заранее всем спасибо за помощь.Richman_85
А допстолбцом не подойдет? К сообщению приложен файл: 6176797.xlsx(19Kb)
Нет, такого рода предложение уже поступало. Дело в том что при таком варианте придется каждый раз в получаемый файл вставлять формулы. Информация по компаниям приходят в разных файлах и разного рода. Далее по строкам идет инфа по каждой компании, необходимо чтобы она также фильтровалась с привязкой к компании.
А допстолбцом не подойдет? К сообщению приложен файл: 6176797.xlsx(19Kb)
Нет, такого рода предложение уже поступало. Дело в том что при таком варианте придется каждый раз в получаемый файл вставлять формулы. Информация по компаниям приходят в разных файлах и разного рода. Далее по строкам идет инфа по каждой компании, необходимо чтобы она также фильтровалась с привязкой к компании.Richman_85
Да, отлично. Диапазон столбцов можно увеличить, на случай если вдруг столбец "компания" будет находится в другом столбце, необходимо будет переписывать код? Или же можно просто увеличить диапазон поиска? [moder]Не нужно цитировать весь пост. Об этом есть в Правилах форума
удалено администрацией
Да, отлично. Диапазон столбцов можно увеличить, на случай если вдруг столбец "компания" будет находится в другом столбце, необходимо будет переписывать код? Или же можно просто увеличить диапазон поиска? [moder]Не нужно цитировать весь пост. Об этом есть в Правилах форумаRichman_85
Сообщение отредактировал _Boroda_ - Вторник, 16.02.2016, 21:47
_Boroda_, А более грубый фильтр можно сделать? Если допустим будет не ООО Глазурит, а просто Глазурит, без ООО, в данном случае он не фильтрует данную компанию.
_Boroda_, А более грубый фильтр можно сделать? Если допустим будет не ООО Глазурит, а просто Глазурит, без ООО, в данном случае он не фильтрует данную компанию.Richman_85
_Boroda_, Также, макрос работает во всем диапазоне только в том файле где он прописан, открываешь другой файл, работает фильтрация если переместить данный столбец в тот где он стоит в прописанном файле.
_Boroda_, Также, макрос работает во всем диапазоне только в том файле где он прописан, открываешь другой файл, работает фильтрация если переместить данный столбец в тот где он стоит в прописанном файле.Richman_85
Если допустим будет не ООО Глазурит, а просто Глазурит
Просто добавьте еще и "Глазурит". Если бы Вы искали одно или два значения, то в автофильтре можно было бы написать "*глазурит*", а при множественном выборе так не прокатывает. Короче, код вот такой [vba]
Код
Sub Макрос10() If Selection.Columns.Count > 1 Then Exit Sub c_ = Selection.Column ActiveSheet.Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).AutoFilter Field:=c_, Criteria1:=Array( _ "ООО Гермес", "ООО Глазурит", "Глазурит", "ООО Миг"), Operator:=xlFilterValues End Sub
[/vba] В файле встаете в любую ячейку того столбца, по которому нужен фильтр и запускаете макрос. Столбец должен быть выделен ОДИН, строк - сколько угодно.
Если допустим будет не ООО Глазурит, а просто Глазурит
Просто добавьте еще и "Глазурит". Если бы Вы искали одно или два значения, то в автофильтре можно было бы написать "*глазурит*", а при множественном выборе так не прокатывает. Короче, код вот такой [vba]
Код
Sub Макрос10() If Selection.Columns.Count > 1 Then Exit Sub c_ = Selection.Column ActiveSheet.Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).AutoFilter Field:=c_, Criteria1:=Array( _ "ООО Гермес", "ООО Глазурит", "Глазурит", "ООО Миг"), Operator:=xlFilterValues End Sub
[/vba] В файле встаете в любую ячейку того столбца, по которому нужен фильтр и запускаете макрос. Столбец должен быть выделен ОДИН, строк - сколько угодно._Boroda_
_Boroda_, Преблагодарен Вам, спасибо тем выдающимся людям которые нам помогают. Еще маленький вопрос, в наименовании компании есть слово в кавычках, пишет ошибку.
_Boroda_, Преблагодарен Вам, спасибо тем выдающимся людям которые нам помогают. Еще маленький вопрос, в наименовании компании есть слово в кавычках, пишет ошибку.Richman_85