{quote}{login=The_Prist}{date=02.06.2010 09:36}{thema=}{post}Ну, господа, Вы тут навертели!    
Для начала необходимо знать - какой сканер и как он выводит данные о ШК.    
Большинство проводных сканеров выводят то, что отсканировали в то место, где расположен курсор. Для Excel это активная ячейка.  
Но и от самого сканера зависит. Если сканер очень замороченный - то, конечно, придется попотеть.  
Я недавно только делал прогу по обработке данных сканера.    
 
99rus - пишите в личку, пообщаемся через Асю. Чем смогу - помогу.  
Если не хотите в Аське - можно и тут. Просто это затянет процесс...{/post}{/quote}  
у меня такаяже проблемка. купили усб-сканер, подключили, а что с ним делать далее непонятно. дисков с дровами в комплекте небыло, сканер определяется как HID-устройство, при наведении на штрих код пикает, но не в активной ячейке не в ворде не в блокноте ничего не появляется....

{quote}{login=The_Prist}{date=27.02.2010 11:31}{thema=Re: Re: Как выставить точность на 20 знаков?}{post}{quote}{login=Angry}{date=27.02.2010 11:21}{thema=Re: Как выставить точность на 20 знаков?}{post}  
Лучше бы вместо того чтобы рисовать много восклицательных знаков лучше бы помогли разобраться в проблеме.  
Нам нахрен не надо "15 значащих цифр в числе", нам надо чтобы эта сволочь не загоняла автоматом номера счетов в экспоненту. Если уж она не умеет работать с длинными числами пусть помнит его как текст, а не преобразовывает непонятно во что.{/post}{/quote}А Вы дату темы смотрели? Она от 2007 года. И не надо "хреноками" кидаться, Вам кажется еще никто не хамил, чтоб выражаться.  
По существу: перед занесением данных устанавливайте формат ячеек "Текстовый". Но неполохо бы знать, как у Вас данные в ячейки попадают: вручную, экспортом из .txt или экспорт из стороннего приложения.{/post}{/quote}  
у меня по сути таже проблема:  
в эксель уже забиты номера типа 32154-3Е123 или 32145-2Е321, но из них нужно убрать"-" форматирую как текст, жму "найти", "заменить на" и после замены выводится экспоненциальный формат. в автозамене ничего подобного не нашел. что сделать чтобы ексель не переформатировал номер в экспоненциальный формат?

в книге 3 макроса(условно "мак1","мак2","мак3")и несколько кнопок.  
нужно чтобы при нажатии на первую кнопку выполнялся    
сначала "мак1",    
потом "мак2",    
потом "мак3",    
а на второй кнопке чтобы выполнялся    
сначала "мак3",    
потом "мак1",    
потом "мак2"  
возможно???

{quote}{login=McCinly}{date=08.02.2010 07:12}{thema=}{post}Прилепите файл, может кто и поможет... У вас старая таблица, на ней еще макрос от 4-го Excela запускается. Раритет. Может лучше переписать на современный лад.    
У вас какой Excel?{/post}{/quote}  
Господа, макрос записан макро рекордером в 2007-м экселе!!! сначала напечатал страницу 5, потом 15, посмотрел где меняются цыфры и поставил туда "Х"...    
вопрос сводится к текстовым функциям в коих я совсем не силен: как при введенном "***-***" выделить число до "-" и после "-"???

в таблице есть заказы, каждый заказ на своём листе. чтобы напечатать заказ есть такой макрос:  
Sub печать()  
x = InputBox("введите номер страницы", "печать")  
If x = "" Then GoTo ennds  
If x <> "0" Then ExecuteExcel4Macro "PRINT(2," & x & "," & x & ",1,,,,,,,,2,,,TRUE,,FALSE)"  
ennds:  
End Sub  
 
вводим номер листа на котором расположен заказ, и печатаем его, но проблема в том, что некоторые заказы расположены на нескольких страницах. как исправить этот макрос, чтобы он печатал несколько листов. например при вводе 23-25 печатал с 23 по 25 страницы, а при вводе 23 только 23. чтото типа если есть "-", то до "-" это Х, а после У и потом  ...."PRINT(2," & Х & "," & У & ".........

