Вывод таблицы по значению

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Вывод таблицы по значению (Макросы Sub)

Stormy

Дата: Суббота, 01.03.2014, 13:39 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Добрый день, уважаемые форумчане.
Столкнулся с проблемой. Есть таблица в которой указаны комплектующие для каждого вида товара.
Выбираем товар ххх , рядом в таблице должен отобразиться весь список из Лист2.
Не могу додумать как это делать и с чего начать

Буду признателен за подсказки/советы/примеры

К сообщению приложен файл: 0607698.xlsx (9.6 Kb)

Место для рекламы.

Ответить

wild_pig

Дата: Суббота, 01.03.2014, 15:43 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

В модуль листа:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("C3:C100")) Is Nothing Then
         With Sheets("Лист2")
             a = .Range("C3:D" & .Cells(Rows.Count, 3).End(xlUp).Row).Value
         End With
         rw = Target.Row
         For i = 1 To UBound(a)
             If a(i, 1) = Target Then
                 Cells(rw, 4) = a(i, 2)
                 rw = rw + 1
             End If
         Next
     End If
End Sub

[/vba]