Копировать данные в таблицу, только Значения и форматы чисел

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать данные в таблицу, только Значения и форматы чисел (Макросы/Sub)

Chelovekov

Дата: Суббота, 16.12.2023, 01:28 | Сообщение № 1

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

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

Сообщений: 310

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

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

Excel 2016

Здравствуйте, Уважаемые Форумчане. Прошу, Вас, помочь решить проблему, нужно доработать макрос, который при копирования данных, переносить только, Значения и форматы чисел, на данный момент макрос копирует вместе с формулами.
[vba]

Код

Option Explicit

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:H2").Copy shRes.Cells(lr, "A")

    shRes.Activate
    shSrc.Activate

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

End Sub

[/vba]

Пример прилагаю.
Заранее благодарен.

К сообщению приложен файл: primer1.xlsm (19.9 Kb)

Сообщение отредактировал Chelovekov - Суббота, 16.12.2023, 01:29

Ответить

i691198

Дата: Суббота, 16.12.2023, 10:09 | Сообщение № 2

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

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

Сообщений: 218

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

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

Здравствуйте. Вам нужно вместо строки[vba]

Код

shSrc.Range("A2:H2").Copy shRes.Cells(lr, "A")

[/vba] вставить такие строки
[vba]

Код

  shSrc.Range("A2:H2").Copy
     shRes.Cells(lr, "A").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
     shRes.Cells(lr, "A").PasteSpecial Paste:=xlPasteFormats

[/vba]

Сообщение отредактировал i691198 - Суббота, 16.12.2023, 10:10

Ответить

Chelovekov

Дата: Вторник, 19.12.2023, 12:28 | Сообщение № 3

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

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

Сообщений: 310

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

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

Excel 2016

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

Ответить

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