Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Скопировать ячейку с формулой и вставить её, но уже без формулы
 
#1
24.06.2016 18:06:04
Чтобы отсечь лишнее, выделю главную проблему, где идёт сбой.

Задача – скопировать ячейку с формулой и вставить её в некоторое соседнее поле, но уже без формулы, а с результатом вычисления.
Если делать вручную (без макроса), то проблем не возникает, т.к. после копирования вставляем не командой «Вставить», а через буфер обмена. Всё прекрасно, копируется не формула, а результат вычисления.

Включаем запись макроса и проделываем ту же самую процедуру, вот код:
Код
Sub Макрос()
    Range("E30").Select
    Selection.Copy
    Range("H30").Select
    Application.CutCopyMode = False
    ActiveSheet.Paste
End Sub

Однако при выполнении макроса выскакивает ошибка:
Код
Run-time error ‘1004’
Метод  Paste из класса Worksheet завершен неверно
Что я делаю не так? Можно как-то решить исходную задачу при помощи макроса?
 
 
 
#2
24.06.2016 18:19:11
Проблема с макросом при копировании - плохое название: сюда можно 1000 вопросов про проблемы. Название должно отражать СУТЬ проблемы. Предложите новое - модераторы поменяют.
 
 
 
#3
24.06.2016 18:28:52
Вот так будет работать.
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Range("E30").Select
    Selection.Copy
    Range("H30").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub
Изменено: agregator - 24.06.2016 18:56:19
Excel всемогущий.
 
 
 
#4
24.06.2016 18:29:20
Цитата
presentt написал:
Можно как-то решить исходную задачу при помощи макроса?
Код
Sub так()

Dim a
a = Cells(30, 5).Value
Cells(30, 8) = a

End Sub
Код
Sub эдак()

    Range("E30").Select
    Selection.Copy
    Range("H30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
 
 
 
#5
24.06.2016 18:31:28
Цитата
presentt написал:
т.к. после копирования вставляем не командой «Вставить», а через буфер обмена.
Вставляйте не командой Вставить, и не через Буфер обмена, а через Специальная вставка - Вставить - Значения. И запишите все это макрорекордером
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
24.06.2016 18:35:00
agregator, Jungl, Sanja, куда торопимся?
 
 
 
#7
24.06.2016 18:41:14
agregator, первое Ваше сообщение скрыл, второе удалил. Будете продолжать?
 
 
 
#8
24.06.2016 18:45:40
Тогда, такой вариант:
"Как скопировать ячейку с формулой и вставить её, но уже без формулы, при помощи макроса".
 
 
 
#9
24.06.2016 18:48:07
Название поменял. Помощь отображается.
 
 
 
#10
24.06.2016 18:49:19
Цитата
Юрий М написал:
agregator , первое Ваше сообщение скрыл, второе удалил. Будете продолжать?
Прочитал
Цитата
Юрий М написал:
agregator ,  Jungl ,  Sanja , куда торопимся?
и всё понял. Продолжать не буду. :)
Изменено: agregator - 24.06.2016 18:50:27
Excel всемогущий.
 
 
 
#11
24.06.2016 18:53:29
Вариант: не копировать, а присваивать
Код
Range("H30").value =Range("E30").value
 
 
 
#12
25.06.2016 14:20:11
Цитата
Sanja написал:
Вставляйте не командой Вставить, и не через Буфер обмена, а через Специальная вставка - Вставить - Значения. И запишите все это макрорекордером
Спасибо всем, а особенно за это общее решение для макрорекордера. На самом деле там макрос большой, а это тот кусочек, который сбоил.
 
 
 
Страницы: 1
Наверх