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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос, копирование только значения. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, копирование только значения. (Макросы/Sub)
Макрос, копирование только значения.
Chelovekov Дата: Вторник, 09.04.2019, 04:06 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеЗдравствуйте, Уважаемые форумчане. помогите решить следующую проблему, есть написанный макрос, который копирует определенные ячейки и вставляет в другую таблицу. Нужно изменить его так , что бы он копировал только значения ячеек, без формул.

Код
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

Автор - Chelovekov
Дата добавления - 09.04.2019 в 04:06
skais Дата: Вторник, 09.04.2019, 08:43 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 157
Репутация: 18 ±
Замечаний: 60% ±

Excel 2010
[vba]
Код
shSrc.Range("A2:I2").Copy
shRes.Cells(lr, "A").PasteSpecial (xlPasteValues)
[/vba]
 
Ответить
Сообщение[vba]
Код
shSrc.Range("A2:I2").Copy
shRes.Cells(lr, "A").PasteSpecial (xlPasteValues)
[/vba]

Автор - skais
Дата добавления - 09.04.2019 в 08:43
Chelovekov Дата: Вторник, 09.04.2019, 10:27 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Огромное спасибо hands
 
Ответить
СообщениеОгромное спасибо hands

Автор - Chelovekov
Дата добавления - 09.04.2019 в 10:27
_Boroda_ Дата: Вторник, 09.04.2019, 10:32 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14864
Репутация: 5881 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеКакой красивый код. Цветной весь такой! (для тех, кто теги себе нормальные сделал 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_
Дата добавления - 09.04.2019 в 10:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, копирование только значения. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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