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

Вход

Регистрация

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

 

= Мир MS Excel/Создать формулу поиска файла, с заданными условиями - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создать формулу поиска файла, с заданными условиями (Формулы/Formulas)
Создать формулу поиска файла, с заданными условиями
AlexNel Дата: Четверг, 29.09.2016, 16:53 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!
Подскажите, пожалуйста, решение!
Требуется вставить в одну из ячеек таблицы файла-N, данные из таблицы файла-M. Фишка в том, что файл-M находиться в папке со множеством документов и наименование этих файлов соответствуют наименованию ячеек таблицы из файла-N. Пока есть только это: ='Z:\Я\2016\ОТЧЕТЫ\октябрь\[15-н.xls]лист 1'!E$28
Как добавить в формулу поиск нужного мне файла (15-н, 16-н, 17-н и т.д.), чтобы при протягивании формула выполняла свою функцию.

Спасибо, заранее
 
Ответить
СообщениеЗдравствуйте!
Подскажите, пожалуйста, решение!
Требуется вставить в одну из ячеек таблицы файла-N, данные из таблицы файла-M. Фишка в том, что файл-M находиться в папке со множеством документов и наименование этих файлов соответствуют наименованию ячеек таблицы из файла-N. Пока есть только это: ='Z:\Я\2016\ОТЧЕТЫ\октябрь\[15-н.xls]лист 1'!E$28
Как добавить в формулу поиск нужного мне файла (15-н, 16-н, 17-н и т.д.), чтобы при протягивании формула выполняла свою функцию.

Спасибо, заранее
Автор - AlexNel
Дата добавления - 29.09.2016 в 16:53
Karataev Дата: Четверг, 29.09.2016, 19:08 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
а чем Вас не устраивает эта формула
Код
='Z:\Я\2016\ОТЧЕТЫ\октябрь\[15-н.xls]лист 1'!E$28
 
Ответить
Сообщениеа чем Вас не устраивает эта формула
Код
='Z:\Я\2016\ОТЧЕТЫ\октябрь\[15-н.xls]лист 1'!E$28
Автор - Karataev
Дата добавления - 29.09.2016 в 19:08
AlexNel Дата: Четверг, 29.09.2016, 19:31 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Посмотрите вложенный док.
К сообщению приложен файл: 1207271.rar (28.2 Kb)
 
Ответить
СообщениеПосмотрите вложенный док.
Автор - AlexNel
Дата добавления - 29.09.2016 в 19:31
Nic70y Дата: Четверг, 29.09.2016, 19:35 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8999
Репутация: 2366 ±
Замечаний: 0% ±

Excel 2010
Файл не смотрел,
но сразу могу сказать, формулой, при закрытых файлах это не решить.
варианты: макрос, выполнение действий вручную (различные варианты)

ЮMoney 41001841029809
 
Ответить
СообщениеФайл не смотрел,
но сразу могу сказать, формулой, при закрытых файлах это не решить.
варианты: макрос, выполнение действий вручную (различные варианты)
Автор - Nic70y
Дата добавления - 29.09.2016 в 19:35
AlexNel Дата: Четверг, 29.09.2016, 19:39 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Скажите, пожалуйста, а макрос существует и где можно его взять или заказать?
 
Ответить
СообщениеСкажите, пожалуйста, а макрос существует и где можно его взять или заказать?
Автор - AlexNel
Дата добавления - 29.09.2016 в 19:39
Nic70y Дата: Четверг, 29.09.2016, 21:11 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8999
Репутация: 2366 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub f___()
Application.ScreenUpdating = 0
    u = Range("b3").End(xlDown).Row
    For Each c In Range("c4:c" & u)
    If c = "" Then
    If Len(Dir$(Application.ThisWorkbook.Path & "\" & c.Offset(0, -1) & ".xlsx")) > 0 Then
    c.Cells = "='" & Application.ThisWorkbook.Path & "\[" & c.Offset(0, -1) & ".xlsx]Лист1'!D4"
    End If    
    End If
    Next
End Sub
[/vba]
жмите на "ячейку" итог
[p.s.]не люблю архивы[/p.s.]
К сообщению приложен файл: 6498505.xlsm (19.1 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 29.09.2016, 21:22
 
Ответить
Сообщение[vba]
Код
Sub f___()
Application.ScreenUpdating = 0
    u = Range("b3").End(xlDown).Row
    For Each c In Range("c4:c" & u)
    If c = "" Then
    If Len(Dir$(Application.ThisWorkbook.Path & "\" & c.Offset(0, -1) & ".xlsx")) > 0 Then
    c.Cells = "='" & Application.ThisWorkbook.Path & "\[" & c.Offset(0, -1) & ".xlsx]Лист1'!D4"
    End If    
    End If
    Next
End Sub
[/vba]
жмите на "ячейку" итог
[p.s.]не люблю архивы[/p.s.]
Автор - Nic70y
Дата добавления - 29.09.2016 в 21:11
AlexNel Дата: Пятница, 30.09.2016, 07:18 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо огромнейшее Nic70y!!!!

Все круто работает! Вечная слава альтруистам!!!!

P.S. Тоже не люблю архивы, просто по другому не объяснить :)
 
Ответить
СообщениеСпасибо огромнейшее Nic70y!!!!

Все круто работает! Вечная слава альтруистам!!!!

P.S. Тоже не люблю архивы, просто по другому не объяснить :)
Автор - AlexNel
Дата добавления - 30.09.2016 в 07:18
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создать формулу поиска файла, с заданными условиями (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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