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

Страницы: 1
Макрос на копирование из одной книги в другую, Макрос на копирование из одной книги в другую
 
#
19.08.2025 17:59:36
Добрый день!
Нужно написать макрос, который будет копировать столбики A:D с листа Перекодировка, создавать новый документ Excel, вставлять туда скопированные данные и сохранять по пути, указанному в ячейке G6, а называть файл из ячейки K3 (путь с названием нового файла в ячейке I6, если это нужно), закрывать созданный файл.
На листе Перекодировка нарисовать кнопку с привязкой этого макроса и назвать Сохранение результата.

Оплата 1000 руб.
 
Перейти    
Макрос на перенос только новых строк с одного листа на другой по условию
 
#
13.02.2022 07:29:11
Огромное спасибо!!!! Все работает так как надо!!!!!!!
 
Перейти    
Макрос на перенос только новых строк с одного листа на другой по условию
 
#
12.02.2022 12:05:27
Добрый день!
Прошу помочь скорректировать макрос.
Задача: перенести информацию с листа Реестр на лист Агентский договор.
Условие: переносим только строки по Агентским договорам (колонка H) и если номера договора в колонке L еще нет на листе Агентский договор в колонке B.
Нельзя перезаписывать данные, только добавлять данные в первую пустую строку на листе Агентский договор.
Копировать нужно не всю строку и не в том же порядке: с листа Реестр колонку A в колонку H на листе Агентский договор, B в F, F в I, G в D, I в G, L в B.
Сейчас данные задваиваются, копируется не вся информация.
Прошу помочь! Файл прилагаю
Код
Sub Сравнитьа()
    LR = Worksheets("Агентский договор").Cells(Rows.Count, 2).End(xlUp).Row + 1
    For i = 3 To Worksheets("Реестр").Cells(Rows.Count, 12).End(xlUp).Row
     
    E = True
        For j = 2 To Worksheets("Агентский договор").Cells(Rows.Count, 1).End(xlUp).Row
            If Worksheets("Реестр").Cells(j, 1).Value = Worksheets("Реестр").Cells(i, 12).Value Then E = False: Exit For
        Next j
    If E Then Worksheets("Агентский договор").Cells(LR, 2).Value = Worksheets("Реестр").Cells(i, 12).Value: LR = LR + 1
    Next i
End Sub
 
Перейти    
Страницы: 1
Наверх