Спасибо! Поработаю с данным макросом.

Сорри    , просто автор не успевает делать все сразу. Макрос проверил, никаких сообщений не выдал.

В качестве примера я привел один инвойс. Вообще инвойсов 3000. Нужно определить номер ячейки, в которой номера инвойсов встречаются первый раз.

Прикладываю небольшой файлик.
Вкладка "Номера". В ячейках перечислены номера инвойсов.
Вкладка "Справочник". В столбце "Номера" список инвойсов, которые необходимо найти.
На данный момент у меня получилось определить, сколько раз на вкладке "Номера" встречается инвойс SA130533. Осталась задача, как определить номер ячейки, в которой данный инвойс встречается первый раз?

Это понятно. Вопрос стоит, если у нас файл, к которому нужно обратиться более 1000 раз.

Здравствуйте! Предположим известно, что SA130535 встречается в тексте один раз, как определить в какой ячейки он расположен? Есть ли такая функция? Заранее большое спасибо

Спасибо за ответ. ОБ этом думал, но список состоит из 60 артикулов и может быть больше, очень трудоемко. Файл перезаливаю.  
 
На данный момент у меня такой макрос. Но здесь поиск идет по одному артикулу.    
Sub Search_customs_code()  
Dim myRange As Integer  
Set xRng = Selection  
Dim myColor As Integer  
myRange = 4 'Application.InputBox(Prompt:="Please: Enter number of columne", Type:=1)  
Set myCustCode = Application.InputBox(Prompt:="Please: Enter customs code", Type:=8)  
myColor = 3 'Application.InputBox(Prompt:="Please: Enter color", Type:=1)  
j = 1  
FinalRow = Cells(Rows.Count, myRange).End(xlUp).Row  
For i = 2 To FinalRow  
If Cells(i, myRange).Value = myCustCode Then  
Cells(i, myRange).Font.ColorIndex = myColor  
j = j + 1  
End If  
Next i  
End Sub  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Здравствуйте! На листе 1 есть список значений (CUSTOM CODE), например 3917310001, 3917320002. На листе 2 представлены данные, в одном из столбцов присутствуют значения из листа 1. Необходимо на листе 2 выделить цветом строки, в которых встречаются данные значения CUSTOM CODE), представленые на листе 1. Нужен только макрос, так как создавать новые столбцы и ВПР не подходит. Может есть у кого уже готовый вариант. Заранее большое спасибо. Файл прикладываю.

Здравствуйте!  
Что необходимо добавить в коде, чтобы перенос был не по столбцам, А1, B1, C1, а по строкам, А1,А2,А3. Заранее спасибо.

Здравствуйте! Необходимо сложить ячейку из книги Book1 C1 с ячейкой из книги Book2 B2 и вывести результат обратно в книги Book1 в туже ячейку C1.    
Адаптировал код, но получилось только получить число из другой книги, а сохранить число из текущей ячейки и сложить не получается. Может кто подскажет более простой метод? Заранее спасибо  
Sub Get_Value_From_Close_Book()  
   Dim sShName As String, sAddress As String, vData  
   'Отключаем обновление экрана  
   Application.ScreenUpdating = False  
   Workbooks.Open "C:\Users\jv00671\Desktop\Book2.xls"  
   sAddress = "B3" 'или одна ячейка - "A1"  
   'получаем значение  
   vData = Sheets("Sheet1").Range(sAddress).Value  
   ActiveWorkbook.Close False  
   'Записываем данные на активный лист книги,  
   'с которой запустили макрос  
   If IsArray(vData) Then  
       [C3].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
  Else  
       [C3] = vData
   End If  
   'Включаем обновление экрана  
   Application.ScreenUpdating = True  
End Sub

Спасибо. Тоже неплохо

Все получилось.  
Такой вариант макроса. Всем спасибо за помощь  
 
Sub Date_modify()  
Dim myRange As Integer  
Dim StrVal As String  
Dim dDate As Date  
myRange = Application.InputBox(prompt:="Please: Enter number of columne", Type:=1)  
j = 1  
FinalRow = Cells(Rows.Count, myRange).End(xlUp).Row  
For i = 1 To FinalRow  
StrVal = Format(Cells(i, myRange).Value, "000000")  
If IsNumeric(StrVal) And Len(StrVal) = 6 Then  
         Application.EnableEvents = False  
        dDate = DateValue(Left(StrVal, 2) & "/" & Mid(StrVal, 3, 2) & "/" & Right(StrVal, 2))  
       Cells(i, myRange).NumberFormat = "dd/mm/yyyy"  
           Value = CDate(DateSerial(Year(dDate), Month(dDate), Day(dDate)))  
           Cells(i, myRange).Value = Value  
j = j + 1  
End If  
Next i  
End Sub

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

Здравствуйте! В продолжение темы, может быть у кого-то есть уже готовый макрос по изменению текста вида 050611 или 200111 в дату 23.02.2011 или с другим разделителем? Был бы очень благодарен.

Здравствуйте! В Excel из сторонней программы выгружается файл, при этом дата выгружается в виде текста 220711, необходимо поставить разделители точка или /, чтобы получилось 22.07.11 Не подскажите, как можно сделать это наиболее простым способом? Заранее спасибо за ответ.