KolyvanOFF
Дата: Понедельник, 19.01.2015, 12:50 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Еще раз доброго здравия. Суть проблемы такова. Есть список менеджеров. При написании макроса хотелось бы чтобы фильтрация ссылалась на значение в ячейке, а не в выпадающем списке. Это возможно?
Еще раз доброго здравия. Суть проблемы такова. Есть список менеджеров. При написании макроса хотелось бы чтобы фильтрация ссылалась на значение в ячейке, а не в выпадающем списке. Это возможно? KolyvanOFF
С уважением, Евгений
Ответить
Сообщение Еще раз доброго здравия. Суть проблемы такова. Есть список менеджеров. При написании макроса хотелось бы чтобы фильтрация ссылалась на значение в ячейке, а не в выпадающем списке. Это возможно? Автор - KolyvanOFF Дата добавления - 19.01.2015 в 12:50
KolyvanOFF
Дата: Понедельник, 19.01.2015, 13:16 |
Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Создал такой макрос. Можно ли привязать его к значению в ячейке [vba]Код
Sub Перепупкин() ' ' Перепупкин Макрос ' ' ActiveSheet.Range("$A$1:$L$13236").AutoFilter Field:=12, Criteria1:= _ "=Перепупкин", Operator:=xlOr, Criteria2:="=Резерв, Района" Range("A1").Select ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("B2:B13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("C2:C13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("D2:D13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("A2:A13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
[/vba] [moder]34 сообщения на форуме, код не оформили: кнопка # Читаем правила!!! А пока что замечание![/moder]
Создал такой макрос. Можно ли привязать его к значению в ячейке [vba]Код
Sub Перепупкин() ' ' Перепупкин Макрос ' ' ActiveSheet.Range("$A$1:$L$13236").AutoFilter Field:=12, Criteria1:= _ "=Перепупкин", Operator:=xlOr, Criteria2:="=Резерв, Района" Range("A1").Select ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("B2:B13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("C2:C13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("D2:D13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("A2:A13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
[/vba] [moder]34 сообщения на форуме, код не оформили: кнопка # Читаем правила!!! А пока что замечание![/moder] KolyvanOFF
С уважением, Евгений
Сообщение отредактировал DJ_Marker_MC - Понедельник, 19.01.2015, 13:23
Ответить
Сообщение Создал такой макрос. Можно ли привязать его к значению в ячейке [vba]Код
Sub Перепупкин() ' ' Перепупкин Макрос ' ' ActiveSheet.Range("$A$1:$L$13236").AutoFilter Field:=12, Criteria1:= _ "=Перепупкин", Operator:=xlOr, Criteria2:="=Резерв, Района" Range("A1").Select ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("B2:B13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("C2:C13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("D2:D13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _ Key:=Range("A2:A13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
[/vba] [moder]34 сообщения на форуме, код не оформили: кнопка # Читаем правила!!! А пока что замечание![/moder] Автор - KolyvanOFF Дата добавления - 19.01.2015 в 13:16
KolyvanOFF
Дата: Понедельник, 19.01.2015, 13:34 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
KolyvanOFF, спасибо. Друзья я нашел ответ на предыдущих аналогичных темах. Ваш форум рулит.
KolyvanOFF, спасибо. Друзья я нашел ответ на предыдущих аналогичных темах. Ваш форум рулит. KolyvanOFF
С уважением, Евгений
Ответить
Сообщение KolyvanOFF, спасибо. Друзья я нашел ответ на предыдущих аналогичных темах. Ваш форум рулит. Автор - KolyvanOFF Дата добавления - 19.01.2015 в 13:34