поиск по артикулу в нескольких листах с выводом строки в лист поиска

Автор Shniperson, 04.04.2012, 16:21

« назад - далее »

Shniperson

Доброго дня суток.
Нужна помощь - перелистал весь форум, ни где не нашел готового решения по своей теме.
Вкратце суть проблемы: у меня книга с около 100 листами.
Хочу создать поиск (в листе поиск) по артикулу аналогов, они находится в каждом листе в столбце С1 через знак =
и чтобы информация в найденной строке выводилась на лист поиска (Скрин11).
Возможно ли это в принципе?
Сам в exel новичок - до макросов еще не дошел. Если у кого-нибудь есть свободное время и
желание помочь немного "разжевать" информацию
заранее благодарен...

Wasilic

#1
Цитата: Shniperson от 04.04.2012, 16:21
у меня книга с около 100 листами.
А сколько листов содержат полезную информацию?

Цитата: Shniperson от 04.04.2012, 16:21
Возможно ли это в принципе?
В принципе, возможно! Если переорганизовать Ваши 100 листов.

Цитата: Shniperson от 04.04.2012, 16:21
Сам в exel новичок - до макросов еще не дошел.
А вот это уже хуже. Ибо придется все делать с начала и до конца, да еще и "разжовывать".  :)
Для ознакомления, заархивируйте все 100 листов и отправьте мне на электронку.

ЗЫ Получил, просмотрел, отправил обратно с рекомендациями по реорганизации.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Wasilic

В связи с большим оъемом файла, решение задачи по поиску без вывода на лист, выкладываю в виде макроса.
Sub ПОИСК()
   Dim LIS As Worksheet, TX
   TX = "*" & Range("C4") & "*"
   For Each LIS In Worksheets
     With Sheets(LIS.Name)
        For I = 4 To .Cells(Rows.Count, 2).End(xlUp).Row
           If .Cells(I, 2) Like TX Then
              .Select
              .Cells(I, 3).Select
              Exit Sub
           End If
        Next I
     End With
   Next LIS
End Sub
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.