Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » FYS
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Перенос данных макросом, Перенос данных из одной книги в другую
 
#
09.04.2026 12:22:56
Все привет комрады!

Пожалуйста, помогите поправить макрос ниже, чтобы он переносил данные из одной книги в другую ЗНАЧЕНИЯМИ, а не копировал вместе с формулами.
Тест показал, что сейчас он переносит данные вместе с формулами из книги с данными в новую книгу.

Спасибо!
Код
Option Explicit
 
Sub TransferData()
    Dim wbFrom      As Workbook
    Set wbFrom = Workbooks("АГАТ АО_Запрос 2025_v4_Загрузка (1).xlsx")
 
    Dim wbTo        As Workbook
    Set wbTo = Workbooks("Запрос 2026_основной_v1.xlsx")

' Copy from page Информация
    wbFrom.Worksheets("Информация").Range("B2").Copy _
            Destination:=wbTo.Worksheets("Информация").Range("B2")
     ' Copy from page ф.1
    wbFrom.Worksheets("ф.1").Range("H6:H31").Copy _
            Destination:=wbTo.Worksheets("ф.1").Range("I6")
    wbFrom.Worksheets("ф.1").Range("H34:H34").Copy _
            Destination:=wbTo.Worksheets("ф.1").Range("I34")
    wbFrom.Worksheets("ф.1").Range("H35:H58").Copy _
            Destination:=wbTo.Worksheets("ф.1").Range("I36")
    wbFrom.Worksheets("ф.1").Range("H66:H100").Copy _
            Destination:=wbTo.Worksheets("ф.1").Range("I67")
    ' Copy from page инв.
    wbFrom.Worksheets("инв.").Range("L9:O71").Copy _
            Destination:=wbTo.Worksheets("инв.").Range("L9")
    wbFrom.Worksheets("инв.").Range("AD9:AE71").Copy _
            Destination:=wbTo.Worksheets("инв.").Range("R9")
    wbFrom.Worksheets("инв.").copyRange("AJ9:AJ71").Copy _
            Destination:=wbTo.Worksheets("инв.").Range("AG9")
   ' Copy from page кап.
    wbFrom.Worksheets("кап.").Range("Z11:AA51").Copy _
            Destination:=wbTo.Worksheets("кап.").Range("N11")
 wbFrom.Worksheets("кап.").Range("I11:J51").Copy _
            Destination:=wbTo.Worksheets("кап.").Range("I11")
' Copy from page заем
    wbFrom.Worksheets("заем").Range("AK9:AQ135").Copy _
            Destination:=wbTo.Worksheets("заем").Range("AC9")
   wbFrom.Worksheets("заем").Range("P9:Z135").Copy _
            Destination:=wbTo.Worksheets("заем").Range("P9")
' Copy from page зап.
    wbFrom.Worksheets("зап.").Range("N8:N48").Copy _
            Destination:=wbTo.Worksheets("зап.").Range("L8")
    wbFrom.Worksheets("зап.").Range("U7:U53").Copy _
            Destination:=wbTo.Worksheets("зап.").Range("P7")
' Copy from page ВГО_зап
    wbFrom.Worksheets("ВГО_зап").Range("F14:H114").Copy _
            Destination:=wbTo.Worksheets("ВГО_зап").Range("F14")
    wbFrom.Worksheets("ВГО_зап").Range("L14:L114").Copy _
            Destination:=wbTo.Worksheets("ВГО_зап").Range("I14")
' Copy from page ДЗ
    wbFrom.Worksheets("ДЗ").Range("Q7:Q53").Copy _
            Destination:=wbTo.Worksheets("ДЗ").Range("M7")
    wbFrom.Worksheets("ДЗ").Range("AG7:AG53").Copy _
            Destination:=wbTo.Worksheets("ДЗ").Range("V7")
' Copy from page ВГО_ДЗ
    wbFrom.Worksheets("ВГО_ДЗ").Range("P7:R1006").Copy _
            Destination:=wbTo.Worksheets("ВГО_ДЗ").Range("M7")
    wbFrom.Worksheets("ВГО_ДЗ").Range("I7:L1006").Copy _
            Destination:=wbTo.Worksheets("ВГО_ДЗ").Range("I7")
' Copy from page ДС
    wbFrom.Worksheets("ДС").Range("J17:J216").Copy _
            Destination:=wbTo.Worksheets("ДС").Range("I17")
    wbFrom.Worksheets("ДС").Range("E17:H216").Copy _
            Destination:=wbTo.Worksheets("ДС").Range("E17")
' Copy from page ДЦИ
    wbFrom.Worksheets("ДЦИ").Range("K10:R407").Copy _
            Destination:=wbTo.Worksheets("ДЦИ").Range("O10")
    wbFrom.Worksheets("ДЦИ").Range("AK10:AL407").Copy _
            Destination:=wbTo.Worksheets("ДЦИ").Range("X10")
    wbFrom.Worksheets("ДЦИ").Range("AV10:AW407").Copy _
            Destination:=wbTo.Worksheets("ДЦИ").Range("AT10")
