Вставить значение в другую книгу Excel - VBA

@BSH · Регистрация: 20.04.2016

Author24 — интернет-сервис помощи студентам

Доброе утро.
Помогите разобраться.
Кое как написал макрос, для переноса данных в другую книгу Exsel:

PureBasic

Sub Ìàêðîñ3()
'
' Ìàêðîñ3 Ìàêðîñ
' Ñîõðàíèòü äàííûå â îò÷åò
With Range("A8:R50").Select
Selection.Copy
Workbooks.Open Filename:= _
        "H:\LO\Inbound Department\Operative\Inbound damages database 2017.xlsx"
    Windows("Inbound damages database 2017.xlsx").Activate
   Do While Not IsEmpty(ActiveCell.Value)
    ActiveCell.Offset(1, 0).Select
    Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWindow.SmallScroll Down:=-39
     MsgBox "Äàííûå ñîõðàíåíû â îò÷åò. Åñëè íåîáõîäèìû êîððåêòèðîâêè, âíåñèòå èõ íåïîñðåäñòâåííî â ñàì îò÷åò"
End With
   End Sub

Но не как не могу сделать, что бы он вставлял только значения.
Макрос копирует диапазон в котором есть формулы и вставляет то с формулами, а мне нужно, что бы он вставлял только данные без формул. Что нужно изменить?

@kasan · 27.01.2017, 15:22

Попробуйте удалить 15 строку кода

@kasan Чорумфанин 346 / 346 / 320 Регистрация: 06.03.2014 Сообщений: 899
	27.01.2017, 15:22	2
	Попробуйте удалить 15 строку кода 0