Через форму.<STRONG> <BR>Файл удален</STRONG> - велик размер. [Модераторы]

Alexander_V спасибо, принцип тот, но можно сделать так, чтобы форма была активна всегда (и располагалась в районе ячейки А5), а не загружалась при нажатии кнопки поиск? И чтобы её не нужно было закрывать при редактировании ячейки? Тогда если закрепить области и форма будет всегда видна, и поиском по ячейкам можно будет бегать.

{quote}{login=Юрий М}{date=15.01.2010 10:23}{thema=}{post}Alexander_V (не пятый) что у нас с размерами файлов?  
По вопросу: запускайте форму так:  
Поиск.Show 0{/post}{/quote}  
Если честно даже не глянул размер , я вроде несколько строчек  в VBA написал.  
На будущее учту- честно :)

{quote}{login=Alexander_V}{date=16.01.2010 02:32}{thema=Вот сделал}{post}Вроде все  как Вы просили.{/post}{/quote}  
Александр,  
а можно архив в Зипе(политика компаниии только зип)  
Спасибо !

Переупаковал.

Возможен поиск не только по первым символам, но и по вхождению в строку ( как в Store House-R Keeper)

Предлагаю вариант со следующими возможностями :  
- при наборе одного символа формируется список элементов начинающихся с этого символа.  
- при наборе двух и более символов формируется список элементов содержащих эти символы.  
- при выборе пункта из сформированного списка происходит переход к элементу исходного списка.  
- если сформированный список содержит один элемент, то происходит переход к этому элементу.

{quote}{login=Новичок}{date=16.01.2010 09:21}{thema=}{post}Предлагаю вариант со следующими возможностями :  
- при наборе одного символа формируется список элементов начинающихся с этого символа.  
- при наборе двух и более символов формируется список элементов содержащих эти символы.  
- при выборе пункта из сформированного списка происходит переход к элементу исходного списка.  
- если сформированный список содержит один элемент, то происходит переход к этому элементу.{/post}{/quote}  
 
А если вам несложно, а не могли бы вы в самом тексте поиска прописать подробнее какая строка что конкретно делает??? Немного не догоняю как применить это но для поиска не в первом столбце, а в четвертом и чтобы отметка при выборе стояла не в этом же четвертом столбце, а в 6... Многое попеременял, но только все испортил... ПОмогите пожалуйста  
 
Private Sub TextBox1_Change()  
     ListBox1.Clear  
'при отсутствии символов для поиска - выход  
  If Len(TextBox1.Value) = 0 Then Exit Sub  
     
  j = 0  
'для одного символа поиск осуществляем по первой букве  
  If Len(TextBox1.Value) = 1 Then  
     For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row  
         If UCase(Left(Cells(i, 1), 1)) = UCase(TextBox1.Value) Then  
            ListBox1.AddItem i  
            ListBox1.List(j, 1) = Cells(i, 1)  
            j = j + 1  
         End If  
     Next  
    'если найден только один эл-т, то переходим к нему  
     If j = 1 Then Cells(ListBox1.List(0, 0), 1).Select  
     Exit Sub  
  End If  
   
   
For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row  
   If InStr(1, UCase(Cells(i, 1)), UCase(TextBox1.Value)) > 0 Then  
      ListBox1.AddItem i  
      ListBox1.List(j, 1) = Cells(i, 1)  
      j = j + 1  
   End If  
Next  
  'если найден только один эл-т, то переходим к нему  
  If j = 1 Then Cells(ListBox1.List(0, 0), 1).Select  
End Sub

ну помогите, пожалуйста))))

Нажимаешь слева на поиск, вылазит окно с формой. Вот по ней кликаешь и вылезет тебе код... Как-то коряво я наверно описал да???

{quote}{login=Dophin}{date=07.04.2010 11:05}{thema=}{post}спешал фо Микки)  
 
проверяй){/post}{/quote}  
Спасибо Андрей очень оперативно ... а отформатировать цену и сумму автоматом в накладной, как числовой с разделителями и 2 знака после запятой, + все границы по всей накладной можно? Для красоты?

давай я еще подожду, пока ты определишся)

насчет красивше это не ко мне)

дык сделал вроде)