' Copy from page ДЦИ_список_дог_скрыт
    wbFrom.Worksheets("ДЦИ_список_дог_скрыт").Range("A9:B1000").Copy _
            Destination:=wbTo.Worksheets("ДЦИ_список_дог_скрыт").Range("A9")
' Copy from page КЗ
    wbFrom.Worksheets("КЗ").Range("J6:J36").Copy _
            Destination:=wbTo.Worksheets("КЗ").Range("E6")
' Copy from page ВГО_КЗ
    wbFrom.Worksheets("ВГО_КЗ").Range("O8:Q1011").Copy _
            Destination:=wbTo.Worksheets("ВГО_КЗ").Range("O8")
    wbFrom.Worksheets("ВГО_КЗ").Range("AA8:AD1011").Copy _
            Destination:=wbTo.Worksheets("ВГО_КЗ").Range("R8")
' Copy from page кредит
    wbFrom.Worksheets("кредит").Range("J9:Y184").Copy _
            Destination:=wbTo.Worksheets("кредит").Range("J9")
    wbFrom.Worksheets("кредит").Range("AH9:AI184").Copy _
            Destination:=wbTo.Worksheets("кредит").Range("Z9")
' Copy from page ОН
    wbFrom.Worksheets("ОН").Range("G5:G38").Copy _
            Destination:=wbTo.Worksheets("ОН").Range("E5")
' Copy from page ОО
    wbFrom.Worksheets("ОО").Range("R6:R27").Copy _
            Destination:=wbTo.Worksheets("ОО").Range("K6")
' Copy from page ДБП
    wbFrom.Worksheets("ДБП").Range("O14:U142").Copy _
            Destination:=wbTo.Worksheets("ДБП").Range("O14")
    wbFrom.Worksheets("ДБП").Range("AE14:AE142").Copy _
            Destination:=wbTo.Worksheets("ДБП").Range("V14")
    wbFrom.Worksheets("ДБП").Range("AG14:AH142").Copy _
            Destination:=wbTo.Worksheets("ДБП").Range("W14")
' Copy from page АПП
    wbFrom.Worksheets("АПП").Range("P8:P40").Copy _
            Destination:=wbTo.Worksheets("АПП").Range("K8")
    wbFrom.Worksheets("АПП").Range("S8:S22").Copy _
            Destination:=wbTo.Worksheets("АПП").Range("R8")
    ' Copy from page ВНА2
    wbFrom.Worksheets("ВНА2").Range("AD9:AD68").Copy _
            Destination:=wbTo.Worksheets("ВНА2").Range("U9")
    ' Copy from page СС_Ф1
    wbFrom.Worksheets("СС_Ф1").Range("O7:X227").Copy _
            Destination:=wbTo.Worksheets("СС_Ф1").Range("E7")
    wbFrom.Worksheets("СС_Ф1").Range("C28:D227").Copy _
            Destination:=wbTo.Worksheets("СС_Ф1").Range("C28")
    wbFrom.Worksheets("СС_Ф1").Range("AU7:BD227").Copy _
            Destination:=wbTo.Worksheets("СС_Ф1").Range("AK7")
    ' Copy from page СС_Ф2
    wbFrom.Worksheets("СС_Ф2").Range("F31:G180").Copy _
            Destination:=wbTo.Worksheets("СС_Ф2").Range("F31")
' Copy from page ССЧ
    wbFrom.Worksheets("ССЧ").Range("D5").Copy _
            Destination:=wbTo.Worksheets("ССЧ").Range("C5")
' Copy from page ВАЛ
    wbFrom.Worksheets("ВАЛ").Range("K8:P12").Copy _
            Destination:=wbTo.Worksheets("ВАЛ").Range("E8")

End Sub
Изменено: FYS - 09.04.2026 23:08:05
 
Перейти    
Перенос данных из одной книги в другую, Перенос данных из одной книги в другую
 
#
22.01.2026 09:09:38
Приветствую вас знатоки экселя!

Пожалуйста, прошу совета и решения по следующему вопросу.
Дано:
На работе есть шаблон модели по бухгалтерской отчетности, который заполняют наши дочерние предприятия. Шаблон обновляется и каждый квартал сотрудникам приходится вручную заносить из предыдущей версии в новую версию шаблона начальные бухгалтерские остатки. Например, в январе сотрудники переносили вручную начальные остатки на 30/06/25 из старого шаблона модели в новый шаблон. Данная задача занимает много времени и чревата ошибками. Поэтому, необходимо автоматизировать процесс переноса числовых данных.
Задача:
Автоматизировать процесс переноса данных из одного шаблона в другой с помощью макроса или другого инструмента? Например, необходимо перенести данные на 30/06/2025 из старого шаблона с листа ф1 и из колонки I (выделена желтым) в такую же колонку I и на лист с аналогичным названием нового шаблона (книги).