{quote}{login=тухачевский}{date=29.01.2010 03:57}{thema=}{post}сделать общий доступ и ограничить права разн пользователей{/post}{/quote}  
ну с общим доступом всё понятно, а вот по поводу каждому пользователю свои права, эксель просит загрузить какогото клиента и на этолм всё прекращается:(

есть книга, которая обновляется раз в день из рабочего файла(чтобы пользователи не могли ничего попортить). пользователям она нужна только для просмотра, т.е. первый кто её открывает может её править, а все остальные, только для чтения, в т.ч. и я когда хочу её обновить. как можно обойти эту проблему?

Здравствуйте!  
как можно защитить книгу или хотябы лист, чтобы править его мог только я, а все остальные пользователи только смотреть. общий доступ в ней отключен и когда у меня книга открыта, то всё понятно, а вот когда она у меня закрыта, получается что все ей могут пользоваться.  
попробовал сделать так    
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub  
но он просто защищает её, без пароля. что нужно сюда дописать чтобы задавался пароль. И можно сделать так, чтобы этот макрос выполнялся, когда только я открываю эту книгу???? как-нибудь привязать, например, к имени пользователя....

{quote}{login=bandanas}{date=18.11.2009 05:16}{thema=}{post}"a3", "f5", "h6" Это ячейки в которых будет анг раскладка???{/post}{/quote}  
 
а как можно задать чтобы в диапазоне B:B был английский??? пробовал "B:B" неработает... range("B:B") тоже

"a3", "f5", "h6" Это ячейки в которых будет анг раскладка???

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

как вычислить номер последней страницы чтобы поставить в скобки Set ActiveSheet.HPageBreaks(3).Location = Range("A1")????

здравствуйте.  
количество повторяющихся ячеек неизвестно, но диапазоны одинаковых ячеек отделены друг от друга пустой ячейкой.  
как найти адрес, например, последней "22" или пробела после неё? или сосчитать сколько "22" в столбце?? известен адрес первой "22"  
 
т.е. чтото типа  
 
for x = 0 to 1000  
if cells(x,1) = "" then  
kol=x  
goto sled  
end if  
sled:  
 
только покороче....

СПАСИБО!!!!

здравствуйте!  
нужно заполнить столбец  
пишу  
Range(ActiveCell, ActiveCell.Offset(3)).value = Array("данные1", "данные2", "данные3")  
заполняется столбец, но все три строки = "данные1"    
если пишу Range(ActiveCell.offset(3), ActiveCell.Offset(,3)) = Arra("данные1", "данные2", "данные3")  
заполняется первый столбец тримя "данные1" второй тримя "данные2" и т.д.  
как их вывести в столбец???

формулы суммесли и 5 штук еслиошибка(смещ(поискпоз))), 2 из них по артикулу находят название и цену в прайсе, а оставшиеся 3 показывают количества на складе.  
вот если их заменить на    
Private Sub Worksheet_Change(ByVal Target As Range)  
If Not Intersect(Target, Range("b:b")) Is Nothing Then  
где в столбце b вводят артикулы, будет работать быстрее???  
и как тогда организовать поиск артикула в прайсе и на складе чтобы не циклом???

Здасьте всем!  
вот не пойму я зачем такое количество строк и столбцов в экселе если при заполнении 10 столбцов (5 з них формулы) и 300 строк он тачинает ТАК тупить...... или это рассчитано на какието супер компьютеры???? если в нем отключить авто пересчет можно потом пересчитывать только один столбец???

Здравствуйте!  
есть общая книга, которой пользуются 3-6 человек одновременно, в ней примерно 1000 рабочих строк и 16 столбцов. размер файла при этом ок 750кб. периодически книга прибавляет в весе до 5-10 Мб изза того что "рабочая область" растягивается до максимального размера 2007-го экселя..... какбудто ктото из пользователей уснул на энтере или правой стрелке... изза чего такое может быть и как с этим бороться????

