Ребята, помогите пожалуйста! Вот значит макрос копирующий на лист "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
Ребята, помогите пожалуйста! Вот значит макрос копирующий на лист "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 Subddr
- Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума - Оформите формулу тегами (в режиме правки поста выделите формулу и нажмите кнопку fx, пояснялка здесь) - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
- Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума - Оформите формулу тегами (в режиме правки поста выделите формулу и нажмите кнопку fx, пояснялка здесь) - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Доброго дня! Возникла необходимость создать макрос, я начинала только погружаться в это направление. Прошу Вас оказать помощь или скинуть ссылки на похожие запросы. Задача: ВЫБИРАЕМ НАИМЕНОВАНИЕ И НАЖИМАЕМ КНОПКУ , В МОМЕНТ ЕЕ НАЖАТИЯ БЕРЕТСЯ ЗНАЧЕНИЕ ИЗ СТОЛБЦОВ B и C ( например значение = 4 и 0 соответственно), потом в листе SV находим эти значения и берем данные с соответствующего столбца которые переносим в лист K3 в диапазон B30:H60. Потом нажимаем кнопку Отмена,значения в этом диапазоне удаляются. Файл прилагаю. Огромное спасибо за любую помощь.
Доброго дня! Возникла необходимость создать макрос, я начинала только погружаться в это направление. Прошу Вас оказать помощь или скинуть ссылки на похожие запросы. Задача: ВЫБИРАЕМ НАИМЕНОВАНИЕ И НАЖИМАЕМ КНОПКУ , В МОМЕНТ ЕЕ НАЖАТИЯ БЕРЕТСЯ ЗНАЧЕНИЕ ИЗ СТОЛБЦОВ B и C ( например значение = 4 и 0 соответственно), потом в листе SV находим эти значения и берем данные с соответствующего столбца которые переносим в лист K3 в диапазон B30:H60. Потом нажимаем кнопку Отмена,значения в этом диапазоне удаляются. Файл прилагаю. Огромное спасибо за любую помощь.elenash1179
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
