Вставка значений вместо форматирования

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка значений вместо форматирования (Макросы Sub)

kpk17

Дата: Вторник, 18.02.2014, 22:55 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Подскажите пожалуйста, эти кодом я копирую данные из открытой книги в закрытую из ячеек Q46:Q53 в столбец А к примеру закрытой книги, таких диапазонов еще будет несколько, но хотя бы на этом примере хочу сделать.
Данный код вставляет целиком форматированные ячейки, я нужно только значение.
пытаюсь приписать значение Value, но выдает ошибки.

[vba]

Код

Sub Procedure_1()

Dim Исходная As Excel.Workbook, Конечная As Excel.Workbook
Dim lngLastRow As Long

Set Исходная = ActiveWorkbook
Set Конечная = Workbooks.Open("C:\старый комп\kpk\distr\Yandex\журнал крови.xls")

lngLastRow = Конечная.Worksheets(1).Cells(Конечная.Worksheets(1).Rows.Count, "A").End(xlUp).Row

'Если данных нет, то первой строкой будет строка 3.
If lngLastRow = 1 Then
lngLastRow = 3
Else
lngLastRow = lngLastRow + 1
End If

Исходная.Worksheets(1).Range("Q46:Q53").SpecialCells(2).Copy Конечная.Worksheets(1).Range("B" & lngLastRow)

End Sub

[/vba]