{quote}{login=The_Prist}{date=30.10.2009 03:40}{thema=}{post}ActiveCell.Offset(0, 0) = "гос номер"  
ActiveCell.Offset(0, 0) = "VIN"  
ActiveCell.Offset(0, 0) = "год"  
ActiveCell.Offset(0, 0) = "цвет"  
ActiveCell.Offset(0, 0) = "страховая"  
 
=  
 
Range(ActiveCell,ActiveCell.Offset(5)).Value = Array("гос номер", "VIN", "год", "цвет", "страховая")  
 
Старайтесь избегать изобилия Select-ов. Они О-о-о-очень сильно тормозят работу макроса.{/post}{/quote}  
 
а чем кстати select отличается от activate???  
и что делает Application.EnableEvents ????

{quote}{login=The_Prist}{date=30.10.2009 03:21}{thema=}{post}Мне еще вот эти строки в макросе не ясны:  
ActiveCell.Offset(0, 0) = "гос номер"  
ActiveCell.Offset(0, 0) = "VIN"  
ActiveCell.Offset(0, 0) = "год"  
ActiveCell.Offset(0, 0) = "цвет"  
ActiveCell.Offset(0, 0) = "страховая"  
Вы в одной ячейке несколько раз меняете значения. Зачем?{/post}{/quote}  
 
макрос Private Sub Worksheet_Change(ByVal Target As Range)  
меняет активную строку на следующую

{quote}{login=The_Prist}{date=30.10.2009 03:11}{thema=}{post}Если честно, я поменял бы весь макрос...Уж очень много формул. Они действительно так нужны?  
Но пока посоветовал бы добавить после этой строки Application.ScreenUpdating = False такую строку  
Application.Calculation = xlmanual  
а в конце макроса соответственно    
Application.Calculation = xlAutomatic{/post}{/quote}  
 
формулы ОООООЧень нужны.  
они колосально экономят рабочее время, но на создание шаблона уходит СТОЛЬКО времени...... хотя всёравно так проше работать:)

