Добрый вечер, друзья. У меня действительно глупый запрос, на который я не могу найти правильное решение. Мне нужно правильно вставить в процедуру, показанную ниже, параметр ".PasteSpecial xlPasteValues", чтобы в рабочую книгу назначения вставлялись только значения. Приведенная ниже процедура работает нормально, и я бы не стал ее менять, если это возможно, но интегрировал ее с параметром, упомянутым выше. Если я не изменю код и не использую другие решения. Повторюсь, приведенный ниже код сейчас протестирован и я его безопасно использую, но теперь необходимость вставлять формат ячейки и валидации исходной книги больше не нужна.
Спасибо за любые предложения.
Редактировать:
Я постараюсь быть яснее. Я знаю, что подобные запросы уже решены. Мой вопрос заключается в том, где правильно указать параметр «.PasteSpecial xlPasteValues» в процедуре, которую я уже использую. Другие решения не вставляют данные в таблицу, а я использую исходную и целевую таблицы.
Public Sub CopyOnMasterDB ()
Dim CopyFrom As Range
Dim Copyto As Range
Set CopyFrom = Workbooks ("FromFile.xlsm"). Worksheets ("Database"). UsedRange.Offset (2, 0)
Set Copyto = Workbooks ("MASTER_DATABASE.xlsx"). Worksheets (1) .Range ("A" & Rows.count) .End (xlUp) .Offset (1, 0) 'Error If I insert .PasteSpecial xlPasteValues
CopyFrom .Copy Destination: = Copyto 'Error If I insert .PasteSpecial xlPasteValues
Application.CutCopyMode = False
Workbooks ("MASTER_DATABASE.xlsx"). Close SaveChanges: = True
End Sub