Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как исключить не нужные столбцы при Нажатии кнопки. макрос. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как исключить не нужные столбцы при Нажатии кнопки. макрос.
Как исключить не нужные столбцы при Нажатии кнопки. макрос.
533855 Дата: Понедельник, 04.02.2013, 22:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

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

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

Спасибо! В экселе почти-что 0..
Автор - 533855
Дата добавления - 04.02.2013 в 22:51
AlexM Дата: Вторник, 05.02.2013, 10:19 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
См. файл
К сообщению приложен файл: 8299995_new.xls (60.0 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеСм. файл
Автор - AlexM
Дата добавления - 05.02.2013 в 10:19
nilem Дата: Вторник, 05.02.2013, 11:20 | Сообщение № 3
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
можно Union использовать, типа такого:
[vba]
Код
...
With Worksheets("Исходные")
     With .Range("A1:F" & .Cells(Rows.Count, 1).End(xlUp).Row)
         .AutoFilter Field:=2, Criteria1:=Crit1
         Union(.Resize(, 2), .Columns(5)).Copy Worksheets("Договор Выполнен").Range("A1")
         .AutoFilter Field:=2, Criteria1:=Crit2
         Union(.Resize(, 2), .Columns(6)).Copy Worksheets("Договор принят").Range("A1")
         .AutoFilter Field:=2, Criteria1:=Crit3
         .Resize(, 6).Copy Worksheets("Отказ").Range("A1")
         .AutoFilter Field:=2, Criteria1:=Crit4
         .Resize(, 6).Copy Worksheets("Назначено").Range("A1")
         .AutoFilter
     End With
End With
...
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеможно Union использовать, типа такого:
[vba]
Код
...
With Worksheets("Исходные")
     With .Range("A1:F" & .Cells(Rows.Count, 1).End(xlUp).Row)
         .AutoFilter Field:=2, Criteria1:=Crit1
         Union(.Resize(, 2), .Columns(5)).Copy Worksheets("Договор Выполнен").Range("A1")
         .AutoFilter Field:=2, Criteria1:=Crit2
         Union(.Resize(, 2), .Columns(6)).Copy Worksheets("Договор принят").Range("A1")
         .AutoFilter Field:=2, Criteria1:=Crit3
         .Resize(, 6).Copy Worksheets("Отказ").Range("A1")
         .AutoFilter Field:=2, Criteria1:=Crit4
         .Resize(, 6).Copy Worksheets("Назначено").Range("A1")
         .AutoFilter
     End With
End With
...
[/vba]
Автор - nilem
Дата добавления - 05.02.2013 в 11:20
533855 Дата: Вторник, 05.02.2013, 13:47 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Спасибо!
 
Ответить
СообщениеСпасибо!
Автор - 533855
Дата добавления - 05.02.2013 в 13:47
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как исключить не нужные столбцы при Нажатии кнопки. макрос.
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!