собсно сам макрос  
Sub простобланк()  
Application.ScreenUpdating = False  
Sheets("заявки на ЗЧ").Activate  
Cells(Rows.Count, 2).End(xlUp).Select  
ActiveCell.Offset(0, 0) = "марка"  
ActiveCell.Offset(-1, 2) = Date  
ActiveCell.Offset(-1, 5) = "=IF(ISERROR(OFFSET('[запись кузовного.xlsx]запись'!R1C15,MATCH(R[7]C[-3],'[запись кузовного.xlsx]запись'!R3C15:R2999C15,0),-7)),IF(ISERROR(OFFSET('[запись кузовного.xlsx]отданные'!R1C15,MATCH(R[7]C[-3],'[запись кузовного.xlsx]отданные'!R3C15:R2999C15,0),-7)),"""",""в отданных""),OFFSET('[запись кузовного.xlsx]запись'!R1C15,MATCH(R[7]C[-3],'[запись кузовного.xlsx]запись'!R3C15:R2999C15,0),-7))"
 
model = ActiveCell.Offset(0, 1).Address  
marka = ActiveCell.Offset(-1, 1).Address  
   With ActiveCell.Offset(-1, 1).Validation  
       .Delete  
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _  
       xlBetween, Formula1:="=марка"  
       .IgnoreBlank = True  
       .InCellDropdown = True  
       .ShowInput = True  
       .ShowError = True  
   End With  
ActiveCell.Offset(-1, 1) = "выбор_марки"  
ActiveCell.Offset(0, 0) = "модэль"  
Nom = ActiveCell.Offset(0, 1).Address  
   myReferenceStyle = Application.ReferenceStyle  
Application.ReferenceStyle = xlR1C1  
With ActiveCell.Offset(-1, 1).Validation  
.Delete  
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=indirect(R[-1]C)"
.InCellDropdown = True  
End With  
Application.ReferenceStyle = myReferenceStyle  
 
ActiveCell.Offset(5, 2) = "=" & model & "&" & Nom  
ActiveCell.Offset(5, 2).Font.Italic = True  
ActiveCell.Offset(0, 0) = "гос номер"  
ActiveCell.Offset(0, 0) = "VIN"  
ActiveCell.Offset(0, 0) = "год"  
ActiveCell.Offset(0, 0) = "цвет"  
ActiveCell.Offset(0, 0) = "страховая"  
With ActiveCell.Offset(-1, 1).Validation  
       .Delete  
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _  
       xlBetween, Formula1:="=страховые"  
       .IgnoreBlank = True  
       .InCellDropdown = True  
       .ShowInput = True  
       .ShowError = False  
   End With  
ActiveCell.Offset(0, 1).NumberFormat = "@"  
ActiveCell.Offset(0, 0) = "№заказ-наряда"  
ActiveCell.Offset(0, 0) = "к-во деталей"  
ActiveCell.Offset(0, 2) = "=IFERROR(OFFSET('[запись кузовного.xlsx]отданные'!R1C15,MATCH(R[-1]C,'[запись кузовного.xlsx]отданные'!R2C15:R2999C15,0),-7),"""")"
ActiveCell.Offset(-1, 1) = "=IF(SUM(R[1]C:R[4]C)=0,"""",SUM(R[1]C:R[4]C))"
ActiveCell.Offset(-1, 3) = "=IF(SUM(R[1]C:R[4]C)=0,"""",SUM(R[1]C:R[4]C))"
ActiveCell.Offset(1, 1) = "=IF(RC[-1]="""","""",1)"
ActiveCell.Offset(2, 1) = "=IF(RC[-1]="""","""",1)"
ActiveCell.Offset(0, 0) = "Реферанс"  
ActiveCell.Offset(-1, -1) = "№"  
ActiveCell.Offset(-1, 1) = "Кол-во"  
ActiveCell.Offset(-1, 2) = "Наименоваеие"  
ActiveCell.Offset(-1, 3) = "получено"  
ActiveCell.Offset(-1, 4) = "Цена"  
ActiveCell.Offset(-1, 5) = "на складе"  
ActiveCell.Offset(-1, 6) = "в сервисных"  
ActiveCell.Offset(-1, 7) = "в заявках"  
ActiveCell.Offset(-1, 8) = "в заказах"  
ActiveCell.Offset(-1, 9) = "заказано"  
ActiveCell.Offset(0, -1) = "=IF(RC[1]="""","""",if(rc[1]=""дозаказ"",""№"",IF(R[-1]C=""№"",1,R[-1]C+1)))"
ActiveCell.Offset(0, 2) = "=IFERROR(IF(ISERROR(OFFSET(INDIRECT(""'прайс "" & RC[9]& ""'!R1C1"",FALSE),MATCH(RC[-2],INDIRECT(""'прайс "" & RC[9]& ""'!R2C1:R50000C1"",FALSE),0),2)),OFFSET(INDIRECT(""'прайс Рено'!R1C1"",FALSE),MATCH(RC[-2],INDIRECT(""'прайс рено'!R2C1:R50000C1"",FALSE),0),2),OFFSET(INDIRECT(""'прайс "" & RC[9]& ""'!R1C1"",FALSE),MATCH(RC[-2],INDIRECT(""'прайс "" & RC[9]& ""'!R2C1:R50000C1"",FALSE),0),2)),"""")"
ActiveCell.Offset(0, 4) = "=IFERROR(IF(ISERROR(OFFSET(INDIRECT(""'прайс "" & RC[7]& ""'!R1C1"",FALSE),MATCH(RC[-4],INDIRECT(""'прайс "" & RC[7]& ""'!R2C1:R50000C1"",FALSE),0),1)),OFFSET(INDIRECT(""'прайс Рено'!R1C1"",FALSE),MATCH(RC[-4],INDIRECT(""'прайс рено'!R2C1:R50000C1"",FALSE),0),1),OFFSET(INDIRECT(""'прайс "" & RC[7]& ""'!R1C1"",FALSE),MATCH(RC[-4],INDIRECT(""'прайс "" & RC[7]& ""'!R2C1:R50000C1"",FALSE),0),1)),"""")"
ActiveCell.Offset(0, 5) = "=iferror(OFFSET('прайс Рено'!R1C1,MATCH(RC[-5],'прайс Рено'!R2C1:R10000C1,0),6),"""")"
ActiveCell.Offset(0, 6) = "=iferror(OFFSET('прайс Рено'!R1C1,MATCH(RC[-6],'прайс Рено'!R2C1:R10000C1,0),7),"""")"
ActiveCell.Offset(0, 7) = "=SUMIF(C[-7],RC[-7],C[-6])"
ActiveCell.Offset(0, 8) = "=IFERROR(OFFSET(заказы!R1C1,MATCH(RC[-8],заказы!R2C1:R10000C1,0),2),"""")"
ActiveCell.Offset(1, -1) = "=IF(RC[1]="""","""",if(rc[1]=""дозаказ"",""№"",IF(R[-1]C=""№"",1,R[-1]C+1)))"
Range(ActiveCell.Offset(-1, -1), ActiveCell.Offset(-1, 9)).Borders.Weight = xlMedium  
Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(1, 9)).Borders.LineStyle = xlContinuous  
ActiveCell.Offset(2, 0) = "марка"  
 
For x = 1 To 12  
ActiveCell.Offset(x - 14, 10) = "=" & model & "&" & Nom  
ActiveCell.Offset(x - 14, 11) = "=" & marka  
Next  
Application.ScreenUpdating = True  
End Sub  
 
 
 
работает он в свяске с    
Private Sub Worksheet_Change(ByVal Target As Range)  
 
 
   If Not Intersect(Target, Range("b:b")) Is Nothing Then  
       Target.Offset(1, 0).Select  
       Application.EnableEvents = False  
       If ActiveCell = "марка" Then  
           Selection.EntireRow.Insert  
           Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, 9)).Borders.LineStyle = xlContinuous  
           Target.Offset(0, -1) = "=IF(RC[1]="""","""",if(rc[1]=""дозаказ"",""№"",IF(R[-1]C=""№"",1,R[-1]C+1)))"
           Target.Offset(1, 1) = "=IF(RC[-1]="""","""",1)"
           Target.Offset(0, 2) = "=IFERROR(IF(ISERROR(OFFSET(INDIRECT(""'прайс "" & RC[9]& ""'!R1C1"",FALSE),MATCH(RC[-2],INDIRECT(""'прайс "" & RC[9]& ""'!R2C1:R50000C1"",FALSE),0),2)),OFFSET(INDIRECT(""'прайс Рено'!R1C1"",FALSE),MATCH(RC[-2],INDIRECT(""'прайс рено'!R2C1:R50000C1"",FALSE),0),2),OFFSET(INDIRECT(""'прайс "" & RC[9]& ""'!R1C1"",FALSE),MATCH(RC[-2],INDIRECT(""'прайс "" & RC[9]& ""'!R2C1:R50000C1"",FALSE),0),2)),"""")"
           Target.Offset(0, 4) = "=IFERROR(IF(ISERROR(OFFSET(INDIRECT(""'прайс "" & RC[7]& ""'!R1C1"",FALSE),MATCH(RC[-4],INDIRECT(""'прайс "" & RC[7]& ""'!R2C1:R50000C1"",FALSE),0),1)),OFFSET(INDIRECT(""'прайс Рено'!R1C1"",FALSE),MATCH(RC[-4],INDIRECT(""'прайс рено'!R2C1:R50000C1"",FALSE),0),1),OFFSET(INDIRECT(""'прайс "" & RC[7]& ""'!R1C1"",FALSE),MATCH(RC[-4],INDIRECT(""'прайс "" & RC[7]& ""'!R2C1:R50000C1"",FALSE),0),1)),"""")"
           Target.Offset(0, 5) = "=iferror(OFFSET('прайс Рено'!R1C1,MATCH(RC[-5],'прайс Рено'!R2C1:R10000C1,0),6),"""")"
           Target.Offset(0, 6) = "=iferror(OFFSET('прайс Рено'!R1C1,MATCH(RC[-6],'прайс Рено'!R2C1:R10000C1,0),7),"""")"
           Target.Offset(0, 7) = "=SUMIF(C[-7],RC[-7],C[-6])"
           Target.Offset(0, 8) = "=IFERROR(OFFSET(заказы!R1C1,MATCH(RC[-8],заказы!R2C1:R10000C1,0),2),"""")"
           x = Target.Offset(-1, 10).Address  
           y = Target.Offset(-1, 11).Address  
           Target.Offset(1, 10) = "=" & x  
           Target.Offset(1, 11) = "=" & y  
           Target.Offset(1, -1) = "=IF(RC[1]="""","""",if(rc[1]=""дозаказ"",""№"",IF(R[-1]C=""№"",1,R[-1]C+1)))"
       End If  
       If ActiveCell.Offset(-1, 0) = "дозаказ" Then  
       Range(ActiveCell.Offset(-1, 1), ActiveCell.Offset(-1, 9)) = ""  
       End If  
   End If  
