Разное

Александр_Цыпкин@vk · Отправлено: **11:53, 15-07-2015** | #2

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

Iska · Отправлено: **15:31, 15-07-2015** | #3

Цитата Александр_Цыпкин@vk:

в буфер копировалась информация »

«буфер» — это рабочий лист «Буфер» приложенной рабочей книги?

Цитата Александр_Цыпкин@vk:

Возможна ли модернизация существующего макроса. »

Закомментируйте строку:

Код:

    'ActiveCell.EntireRow.Copy Worksheets("Буфер").Rows(2)

и добавьте после этой строки следующее:

Код:

    ActiveCell.EntireRow.Copy
    Worksheets("Буфер").Rows(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

Такое Вас устроит?