Макрос, копирование только значения.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос, копирование только значения. (Макросы/Sub)

Chelovekov

Дата: Вторник, 09.04.2019, 04:06 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 315

Репутация: 0 ±

Замечаний: 80% ±

Excel 2016

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

Код

Sub Отправить()

    Dim shSrc As Worksheet, shRes As Worksheet
    Dim lr As Long

    Application.ScreenUpdating = False

    Set shSrc = ThisWorkbook.Worksheets("Данные")
    Set shRes = ThisWorkbook.Worksheets("Результаты")

    lr = shRes.Cells(shRes.Rows.Count, "A").End(xlUp).Row + 1
    shSrc.Range("A2:I2").Copy shRes.Cells(lr, "A")

    shRes.Activate
    shSrc.Activate

    MsgBox "Готово!", vbInformation
    Application.ScreenUpdating = True

End Sub

Ответить

skais

Дата: Вторник, 09.04.2019, 08:43 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 236

Репутация: 29 ±

Замечаний: 20% ±

Excel 2010

[vba]

Код

shSrc.Range("A2:I2").Copy
shRes.Cells(lr, "A").PasteSpecial (xlPasteValues)

[/vba]

Ответить

Chelovekov

Дата: Вторник, 09.04.2019, 10:27 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 315

Репутация: 0 ±

Замечаний: 80% ±

Excel 2016

Огромное спасибо hands

Ответить

_Boroda_

Дата: Вторник, 09.04.2019, 10:32 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Какой красивый код. Цветной весь такой! (для тех, кто теги себе нормальные сделал http://www.excelworld.ru/forum/12-41046-273078-16-1552858824 ) Иван, ничего не хотите там поправить?
Подсказка - код VBA это кнопка #, а не fx

[vba]

Код

shRes.Cells(lr, "A").Resize(, 9)=shSrc.Range("A2:I2").value

[/vba]

* Зачем Вам Activate там?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Макрос, копирование только значения. (Макросы/Sub)

Страница 1 из 1
1