Application.EnableEvents = True  
End Sub

Доброго всем времани суток.  
есть макрос добавляющий шаблон на лист. сначала он выполнялся примерно пару сеунд, постепено он совершенствовался и рос, теперь он выполняется примерно минуту, а то и две.... подскажите что в нем можно поменять чтобы он работал побыстрее или что для этого сделать???

{quote}{login=Лузер™}{date=22.10.2009 06:00}{thema=}{post}СМЕЩ() не проверял, а ДВССЫЛ() будет работать только с открытой книгой.  
А если макрос использовать, то зачем двссыл?  
Так и пишите:  
имяфайла = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")  
ActiveCell.Offset(0, 2) = "='" & имяфайла & "[прайс" & ActiveCell.Offset(0, 11) & ".xls]ЛИСТ1'!$C$4"
 
C ActiveCell.Offset(0, 11) мог напутать. Сами вместо 11 подставите  нужную цифру.{/post}{/quote}  
 
вот в этом ActiveCell.Offset(0, 11) и есть вся проблема, т.к. он меняется.... поэтому и двссыл :(

Доброго времени суток.  
в книгу вводятся артикулы и по ним через смещ(поискпоз()) проставляется цена в зависимости от выбранного прайса. проблема в том, что прайсы примерно по 40000строк, это сильно увеличивает размер книги и время её открытия и сохранения. будет ли работать смещ(поискпоз()) из другой книги???  
=(СМЕЩ(ДВССЫЛ("'прайс " & M1& "'!R1C1";ЛОЖЬ);ПОИСКПОЗ(ПОДСТАВИТЬ(B1;СИМВОЛ(45);"");ДВССЫЛ("'прайс " & M1& "'!R2C1:R50000C1";ЛОЖЬ);0);1))  
в формуле в ячейке М1 указывается имя прайса.  
 
Какнибудь так нельзя сделать??? только с синтаксисом запутался  
имяфайла = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "прайс")  
ActiveCell.Offset(0, 2) = "=indirect(""'[" & имяфайла & "RC[9]& "".xls]ЛИСТ1'!$C$4"",false)"

