есть макрос которий скривает строки если с городами Киев и Харьков, как росширить макрос, что би скривать еще строки в которих есть Одесса, Днепропетровск
[vba]
Код
Sub рн2() ' ' рн2 Макрос '
' ActiveSheet.Range("$A$2:$J$186919").AutoFilter Field:=5, Criteria1:="=" ActiveSheet.Range("$A$2:$J$186919").AutoFilter Field:=6, Criteria1:= _ "<>*Киев*", Operator:=xlAnd, Criteria2:="<>*Харьков*" End Sub
[/vba] [moder]Для оформления кода макроса в посте есть кнопочка #. Поправил, в следующий раз сами. И приложите файл, так удобнее будет.
Добрий день!
есть макрос которий скривает строки если с городами Киев и Харьков, как росширить макрос, что би скривать еще строки в которих есть Одесса, Днепропетровск
[vba]
Код
Sub рн2() ' ' рн2 Макрос '
' ActiveSheet.Range("$A$2:$J$186919").AutoFilter Field:=5, Criteria1:="=" ActiveSheet.Range("$A$2:$J$186919").AutoFilter Field:=6, Criteria1:= _ "<>*Киев*", Operator:=xlAnd, Criteria2:="<>*Харьков*" End Sub
[/vba] [moder]Для оформления кода макроса в посте есть кнопочка #. Поправил, в следующий раз сами. И приложите файл, так удобнее будет.sergey1978
Поместите макрос в персональную книгу макросов, и используйте его оттуда. Другой вариант (если эти "новые файлы" однотипны по расположению в них информации) - использовать одну свою книгу с нужными макросами, а данные из "разных новых файлов" просто предварительно подкачивать в рабочую книгу для обработки. Ну или организовать в рабочей книге процесс "открыть другую книгу (с выбором файла) - проделать в ней операции - сохранить и закрыть другую книгу".
Поместите макрос в персональную книгу макросов, и используйте его оттуда. Другой вариант (если эти "новые файлы" однотипны по расположению в них информации) - использовать одну свою книгу с нужными макросами, а данные из "разных новых файлов" просто предварительно подкачивать в рабочую книгу для обработки. Ну или организовать в рабочей книге процесс "открыть другую книгу (с выбором файла) - проделать в ней операции - сохранить и закрыть другую книгу".AndreTM
AndreTM, _Boroda_ а как етот макрос применить к файлу которий находится D:\Новая папка (2), маска файла 380*.xls список городов для скрития состоит из 200 городов. он постоянний
AndreTM, _Boroda_ а как етот макрос применить к файлу которий находится D:\Новая папка (2), маска файла 380*.xls список городов для скрития состоит из 200 городов. он постояннийsergey1978