Файл шаблон прилагаю - оставил в нем для примера пару листов без цифр.
Версия эксель 2016.

К сожалению, я не специалист по макросам и поэтому прошу помощи у народа)

Заранее всех благодарю!

С уважением,
Юрий
Изменено: FYS - 22.01.2026 09:43:44
 
Перейти    
Выпадающий список с быстрым поиском
 
#
09.09.2025 10:21:25
Планетяне, добрый день!

Пожалуйста, помогите решить следующий вопрос с Выпадающим список с быстрым поиском в экселе 2016.

Необходимо, чтобы поиск работал не только в одной ячейке/строке, но, и по другим строкам. В моем случае пользователям необходимо выбирать компании
из списка (более 200 наименований) на других листах файла. Список организаций расположен на отдельном листе (орг).

Пересмотрел все, что есть на форуме, но решения не нашел. Решение, которое предлагает автор сайта работает только в одной ячейке, а дальше нет. Выпадающий список с быстрым поиском

Мне нужен вариант без применения VBA и надстроек (запрещено службой безопасности). Файл не могу приложить по той же причине, только картинку.

Буду очень признателен за помощь!

Спасибо!
 
Перейти    
Свод данных с двух листов по критериям
 
#
23.08.2017 08:55:30
Всем привет, комрады!

Передо мной стоит задача над котрой я что-то застрял вчера и сломал себе мозг))
Необходимо консолидировать данные по производству (KPI) с двух участков по двум критериям -1) название самого KPI и отчетный месяц.
При этом, простая формула суммирования со ссылкой на ячейки листов с данными двух участков мне не подходит, т.к. этот вариант имеет много минусов.

Я пробовал делать именные диапазоны и использовал следующее написание формулы =INDEX(sneprodstatdata,MATCH(B17,sneprodstatcode,0),MATCH(AV$3,sneprodstatdate)). Пусть вас не смущает название диапазонов, т.к. название листов другое в исходном файле. При этом, с одного листа данные подтягиваются без проблем, а со второго нет и не могу понять в чем причина? Опять же вопрос, можно ли суммировать формулы содержащие ИНДЕКС? Например, так =INDEX(sneprodstatdata,MATCH(B17,sneprodstatcode,0),MATCH(AV$3,sneprodstatdate)) + INDEX(prodstatdata,MATCH(B17,prodstatcode,0),MATCH(AV$3,prodstatdate)). При этом название именованных диапазонов меняется соответствующим образом.

С помощью функции SUMIFS у меня тоже не получилось сделать свод.

Просьба, пожалуйста, помогите решить задачу (файл приложен).
 
Перейти    
Консолидация сводных таблиц
 
#
22.07.2016 12:43:42
Привет всем гуру и любителям экселя!))

Пожалуйста, помогите решить такую задачу. Необходимо сделать консолидацию нескольких сводных таблиц в одну. Во всех таблицах есть одна колонка с одинаковыми данными. Версия экселя 2010 и 2013.

Буду признателен за ответ!
 
Перейти    
Как отсортировать данные по возрастанию/убыванию?, Работа со сводными таблицами
 
#
19.03.2016 04:46:26
Всем привет, коллеги!
Пожалуйста, подскажите решение по следующему вопросу.

Необходимо отсортировать числовые значения по полю Value по возрастанию/убыванию в  excel 2013.
Перебрал все варианты, но, так и не нашел возможности выполнить данную задачу.

Буду признателен всем за ответ!

Желаю всем отличного дня!)) :D  
Изменено: FYS - 19.03.2016 06:11:19
 
Перейти    
Как поменять диапазон данных в длинной ормуле?
 
#
26.07.2015 01:20:22
Коллеги, здравствуйте!
Пожалуйста, помогите решить следующий вопрос.
Есть таблица по расчету бонуса для сотрудников. В связи с изменением одного из расчетных компонентов бонуса возникла необходимость поменять входящие данные, при этом необходимо внести изменения в текущую формулу. Сложность в том, что непонятно каким образом это сделать. Формула выглядит следующим образом =IFERROR(IF(K11>0,(VLOOKUP(H11,'Inputs& Stats'!$B$7:$Q$10,MONTH($P$9)+4,FALSE)),"No Work")+INDEX(Tbl,MATCH(H11,y_header,0),MATCH(N11,x_header,0)),"ERROR"). С помощью функции Evaluate Formula вижу какой диапазон в данный момент подтягивается - задача расширить его, т.к. данных для расчета стало больше. Вопрос каким образом это сделать, т.к. при просмотре формулы сам диапазон не высвечивается в строке формулы?
Заранее благодарю всех за помощь!

С уважением,
Юрий
 
Перейти    
Страницы: 1
Наверх