{quote}{login=vikttur}{date=21.10.2009 03:05}{thema=}{post}Пора маленький пример. Иначе как на кофейной гуще.{/post}{/quote}  
 
вот пример. только там уже и с буквой показывает Н/Д......

{quote}{login=Dophin}{date=21.10.2009 02:53}{thema=}{post}да, и всю формулу - формулой массива вводить{/post}{/quote}  
это как?  
 
формат на листе прайс1 итак текстовый....

если в искомых значениях содержится хоть одна буква, то всё отлично, а если только числовое значение, то не работает. изменение формата на текстовый и обратно не помогает.    
=СМЕЩ('прайс 1'!A1;ПОИСКПОЗ(ПОДСТАВИТЬ(B30;СИМВОЛ(45);"");'прайс1'!A2:A50000;0);2))

спасибо!

драсьте всем!  
в таблице есть огромный прайс (примерно 40000строк)в первом столбце артикул, во втором цена. к нему приходит обновление цен примерно 200 строк. сделал вложенными циклами: беру первый артикул из обновления и сравниваю со всеми строками прайса, если совпадение, обновляю цену, если нет, добавляю строку в конец прайса. проблема в том, что выполняется всё это оооочень долго:( както можно это сделать через FIND???? немогу разобраться с синтаксисом этого find`а...