Здравствуйте, уважаемые форумчане. Нужна помощь в макросе.

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

Нужно получить такой файл Прайсы-заказы.xlsm

в колонке А = список файлов в папке поиска, в колонке В количество ячеек к конкретном файле в определенной строке на нужном листе, которые содержат текст опл

Так как в каждом прайсе номер строки и имена листов с названиями заказов разные, пришлось сделать справочник, в котором указаны эти данные для каждого прайса

Я смог написать макрос, который выводит список файлов в папке.

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

Sub ListFilesInFolder()
  Dim folderPath As String, fileName As String
  Dim fileNum As Integer
  Dim rowNum As Long

  ' Путь к папке
  folderPath = "C:\Прайсы"

  ' Очищаем предыдущий список (если есть)
  Columns("A").ClearContents

  ' Задаем начальную строку для вывода списка
  rowNum = 1

  ' Получаем первый файл в папке
  fileName = Dir(folderPath & "\*.*")

  ' Пока есть файлы в папке
  Do While fileName <> ""
    ' Записываем имя файла в ячейку
    Cells(rowNum, 1).Value = fileName

    ' Увеличиваем номер строки для следующего файла
    rowNum = rowNum + 1

    ' Получаем следующий файл
    fileName = Dir()
  Loop

  ' Автоматически подстраиваем ширину столбца
  Columns(1).AutoFit

  ' Выводим сообщение об успешном завершении
  MsgBox "Список файлов сформирован."
End Sub

Однако дальше не получается.

Можете помочь с макросом, который делал бы следующее:

• вывести список всех файлов в папке, указанной в файле-примере в E1

• для каждого прайса ищет в ячейках строки (ее номер в столбце I), находящейся на листе  (название в столбце J) все ячейки, содержащие текст из ячейки E2. Надо учитывать, что в ячейках строки могут разные типы данных, а также просто пустые ячейки

• выводит общее количество таких ячеек (фактически количество оплаченных заказов в конкретном прайсе) в столбце B, напротив соответствующего прайса.

Добрый день, уважаемые форумчане!

Требуется помощь в написании формулы массива.

Вот задача (все данные в приложенном файле).

В колонке А находится список названий книг, который надо проверить на наличие слов-исключений. Эти слова находятся в F2:F5. Если в наименовании  находится слово, или часть слова, или сразу несколько слов из таблицы исключений, то в соответствующей колонке столбца D пишется слово DELETE, иначе в этой же ячейке прописывается наименование книги без изменений.

Формула, с помощью которой я решил эту задачу, есть в ячейке А2

В полном объеме тысячи наименований на разных листах файла, и потом еще будет обработка этих таблиц. Список слов-исключений меняется, то становиться больше, то меньше. Каждый раз приходиться переписывать формулу.

Есть ли возможность написать формулу, которая будет автоматически подстраиваться под список исключений?

Как я понимаю, надо превратить список исключений в умную таблицу (сделано) и применить формулу массива, но формула ПОИСК в виде массива работать не хочет…

Нужно решение, которое будет работать в Excel 2010.