Копирование значений из книг без формул.

Дата: Понедельник, 23.11.2020, 14:46 | Сообщение № 1

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

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

Сообщений: 105

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

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

Excel 2010, 2013, 2016

Здравствуйте Профи!
Не получается собрать из книг данные без формул, вставить только значения. Столбец "А" имеет формулу "ПСТР", столбцы "D" и "Е" - формулу ВПР. Пробовал подставлять функции в коде, но увы, знаний не хватает.
Помогите доработать макрос.

Заранее спасибо.

К сообщению приложен файл: MergeWorkbooks.xls (225.0 Kb) · _1_22.11.2020.xlsx (29.4 Kb)

Начинающий. Много и долго не пинать. Больно однако.

Дата: Понедельник, 23.11.2020, 16:32 | Сообщение № 2

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

Ранг: Участник

Сообщений: 64

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

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

MS Excel 2003-2019

Здрвыствуйте.
замените это
[vba]

Код

sh.Range(sh.Range("a8"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 17).Copy Destination:=shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count)

[/vba]
вот этим
[vba]

Код

sh.Range(sh.Range("a8"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 17).Copy

shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

[/vba]

Сообщение отредактировал CaramelManiac - Понедельник, 23.11.2020, 17:06

Дата: Понедельник, 23.11.2020, 16:37 | Сообщение № 3

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

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

Сообщений: 105

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

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

Excel 2010, 2013, 2016

CaramelManiac, Выдает ошибку синтаксиса.

Начинающий. Много и долго не пинать. Больно однако.

Дата: Понедельник, 23.11.2020, 17:02 | Сообщение № 4

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

Ранг: Участник

Сообщений: 64

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

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

MS Excel 2003-2019

Правильно скопировали?
Это три разные строки, т.е. вашу одну заменяете тремя

Сообщение отредактировал CaramelManiac - Понедельник, 23.11.2020, 17:04

Дата: Понедельник, 23.11.2020, 17:12 | Сообщение № 5

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

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

Сообщений: 105

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

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

Excel 2010, 2013, 2016

CaramelManiac, Вот теперь поправил. 3-ю строку не снес. Теперь все переносится как значения. Можно как то применить что только для определенных столбцов переносились значения? Для "А", который имеет формулу "ПСТР", столбцов "D" и "Е" - формулу ВПР, а остальные оставались как в исходной - с форматированием?

Начинающий. Много и долго не пинать. Больно однако.

Дата: Понедельник, 23.11.2020, 17:21 | Сообщение № 6

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

Ранг: Участник

Сообщений: 64

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

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

MS Excel 2003-2019

Paste:=xlPasteValues - копирует значения
Paste:=xlPasteFormats - копирует форматы

Продублируйте вторую строку, заменив Paste:=xlPasteValues на Paste:=xlPasteFormats

Дата: Понедельник, 23.11.2020, 17:30 | Сообщение № 7

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

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

Сообщений: 105

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

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

Excel 2010, 2013, 2016

CaramelManiac, Ошибок не выдает, но данные не переносит только со второго аналогичного файла нормально. С первого без форматирования.

Начинающий. Много и долго не пинать. Больно однако.

Сообщение отредактировал bosika - Понедельник, 23.11.2020, 17:33

Дата: Понедельник, 23.11.2020, 17:34 | Сообщение № 8

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

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

Сообщений: 105

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

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

Excel 2010, 2013, 2016

А у меня их более 30-ти.

Начинающий. Много и долго не пинать. Больно однако.