Sub test()

    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:= 2 , Criteria1:="1002"
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste

End Sub

Public Sub X()
    Dim rng As Range
    Dim wsCurrent As Worksheet
    Dim wsNew As Worksheet
    
    Set wsCurrent = ActiveSheet
    Set rng = wsCurrent.Rows("1:1")
    
    rng.AutoFilter
    rng.AutoFilter Field:= 2 , Criteria1:="1002"
    
    Set wsNew = Worksheets.Add
    wsCurrent.AutoFilter.Range.Copy Destination:=wsNew.Range("A1")
End Sub

Dim rgBD As Range, rgCriteria as Range

Set rgBD = ActiveSheet.Range("A1").Currentregion 'определяем диапазон базы данных
Set rgCriteria = ActiveSheet.Range("G1:G2") ' определяем диапазон критериев - в G1 д.б. имя поля по которому будем фильтровать

rgCriteria.Cells( 2 ,  1 ).Value =  1002  ' устанавливаем критерий отбора

WorkSheets.Add
rgBD.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rgCriteria, CopyTo:=Range("A1"), Unique:=False 'выполняем метод "расширенный фильтр" объекта Range.

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

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы