[решено] Создание выпадающего списка из закрытой книги для нескольких пользователей

[artemu88]

Добрый день!

Есть 2 книги ексель. Одна с бд, другая с формой для заполнения.
Вопрос: как сделать выпадающий список в книге с формой, который бы ссылался на диапазон ячеек в книге с бд так, чтобы могли работать несколько пользователей.
Или хотя бы один.

Спасибо!

Книги во вложении

[Iska]

artemu88, правильный ответ на этот вопрос — использовать в качестве СУБД именно СУБД, а не Рабочие книги Microsoft Excel.

[artemu88]

Можно access базу создать, просто хотел узнать, как в ячейке реализовать выпадающий список из бд.

[Iska]

Э… Вы не знаете, как это сделать программно? Или что? Я не пойму.

[artemu88]

Да, не знаю, как написать код, который бы подключил бд к выпадающему списку в ячейке Ексель

[Iska]

artemu88, тааак… У Вас же не элемент управления на Рабочей книге или на форме, а условие проверки.

Создание раскрывающегося списка - Служба поддержки Office (https://support.office.com/ru-ru/article/%D1%81%D0%BE%D0%B7%D0%B4%D0%B0%D0%BD%D0%B8%D0%B5-%D1%80%D0%B0%D1%81%D0%BA%D1%80%D1%8B%D0%B2%D0%B0%D1%8E%D1%89%D0%B5%D0%B3%D0%BE%D1%81%D1%8F-%D1%81%D0%BF%D0%B8%D1%81%D0%BA%D0%B0-7693307a-59ef-400a-b769-c5402dce407b).
Добавление и удаление элементов раскрывающегося списка - Служба поддержки Office (https://support.office.com/ru-ru/article/%D0%B4%D0%BE%D0%B1%D0%B0%D0%B2%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5-%D0%B8-%D1%83%D0%B4%D0%B0%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5-%D1%8D%D0%BB%D0%B5%D0%BC%D0%B5%D0%BD%D1%82%D0%BE%D0%B2-%D1%80%D0%B0%D1%81%D0%BA%D1%80%D1%8B%D0%B2%D0%B0%D1%8E%D1%89%D0%B5%D0%B3%D0%BE%D1%81%D1%8F-%D1%81%D0%BF%D0%B8%D1%81%D0%BA%D0%B0-0b26d3d1-3c4d-41f5-adb4-0addb82e8d2c)

Используйте источником ту же Рабочую книгу, где производится ввод данных.

[artemu88]

Так я уже делал. Но нужна именно форма с элементом управления. Если без него, то наверное не получится ничего. Если можно, подскажите, как можно заполнить список из бд, например аксесс.

[Iska]

Но нужна именно форма с элементом управления. »
А там-то что не так? Там как раз не надо ничего выдумывать:
https://i.imgur.com/rH5ZQlD.png

[artemu88]

Понял.
Ели файл лежит в другой папке, то как тогда к нему обращаться, через кавычки ругается:
[D:\2.xlsx]Drivers!A1:A10

[Iska]

artemu88, тогда так:
Option Explicit

Private Sub UserForm_Initialize()
With Workbooks.Open("C:\Мои проекты\0301\Примеры\0001\Drivers.xls")
Me.ComboBox1.List = .Worksheets.Item("Водители").Range("A2:A4").Value

.Close SaveChanges:=False
End With
End Sub