Макрос для формирования таблицы на отдельном листе по номеру ID

[eclat]

Проблема в следующем, никак не могу понять как сделать макрос так, чтобы при наборе определенного ID объекта на новом листе создавалась таблица из нужных столбцов, описывающих этот объект. То есть, к примеру, на листе 1 у меня массив данных по всем объектам, я хочу сделать так, чтобы при вызове макроса, описание определенного объекта выходило на новый лист причем не по столбцам как на листе 1, а по строчкам.
Должно работать в Excel 2003.
Помогите пожалуйста, добрые люди!!! Жуть как надо!

[EducatedFool]

чтобы при наборе определенного ID объекта

При наборе где?

• На листе (в ячейке, выбор из выпадающего списка)?
• В диалоговом окне (надо вводить текст)?
• В форме (выбор из выпадающего списка)?

В примере файла все ID - уникальные.
В реальном файле будут повторяющиеся?

К примеру, пользователь выбрал ID #a00104.
Как дожна выглядеть таблица на новом листе?

таблица из нужных столбцов, описывающих этот объект

Какие столбцы - нужные?
В свой файл добавьте пример такого листа для какого-нибудь ID.

[eclat]

Спасибо за отклик! Я уточнила свой запрос. Все, что нужно в прикрепленном файле!

[nilem]

Можно так попробовать. Только не кнопка, а двойной клик по ячейке с ID objektu заполняет табличку и активизирует лист Popis.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B7:B2005]) Is Nothing Then Exit Sub
Dim X As Variant
X = Range(Cells(Target.Row, 6), Cells(Target.Row, 21)).Value
With wshPopis
    .[G4].Value = Target.Value
    .[G5:G20].Value = WorksheetFunction.Transpose(X)
    .[F22].Value = Target.Offset(, 21).Value
    Target.Offset(1).Select: .Activate
End With
End Sub

[eclat]

Спасибо за помощь! Буду разбираться, что и как

[eclat]

nilem, извините возможно за глупый вопрос, я полный чайник в VBA. в вашем коде разобралась со всем, кроме строк .[F22].Value = Target.Offset(, 21).Value и Target.Offset(1).Select: .Activate.
Как они работают? Я понимаю, что здесь мы выбраем для ячейки F22 данные с wshByty, но почему там указывается номер 21, если на wshByty данные находятся в столбце 23?

[Hugo121]

Target.Offset(, 21) - на 21 ячейку вправо
Target.Offset(1) - на 1 вниз

и для ясности
Target.Offset(2, 4) - на 2 вниз и на 4 вправо

[eclat]

Спасибо огромное!!! Все встало на свои места!!!

[eclat]

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

[doober]

Я считаю.что хранить картинки в файле Ексель-не правильный подход
2000 записей на листе.на 2 листах 4000.
одна картинка порядка 15 Кb/
итог -60 Mb. груза.
Проще картинки хранить в папке,а просмотр согласно ID