таблица поверки приборов. выводить список приборов по столбцу "место установки" (в определенном месте установки) на отдельный лист

[LyubashaSemenova]

Здравствуйте! Есть таблица с макросами. Это таблица поверки приборов предприятия. Там есть графы такие как "Подразделение" и "место установки" Мне нужно создать некую кнопочку в этой таблице, чтобы при ее нажатии выводился список приборов находящийся только в определенном месте установки. Лучше если это будет новый лист. Возможно ли такое? Если да, то хоть примерно подскажите как, а то я уже всю голову сломала себе! Заранее благодарна за ответы.
P.S. Прикрепить файл не могу, так как размер у него 3 Mb

[IgorGO]

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

ЗЫ. выслать макрос не могу, потому что его нужно писать, а это приблизительно 0.5- 0.7Кб

[LyubashaSemenova]

Сообщение от IgorGO

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

ЗЫ. выслать макрос не могу, потому что его нужно писать, а это приблизительно 0.5- 0.7Кб

К сожалению, я несколько далека от Excel..
P.S. А если в рублях?)))

[IgorGO]

Sub Copy2NewSheet()
  Dim rg As Range
  Set rg = FindAllAtRange("Что искать???", Columns(3), 1)
  With Worksheets.Add
    rg.EntireRow.Copy .Cells(1, 1)
  End With
End Sub


Function FindAllAtRange(nm As String, FindRg As Range, Optional WithHead As Long = 0) As Range
  Dim ru As Range, rg As Range, adr As String
  If WithHead > 0 Then Set ru = FindRg.Cells(WithHead)
  Set rg = FindRg.Cells(1)
  Set rg = FindRg.Find(nm, rg, xlValues, xlWhole):  If ru Is Nothing Then Set ru = rg
  If rg Is Nothing Then Exit Function Else Set ru = Union(rg, ru):  adr = rg.Address
  Do
    Set rg = FindRg.Find(nm, rg)
    If rg.Address = adr Then Exit Do Else Set ru = Union(ru, rg)
  Loop
  Set FindAllAtRange = ru
End Function

Что искать??? - текст который будет искать макрос (напишите нужный Вам текст)
Columns(3) - указывает в какой колонке вести поиск
на новый лист могут быть скопированы только данные, а может быть еще "шапка" с исходного листа. 3-й параметр - это номер строки содержащей шапку таблицы (в стандартных таблицах шапка - это одна строка в примере указано 1) если 3-й параметр не указывать - скопируются только строки с найденными данными

укажите нужные параметры, выполните Copy2NewSheet при активном листе с данными.

[LyubashaSemenova]

Огромное вам спасибо!!! Только вот у меня такой вопрос! Как сделать так, чтобы при выполнении данной программы итог выводился на один и тот же лист, а не каждый раз на новый? С меня благодарность)))

[IgorGO]

по какому признаку этот "один и тот же" лист отличить от остальных?

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

[LyubashaSemenova]

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

[SAS888]

На мой взгляд, лучше сделать форму с ComboBox-ом, из которого выбирать требуемое (из сформированного списка уникальных значений столбца) значение. А макросом реализовать расширенный фильтр с выводом результата на другой лист без всяких поисков и циклов. Затем удалить "лишние" данные. Будет и проще и быстрее.
Если такое решение Вас интересует, прикрепите xls-файл с данными и подробно опишите задачу. Если информация секретная, то значения в таблице можно заменить на яблоки и груши. Достаточно несколько строк...

[IgorGO]

согласитесь, прикольная фишка - копирование строк с данными вместе с шапкой таблицы и без нее. я отложил в библиотеку своих стандартных функций