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

Вход

Регистрация

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

 

= Мир MS Excel/макрос вставки отфильтрованных данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
макрос вставки отфильтрованных данных
astashovmichail Дата: Понедельник, 08.01.2024, 10:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Добрый день. не получается сформировать макрос вставки из буфера , при копировании отфильтрованных данных.
1) нажимаю на кнопку «очистить», очищается на Листе 2 диапазон - ЭТА кнопка вроде работает
2) мышкой выделяю диапазон (не отфильтрованный) А2:I8, нажимаю Ctrl+C
3) нажимаю на кнопку «вставить» и на Листе 2 вставляется скопированный диапазон - ЭТО работает
НО, если отфильтровать, например по столбцу «С» данные, затем выделить этот диапазон , нажать Ctrl+C, то при нажатии кнопки «вставить» выдаёт ошибку
К сообщению приложен файл: vopros.xlsm (179.5 Kb)
 
Ответить
СообщениеДобрый день. не получается сформировать макрос вставки из буфера , при копировании отфильтрованных данных.
1) нажимаю на кнопку «очистить», очищается на Листе 2 диапазон - ЭТА кнопка вроде работает
2) мышкой выделяю диапазон (не отфильтрованный) А2:I8, нажимаю Ctrl+C
3) нажимаю на кнопку «вставить» и на Листе 2 вставляется скопированный диапазон - ЭТО работает
НО, если отфильтровать, например по столбцу «С» данные, затем выделить этот диапазон , нажать Ctrl+C, то при нажатии кнопки «вставить» выдаёт ошибку

Автор - astashovmichail
Дата добавления - 08.01.2024 в 10:33
Pelena Дата: Понедельник, 08.01.2024, 10:52 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Попробуйте так
[vba]
Код
Sub Вставка_из_буфера()
    Worksheets("Лист2").Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПопробуйте так
[vba]
Код
Sub Вставка_из_буфера()
    Worksheets("Лист2").Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub
[/vba]

Автор - Pelena
Дата добавления - 08.01.2024 в 10:52
astashovmichail Дата: Понедельник, 08.01.2024, 11:12 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Pelena, Спасибо большое
 
Ответить
СообщениеPelena, Спасибо большое

Автор - astashovmichail
Дата добавления - 08.01.2024 в 11:12
  • Страница 1 из 1
  • 1
Поиск:

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