выбор даты

[Screame]

Здравствуйте! Прошу помощи в решении такой проблемы. В одной из закрытых тем нашел пример использования ComboBox, где при помощи VBA в данных которые загружаются, убираются дубликаты, и происходит сортировка. А вот если в диапазон вместо чисел поставить дату, тогда это все работает немножко неправильно.
1. Дата показывается в формате ММ/ДД/ГГГГ, а хотелось бы ДД.ММ.ГГГГ.
2. Ну и естественно чтобы после нажатия ComboBox показывал дату в том же формате ДД.ММ.ГГГГ

[VovaKl]

Замените часть кода:

'Добавление уникальных значений в ListBox и ComboBox
For Each Item In NoDupes
UserForm1.ComboBox1.AddItem Format(Item, "dd.mm.yy")
Next Item

Обратите внимание на функцию Format()

[Screame]

СПАСИБО VovaKl, Вы меня выручили!!!

[Teslenko_EA]

Вы уже обращались сюда
Евгений.

[Screame]

Если можно подскажите еще такое, как в в этом же ComboBox-e добавить перед списком дат пустую строчку, чтоб при необходимости можно было выбирать пустое значение, после того как уже что то выбирали?

[Teslenko_EA]

Здравствуйте Screame.
добавить пустую строку можно с помощью кода :ComboBox1.AddItem Empty
читать, сортировать и отбирать только уникальные значения данных листа, можно с применением библиотеки ADO, такой способ не требует создания дополнительных объектов для промежуточного заполнения и сортировки.
Евгений.

[Teslenko_EA]

Образец применения

[Screame]

посмотрите мой пример, в диапазоне убрал несколько первых значений в ComboBox и ListBox появляются две пустых строки вместо одной. Можно ли убрать одну лишнюю?

[VovaKl]

Диапазон уже содержит пустую строку, "D2:D12" - пустые, Вы затем добавляете еще одну пустую строку UserForm1.ComboBox1.AddItem Empty. Два варианта - или исходный диапазон не должен содержать пустых строк - или залочьте эту строку апострофом.

[Teslenko_EA]

Здравствуйте Screame.
"Два варианта" которые предложил VovaKl вполне могут быть дополнены ещё одним - проверяйте данные считываемые из диапазона при построении списка:
If Len(rs(0) & "") > 0 Then ListBox1.AddItem rs(0) & ""
Евгений.