Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

исключить не нужные столбцы при Нажатии кнопки на итоговых листах сортировки

Автор Максим 52, 04.02.2013, 01:13

« назад - далее »

Максим 52

Здравствуйте!
Прошу помощи поправить макрос.
Как исключить не нужные столбцы при Нажатии кнопки на итоговых листах сортировки
в "исходные данные" копируется таблица, с помощью кнопки происходит разнос (копирование) строк по критерию поиска на разные листы.
Проблема в том, не все столбцы нужны.
Например: на листе "Договор Выполнен" только столбцы А, В, Е
а на листе "Договор принят" А, В, F

kuklp

Вот кусок кода:
        rngIsxodn.AutoFilter Field:=2, Criteria1:=Crit1
        .Range("C:D,G:G").EntireColumn.Hidden = True
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
    Worksheets("Договор Выполнен").Range("A2")
        rngIsxodn.AutoFilter
        Range("C:E,G:G").EntireColumn.Hidden = True
         rngIsxodn.AutoFilter Field:=2, Criteria1:=Crit2
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
    Worksheets("Договор принят").Range("A2")
        rngIsxodn.AutoFilter
       Range("C:E,G:G").EntireColumn.Hidden = False
        rngIsxodn.AutoFilter Field:=2, Criteria1:=Crit3
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
    Worksheets("Отказ").Range("A2")
        rngIsxodn.AutoFilter
       
        rngIsxodn.AutoFilter Field:=2, Criteria1:=Crit4
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
    Worksheets("Назначено").Range("A2")
        rngIsxodn.AutoFilter
   
    End With

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771