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

Вход

Регистрация

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

 

= Мир MS Excel/Написать макрос, который копирует отфильтрованные данные - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Написать макрос, который копирует отфильтрованные данные (Макросы/Sub)
Написать макрос, который копирует отфильтрованные данные
Антон95 Дата: Четверг, 16.02.2017, 21:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый день. Помогите написать или подправить макрос, который копирует отфильтрованные данные на другой лист
1) На другой лист в определенное место (там готовая форма)
2) Копирование не всех данных, а 2-3 колонок, которые идут не друг за другом, то есть чтобы данные выборочно копировались не по всем данным, а по паре колонок и аккуратно заносились в готовую форму. Или же чтобы происходил сдвиг ненужных колонок, а в форму заносились нужные
Вот такой мне один добрый человек написал, он переносит колонки в одну форму из двух и если очередность колонок не меняются. А как его дополнить, чтобы во все формы вносилось сразу и например если очередность колонок поменяется
[vba]
Код
Sub www()
Range("B2:B13,F2:F13").SpecialCells(xlCellTypeVisible).Copy
Sheets("Лист2").Range("F4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
[/vba]
К сообщению приложен файл: 1408927.xlsm (17.5 Kb)


Сообщение отредактировал Pelena - Пятница, 17.02.2017, 16:53
 
Ответить
СообщениеДобрый день. Помогите написать или подправить макрос, который копирует отфильтрованные данные на другой лист
1) На другой лист в определенное место (там готовая форма)
2) Копирование не всех данных, а 2-3 колонок, которые идут не друг за другом, то есть чтобы данные выборочно копировались не по всем данным, а по паре колонок и аккуратно заносились в готовую форму. Или же чтобы происходил сдвиг ненужных колонок, а в форму заносились нужные
Вот такой мне один добрый человек написал, он переносит колонки в одну форму из двух и если очередность колонок не меняются. А как его дополнить, чтобы во все формы вносилось сразу и например если очередность колонок поменяется
[vba]
Код
Sub www()
Range("B2:B13,F2:F13").SpecialCells(xlCellTypeVisible).Copy
Sheets("Лист2").Range("F4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
[/vba]

Автор - Антон95
Дата добавления - 16.02.2017 в 21:34
KuklP Дата: Пятница, 17.02.2017, 13:14 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Кросс на Планете и кибере.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКросс на Планете и кибере.

Автор - KuklP
Дата добавления - 17.02.2017 в 13:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Написать макрос, который копирует отфильтрованные данные (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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