Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копировать строку из одной книги в другую, если ячейки схожи - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать строку из одной книги в другую, если ячейки схожи (Макросы/Sub)
Копировать строку из одной книги в другую, если ячейки схожи
Yar4i Дата: Среда, 08.07.2020, 16:36 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 132
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, дамы и господа :D
В книге "М-29 03_514_КС3№4 (37)" в столбце I встречаются ФИО схожие с ФИО из книги "Подписи МОЛ".
Если да, то необходимо из книги "Подписи МОЛ" скопировать всю строку (включая объект на этой строке) в книгу "Подписи МОЛ" в соответствующую строку,
как например в случае с 29ой строкой - объект уже скопирован.
Если ФИО в книге "М-29 03_514_КС3№4 (37)" не встречается, то ничего не копируем, как в случае с 37ой и 38ой строкой.
В книге "М-29 03_514_КС3№4 (37)" ФИО в столбце I всегда начинаются после ячейки в столбце A содержащей текст "Составил:"

В сети видел вариант копирования строки на соседний лист книги, если она содержит... и там фиксированный кодом перечень.

Местонахождение книг:
C:\Users\TimoshchukIaN\Desktop\
К сообщению приложен файл: -29_03_514_34-3.xlsx(105.2 Kb) · 3393191.xlsx(125.0 Kb)
 
Ответить
СообщениеДобрый день, дамы и господа :D
В книге "М-29 03_514_КС3№4 (37)" в столбце I встречаются ФИО схожие с ФИО из книги "Подписи МОЛ".
Если да, то необходимо из книги "Подписи МОЛ" скопировать всю строку (включая объект на этой строке) в книгу "Подписи МОЛ" в соответствующую строку,
как например в случае с 29ой строкой - объект уже скопирован.
Если ФИО в книге "М-29 03_514_КС3№4 (37)" не встречается, то ничего не копируем, как в случае с 37ой и 38ой строкой.
В книге "М-29 03_514_КС3№4 (37)" ФИО в столбце I всегда начинаются после ячейки в столбце A содержащей текст "Составил:"

В сети видел вариант копирования строки на соседний лист книги, если она содержит... и там фиксированный кодом перечень.

Местонахождение книг:
C:\Users\TimoshchukIaN\Desktop\

Автор - Yar4i
Дата добавления - 08.07.2020 в 16:36
Pelena Дата: Среда, 08.07.2020, 19:10 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17427
Репутация: 3872 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Посмотрите, так хотели? После запуска макроса надо будет выбрать файл с подписями
К сообщению приложен файл: -29_03_514_34-3.xlsm(107.8 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Посмотрите, так хотели? После запуска макроса надо будет выбрать файл с подписями

Автор - Pelena
Дата добавления - 08.07.2020 в 19:10
Yar4i Дата: Четверг, 09.07.2020, 09:01 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 132
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010

Спасибо. Восторг испытал.
 
Ответить
Сообщение
Спасибо. Восторг испытал.

Автор - Yar4i
Дата добавления - 09.07.2020 в 09:01
Yar4i Дата: Среда, 19.08.2020, 16:51 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 132
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
выбрать файл с подписями

Добрый день.
Откладывал на потом редактирование с целью указания в коде фиксированного пути к книге "подписи"
Но понял что за данное действо отвечает несколько строк:
[vba]
Код
FilePath = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", 1, "Выберите файл с подписями", , False)
    If VarType(FilePath) = vbBoolean Then Exit Sub
    If FilePath <> "" Then
        i = UBound(Split(FilePath, "\"))
        FileName = Split(FilePath, "\")(i)
        If IsBookOpen(FileName) Then Set wbFile = Workbooks(FileName) Else Set wbFile = Workbooks.Open(FilePath, False)
    Else
[/vba]
Подскажите пожалуйста, как прописать путь к [vba]
Код
Workbooks.Open FileName:="C:\Users\TimoshchukIaN\Documents\Подписи.xlsx"
[/vba]?


Сообщение отредактировал Yar4i - Среда, 19.08.2020, 16:51
 
Ответить
Сообщение
выбрать файл с подписями

Добрый день.
Откладывал на потом редактирование с целью указания в коде фиксированного пути к книге "подписи"
Но понял что за данное действо отвечает несколько строк:
[vba]
Код
FilePath = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", 1, "Выберите файл с подписями", , False)
    If VarType(FilePath) = vbBoolean Then Exit Sub
    If FilePath <> "" Then
        i = UBound(Split(FilePath, "\"))
        FileName = Split(FilePath, "\")(i)
        If IsBookOpen(FileName) Then Set wbFile = Workbooks(FileName) Else Set wbFile = Workbooks.Open(FilePath, False)
    Else
[/vba]
Подскажите пожалуйста, как прописать путь к [vba]
Код
Workbooks.Open FileName:="C:\Users\TimoshchukIaN\Documents\Подписи.xlsx"
[/vba]?

Автор - Yar4i
Дата добавления - 19.08.2020 в 16:51
Pelena Дата: Среда, 19.08.2020, 17:08 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 17427
Репутация: 3872 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
[vba]
Код
FilePath = "C:\Users\TimoshchukIaN\Documents\Подписи.xlsx"
i = UBound(Split(FilePath, "\"))
FileName = Split(FilePath, "\")(i)
If IsBookOpen(FileName) Then Set wbFile = Workbooks(FileName) Else Set wbFile = Workbooks.Open(FilePath, False)
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
[vba]
Код
FilePath = "C:\Users\TimoshchukIaN\Documents\Подписи.xlsx"
i = UBound(Split(FilePath, "\"))
FileName = Split(FilePath, "\")(i)
If IsBookOpen(FileName) Then Set wbFile = Workbooks(FileName) Else Set wbFile = Workbooks.Open(FilePath, False)
[/vba]

Автор - Pelena
Дата добавления - 19.08.2020 в 17:08
Yar4i Дата: Четверг, 20.08.2020, 10:18 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 132
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, работает.
Не работает возможность изменять репутацию, вчера пробовал, сейчас пытаюсь, возможно причина в отсутствии на рабочем компе каких-либо дополнений (однако ранее все было в норме)
 
Ответить
СообщениеСпасибо, работает.
Не работает возможность изменять репутацию, вчера пробовал, сейчас пытаюсь, возможно причина в отсутствии на рабочем компе каких-либо дополнений (однако ранее все было в норме)

Автор - Yar4i
Дата добавления - 20.08.2020 в 10:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать строку из одной книги в другую, если ячейки схожи (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!