Метод Paste из класса Worksheet завершен неверно

[KNatalia]

Подскажите, в чем причина!
Я пытаюсь отфильтрованные макросом данные в таблице скопировать и вставить в другой лист этой же книги. Почему данные вставляются, но постоянно выводится ошибка " Метод Paste из класса Worksheet завершен неверно"? Как её избежать?


Sub Работа_с_отфильтрованными_данными()

Application.Run "Экономическая_задача.xls!ДобавитьЗ апись"

Sheets("Shipping").Select
Columns("A:Z").Select
Selection.Copy

Sheets("Лист1").Select
Columns("A:A").Select
ActiveSheet.Paste

End Sub

[Teslenko_EA]

Здравствуйте KNatalia.
Если хотите увеличить вероятность получения помощи, выложите, здесь на форуме, архив с Вашим файлом - наработкой.
Евгений.

[KNatalia]

В приложении файл, нажимаем на пуск (предварительно там можно нажать очистить фильтр), задаем даты, закрываем пользовательское окошко, выбранные данные должны скопироваться на Лист1.
Данные копируются, но при этом выдается сообщение об ошибке.
Подскажите, в чем проблема?

Еще есть один вопрос:
Как сделать так, чтобы в скопированной таблице на листе 1 из строк с данными выбиралась строка с последним числом этого периода (то есть, заданном периоде с 01.10.2009 по 12.10.2009 в нашем примере нас будет интересовать дата 12.10.2009) и на основании выбранной даты бралась разница между ячейками max и min, то есть C5 - B5

Кто знает, подскажите, пожалуйста.
Заранее спасибо

[EugeneS]

Сообщение от KNatalia

Данные копируются, но при этом выдается сообщение об ошибке.
Подскажите, в чем проблема?

Если я Вас верно понял, то посмотрите вложение

второй вопрос не понятен

[KNatalia]

Спасибо за помощь. Проверила, но к сожалению, данные копируются на Лист1, но ошибка постоянно выводится. С чем это связано? В чем ошибка некорректного использования функции вставки?

Как исправить макрос автофильтра, чтобы при открытии и до нажатия кнопки пуск заранее не выводилось окошко ввода данных по автофильтру?


По задаче номер 2:
Необходимо на заданную дату рассчитать разницу между максимальной и минимальной ценой, результат скопировать в отдельную ячейку, например G15

Например, мы выбрали в качестве условия дату конца заданного периода, то есть, если задан период фильтром с 01.10.2009 по 08.10.2009, то датой конца периода будем считать 08.10.2009

На данную дату у нас есть определенные данные, в том числе столбец с минимальной и максимальной ценой (ячейки на конкретную дату выделила сиреневым цветом). Необходимо только для этой даты рассчитать разность между этими ценами, а результат записать в отдельную ячейку.

[EugeneS]

Сообщение от KNatalia

Спасибо за помощь. Проверила, но к сожалению, данные копируются на Лист1, но ошибка постоянно выводится. С чем это связано? В чем ошибка некорректного использования функции вставки?

Происхождение ошибки - автофильтр, скрывающий строки. Устранена косвенным методом.

Сообщение от KNatalia

Как исправить макрос автофильтра, чтобы при открытии и до нажатия кнопки пуск заранее не выводилось окошко ввода данных по автофильтру?

Исправлено, смотрите вложение

Сообщение от KNatalia

По задаче номер 2:
Необходимо на заданную дату рассчитать разницу между максимальной и минимальной ценой, результат скопировать в отдельную ячейку, например G15

Например, мы выбрали в качестве условия дату конца заданного периода, то есть, если задан период фильтром с 01.10.2009 по 08.10.2009, то датой конца периода будем считать 08.10.2009

На данную дату у нас есть определенные данные, в том числе столбец с минимальной и максимальной ценой (ячейки на конкретную дату выделила сиреневым цветом). Необходимо только для этой даты рассчитать разность между этими ценами, а результат записать в отдельную ячейку.

На Листе1 добавлен расчет указанной разницы

[KNatalia]

Спасибо Вам большое! Очень благодарна.

Единственное, хотела спросить, у меня в качестве результата расчета разницы между максимальным и минимальным значениями выдается не число, а #ЗНАЧ!

[EugeneS]

не за что, проверьте меню Сервис - Параметры - Международные - должна стоять точка в качестве разделителя

[KNatalia]

Да, действительно всё работает, стояла в качестве разделителя запятая.
Спасибо Вам большое пре большое за помощь!


А можно тогда задать еще вопрос:
Вот в этой формуле не могли бы пояснить

ЕСЛИ(A6<>0;ВПР(МАКС(A6:A2611);6:313 ;7;0)-ВПР(МАКС(A6:A2611);6:313;6;0); " ")

(МАКС(A6:A2611);6:313;7;0)
где МАКС(A6:A2611) - функция выбирает максимальное число из заданного диапазона?

6:313 - это таблица (6 -я строка и 313 столбцов)?

7 - номер нужного столбца
0 - интервальный просмотр - для чего он нужен?

[EugeneS]

Сообщение от KNatalia

Да, действительно всё работает, стояла в качестве разделителя запятая.
Спасибо Вам большое пре большое за помощь!

не за что

Сообщение от KNatalia

А можно тогда задать еще вопрос:
Вот в этой формуле не могли бы пояснить

ЕСЛИ(A6<>0;ВПР(МАКС(A6:A2611);6:313 ;7;0)-ВПР(МАКС(A6:A2611);6:313;6;0); " ")

(МАКС(A6:A2611);6:313;7;0)
где МАКС(A6:A2611) - функция выбирает максимальное число из заданного диапазона?

верно, если данных может быть больше 2605, можно увеличить цифру, например, вместо 2611 указать 30000

Сообщение от KNatalia

6:313 - это таблица (6 -я строка и 313 столбцов)?

7 - номер нужного столбца
0 - интервальный просмотр - для чего он нужен?

откройте мастер функций, функция называется ВПР, посмотрите справку по функции, это одна из наиболее полезных и мощных функций в Эксель, ее применение очень облегчает работу с данными