Добрый день, дамы и господа В книге "М-29 03_514_КС3№4 (37)" в столбце I встречаются ФИО схожие с ФИО из книги "Подписи МОЛ". Если да, то необходимо из книги "Подписи МОЛ" скопировать всю строку (включая объект на этой строке) в книгу "Подписи МОЛ" в соответствующую строку, как например в случае с 29ой строкой - объект уже скопирован. Если ФИО в книге "М-29 03_514_КС3№4 (37)" не встречается, то ничего не копируем, как в случае с 37ой и 38ой строкой. В книге "М-29 03_514_КС3№4 (37)" ФИО в столбце I всегда начинаются после ячейки в столбце A содержащей текст "Составил:"
В сети видел вариант копирования строки на соседний лист книги, если она содержит... и там фиксированный кодом перечень.
Добрый день, дамы и господа В книге "М-29 03_514_КС3№4 (37)" в столбце I встречаются ФИО схожие с ФИО из книги "Подписи МОЛ". Если да, то необходимо из книги "Подписи МОЛ" скопировать всю строку (включая объект на этой строке) в книгу "Подписи МОЛ" в соответствующую строку, как например в случае с 29ой строкой - объект уже скопирован. Если ФИО в книге "М-29 03_514_КС3№4 (37)" не встречается, то ничего не копируем, как в случае с 37ой и 38ой строкой. В книге "М-29 03_514_КС3№4 (37)" ФИО в столбце I всегда начинаются после ячейки в столбце A содержащей текст "Составил:"
В сети видел вариант копирования строки на соседний лист книги, если она содержит... и там фиксированный кодом перечень.
Добрый день. Откладывал на потом редактирование с целью указания в коде фиксированного пути к книге "подписи" Но понял что за данное действо отвечает несколько строк: [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]
Добрый день. Откладывал на потом редактирование с целью указания в коде фиксированного пути к книге "подписи" Но понял что за данное действо отвечает несколько строк: [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]
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]
Здравствуйте. [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)
Спасибо, работает. Не работает возможность изменять репутацию, вчера пробовал, сейчас пытаюсь, возможно причина в отсутствии на рабочем компе каких-либо дополнений (однако ранее все было в норме)
Спасибо, работает. Не работает возможность изменять репутацию, вчера пробовал, сейчас пытаюсь, возможно причина в отсутствии на рабочем компе каких-либо дополнений (однако ранее все было в норме)Yar4i
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
