Макрос копирования диапазона

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

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

Макрос копирования диапазона (Формулы/Formulas)

ddr

Дата: Пятница, 29.03.2019, 11:53 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2016

Ребята, помогите пожалуйста! Вот значит макрос копирующий на лист "Svod" со строки 77 много-много ячеек из остальных листов начиная со строки 5 в этой книге. Работает как надо. Почти как надо. Я заметил, что те формулы которые находятся на определенном листе и ссылаются на другие листы при копировании на "Svod" копируются не правильно.
Пример: на листе "1.1" в ячейке С5 формула "=C6+'1.2'!C5+'1.3'!C5+'1.4'!C5+'1.5'!C5+'1.6'!C5+'1.7'!C5+'1.8'!C5", но при копировании ее на Svod получаем →
"=C74+'1.2'!C73+'1.3'!C73+'1.4'!C73+'1.5'!C73+'1.6'!C73+'1.7'!C73+'1.8'!C73"

Помогите как-то решить проблему, пожалуйста.
В принципе было бы хорошо, если копировались данные как значениями, а не функциями.
Заранее извиняюсь, что не приложу файл, он секретный, извините ):

Sub BuildPlan()

Range("A77:U3000").Select
Selection.Delete

Const startCell = "A5"
Const stCell = "A73"

Dim ws As Worksheet, sv As Worksheet
Dim cell As Range, tbl As Range, shift&

Set sv = ThisWorkbook.Worksheets("Svod")
Set cell = sv.Range(stCell)
cell.CurrentRegion.Offset(cell.Row - cell.CurrentRegion.Row).Clear

For Each ws In ThisWorkbook.Worksheets
If Not ws Is sv Then
Set tbl = ws.Range(startCell).CurrentRegion
shift = ws.Range(startCell).Row - tbl.Row
If tbl.Rows.Count - shift > 0 Then
tbl.Offset(shift).Resize(tbl.Rows.Count - shift).Copy cell
Set cell = cell.Offset(tbl.Rows.Count - shift)
End If
End If
Next
End Sub

Ответить

китин

Дата: Пятница, 29.03.2019, 11:56 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

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

Excel 2007;2010;2016

- Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума
- Оформите формулу тегами (в режиме правки поста выделите формулу и нажмите кнопку fx, пояснялка здесь)
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

elenash1179

Дата: Пятница, 01.03.2024, 13:42 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

2019

Доброго дня! Возникла необходимость создать макрос, я начинала только погружаться в это направление. Прошу Вас оказать помощь или скинуть ссылки на похожие запросы. Задача: ВЫБИРАЕМ НАИМЕНОВАНИЕ И НАЖИМАЕМ КНОПКУ , В МОМЕНТ ЕЕ НАЖАТИЯ БЕРЕТСЯ ЗНАЧЕНИЕ ИЗ СТОЛБЦОВ B и C ( например значение = 4 и 0 соответственно), потом в листе SV находим эти значения и берем данные с соответствующего столбца которые переносим в лист K3 в диапазон B30:H60. Потом нажимаем кнопку Отмена,значения в этом диапазоне удаляются. Файл прилагаю. Огромное спасибо за любую помощь.

К сообщению приложен файл: vopros.xlsx (19.2 Kb)

Ответить

_Boroda_

Дата: Пятница, 01.03.2024, 14:49 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Тема закрыта
п.4 Правил форума

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Макрос копирования диапазона (Формулы/Formulas)

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