Спасибо,Юрий! оказалось намного проще чем я думала.    
Но звездочка работает только если файл с макросом имеет расширение .xlsm (2007)  
B 2003 не работает. просит конвертировать открываемый файл

sva! ваш код не работает

а как сделать чтоб он игнорировал эту ошибку?  
 
Вообще идея такая:    
В файл с макросом в ячейку А1 вводится имя файла, который далее открывается и обрабатывается. Проблема, что пользователь может не знать , какое расширение имеет файл

Сложновато конечно, но идея ясна. Будем грызть гранит знаний...))

Еще вопросик:  
Чисто теоретически, если понадобиться сортировка по ТРЁМ критериям, нужно переделывать весь код или достаточно изменить какое то значение?

Все прекрасно работает. И под 2003-й подходит.    
Еще раз спасибочки.  
 
PS. Вопрос совсем не по теме: последние дни Планета очень долго загружается. Именно Планета. Другие сайты загружаются быстро. У кого то есть подобная проблема?

Спасибо, Hugo  
Сейчас у меня уже нет компьютера под рукой, поэтому только завтра смогу проверить ваш макрос и сообщить результат

В моем файле пара сотен строк.))  Из всего этого надо выбрать около пары десятков совпадений. Файл приходит раз в месяц. Хотелось бы все это автоматизировать

Hugo! Спасибо что откликнулись.  
При добавлении строки для второго столбца, копирование вообще не происходит.  
Даже с ...[B2].CurrentRegion.Columns(2)
"Отдельностоящие" столбцы (А и С), если я правильно поняла, так же не дали результата.  
Может есть еще варианты?    
Если нет, тогда будем ждать 2007-й...:-))

Всем доброго дня!  
Решила создать свою тему, хотя она обсуждалась примерно неделю назад вот здесь:  
(http://www.planetaexcel.ru/forum.php?thread_id=41678)  
Я немножко усложнила задачку Евгения. Нужно сделать, чтобы копирование из листа "Date" происходило по двум критериям, заданным в листе "Condition". Возможно ли это?  
Крутила сама макрос, но так ни к чему не пришла.  
Заранее благодарю за помощь  
файл в формате xlsm так как по утверждению уважаемого Hugo, макрос работает только на 2007/10 экселе.

Всем доброго дня!  
А как сделать, чтобы копирование происходило по двум критериям.  
(Смотрите вложенный файл)

Формат ячейки общий

или так    
N5=(C5-B5)*24+(F5-E5)*24+(I5-H5)*24+(L5-K5)*24

Огромное спасибо,Serge 007!    
Но какая связь между Скайпом и Экселем?

Всем доброго времени суток!  
У меня возникла такая проблема: не работает перетаскивание ячеек и команда "Вырезать", а именно при перетаскивании ячейки, ячейка копируется а не перетаскивается.  
Также не работает команда "Вырезать".    
Может какие-то настройки сбились? Помогите пожалуйста!

Вот так лучше  
=ЕСЛИ(ДАТА( ГОД(СЕГОДНЯ()); МЕСЯЦ(B2); ДЕНЬ(B2) )-СЕГОДНЯ()=0;ТЕКСТ($C$1;"@");"")

А если так злому преподу?  
=ЕСЛИ(ДАТА( ГОД(СЕГОДНЯ()); МЕСЯЦ(B2); ДЕНЬ(B2) ) - СЕГОДНЯ()=0;ТЕКСТ(C1;"@");"")

"И" это столбец "В". Ошибочка вышла))

В графе "Именинник" можно прописать    
=ЕСЛИ(ДАТА( ГОД(СЕГОДНЯ()); МЕСЯЦ(B2); ДЕНЬ(B2) ) - СЕГОДНЯ()=0;"Именинник";"")  
Где "А" это ФИО, "И"-дата рождения

А формулами не подойдет? Меняй только Цену и Кол-во  
См. файл

Вместо EntireRow.Delete написать EntireRow.Select

Вот что у меня получилось(вдруг кому понадобится):  
Cell(1, 4) = 1  
------  
    Set Cell = [d1:d100].Find(what:="1", lookat:=xlWhole)
    Cell.EntireRow.Select  
Columns("D:D").ClearContents  
 
Еще раз спасибо,ikki. Хороший урок:-))

Спасибо, ikki!    
Для данной работы этого вполне достаточно, и так сойдёт :)), но в свою копилку кодов с удовольствием положила бы конечный результат.    
Так что если не сложно... доделывать бум? )))

Спасибочки. Все работает

Всем доброго утра!  
Подскажите пожалуйста, куда нужно добавить Row.Select в моем коде, чтобы после его действия выделялась добавленная строка?  
Private Sub Add_Button_Click()  
If MsgBox("Добавить данные?", vbQuestion + vbYesNo) = vbNo Then Exit Sub  
   Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)
cell(1, 1) = Me.TextBox1  
   cell(1, 2) = Me.TextBox2  
   cell(1, 3) = Me.TextBox3  
Range("A1:C100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _  
   xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _  
    DataOption1:=xlSortNormal  
MsgBox "Данные добавлены", vbInformation  
TextBox1 = ""  
TextBox2 = ""  
TextBox3 = ""  
Hide  
End Sub  
Спасибо за помощь

Если так, то данные-сортитовка

А текстбокс не поможет?

Всем доброго дня!  
Нашла здесь интересную темку: http://www.planetaexcel.ru/forum.php?thread_id=33830  
А возможно ли сделать, чтоб каждому Текстбоксу был присвоен свой язык?  
Например: TextBox1-Eng. TextBox2-Rus?

А возможно ли каждому Текстбоксу присвоить язык?  
Например: TextBox1-Eng. TextBox2-Rus?

Спасибочки. все заработало  
cell(1, 1).NumberFormat = "d.m.yyyy"  
cell(1, 1).Value = CDate(TextBox1.Text)