Или макросом:  
 
---------------------------  
Sub sergpp()  
 
   Dim x(), li As Long, s1() As String, s2 As String  
     
   x = Range(Cells(2, 3), Cells(Rows.Count, 5).End(xlUp)).Value  
     
   For i = LBound(x) To UBound(x)  
       s1 = Split(x(i, 3), "/"): s2 = Format(x(i, 2), "ddmm")  
       Cells(i + 1, 6) = s1(0) & "/" & s2  
   Next  
         
End Sub  
---------------------------

Доброго и Вам!  
 
1. Создаете макрос-проверки с помощью "Select Case" или "If ... IfElse ... Then".  
2. При выходе из "TextBox" запускаем этот макрос.    
3. Если все хорошо - работаем дальше, если нет - очищаем "TextBox" и просим заполнить правильно.  
 
Пробуйте ;)

ivanoff, а Вы п3 Правил прочли?!

слэн, спасибо Вам! Кажется понял :)  
 
1. Если "x = 0&" - значение "Empty" (Variant/Empty)  
2. Если "x = 0"  - значение 0 (Variant/Integer)  
 
слэн, в Вашем варианте в словаре не задаем ключь, правильно?

Я не про знак, а в целом, что это такое и почему именно в таком виде? :)

"Константа – имено­ванное значение или строка, которая не меняется при выполнении программы." (с)  
 
"Переменная представляет собой именованное место хранения данных в памяти компью­тера." (с)

"Или лучше его прописывать во избежание глюков?" - хороший тон ;)

Тоже пробовал напрямую добавлять и тот же результат :)  
 
слэн, а что означает "0&"?

Так объявляйте как константу :)  
----------------------  
Private Sub privet()  
Const Perem As Integer = 2  
'Ваш код  
End sub  
----------------------

А зачем столько рекламы?!

Ну вот :(  
 
Виктор задавил меня своим большущим багажом знаний в области написания мегаформул :)  
 
P.S. Нзч, удачи Вам ;)

Светлана, я не ругал Вас, а попросил реальный пример. В п3 Правил уже все написано что я хочу увидеть, поэтому и сослался на этот п3 :)  
 
Так что давайте реальный пример - помогу ;)

Например, так ;)  
----------------------------  
=ЕСЛИ(ЕОШИБКА(B3);"Нет в прайсе";"Все в порядке")  
----------------------------

Светлана, сделайте как написано в п3. - http://www.planetaexcel.ru/forum.php?thread_id=8735    
 
Литература:  
http://www.planetaexcel.ru/forum.php?thread_id=8763  
http://excelvba.ru/books  
http://www.planetaexcel.ru/forum.php?thread_id=8866

В примерах есть подобное - http://www.planetaexcel.ru/tip.php?aid=57

Готово, пробуйте ;)

1. Замените строку  
---------------------------  
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _    
---------------------------  
на  
---------------------------  
(FileFilter:="Microsoft Excel Files (*.xl*), *.xl*", _    
---------------------------  
 
2. Смотрю файл...

Что-то автор молчит как партизан :)

А может такую проверку добавить? :)  
-----------------------------------  
If vVal <> Format(CDate(vVal), "dd.mm.yyyy") Then  
-----------------------------------  
 
P.S. Тёзка, спасибо ;)

А можно Ваш пример расписать (показать результат)?  
 
P.S. Пересмотрел тему и файл - ничего не понял :(

ikki, если речь не о фильтре, чем макрос не устраивает?

Роман, я понял, что это ответ, а не вопрос ;)

Виктор, там "Он состоит из таких "под"диапазонов" :)  
 
Без файла автора не понять...  
 
Саша_С, Вы лучше в файле покажите "Есть" и "Надо" ;)

Вот один из вариантов решения Вашей задачи (взято с форума).

Это был не я ;)  
 
P.S. Извиняюсь за оффтоп :)

А это какое отношение имеет к затронутой теме? :)  
 
Поиск "удалить выпадающий список", сразу первая тема - http://www.planetaexcel.ru/forum.php?thread_id=14230

Например, так - http://www.planetaexcel.ru/tip.php?aid=46

Уверен что "0,5-1,5 часа" из-за антивируса "Касперский" или подобного ему параноика ;)  
 
P.S. Можно и макросами, но тут нужно обращаться к специалистам и как Вы понимаете – за деньги (формулами сомневаюсь, хотя...).

Добрый день!  
 
Вот, недавно выкладывал на форуме (тему уже не вспомню).  
 
P.S. Евгений, если не трудно, стукните мне на почту, есть один личный вопрос.

Доделал.