Привет! Нужна помощь! Необходимо написать макрос действующий по такому принципу:
Есть лист (назовем его Лист1) в котором есть таблица. В столбце A нанаходятся названия должностей (Должность1, Должность2 итд). Далее по столбцам располагаются названия показателей сами показатели итд. На каждую должность приходится от 3 показателей и более (не лимитировано).
На другом листе я сделал форму запроса в виде списка. Т.е в случ выделения первой должности в списке в определенной ячейке появляется цифра 1, второй, в той же ячейке появляется цифра 2итд. На эту ячейку я нацелил такой макрос
Sub Окносписка22_Изменение()
If Sheets("Запрос пользователя").Cells(2, 1) = 1 Then Должность1
If Sheets("Запрос пользователя").Cells(2, 1) = 2 Then Должность2
If Sheets("Запрос пользователя").Cells(2, 1) = 3 Then Должность3
End Sub
Так вот теперь осталось написать как раз макросы Должность1, 2 и 3. Суть их должна заключатся в том что Они перебирая по 1 строке в столбце A шли вниз и сравнивали с записанное в них с заданым значением (Искали заданное название должности), затем копировали 7 ячеек находящихся правее в этой же строке на другой лист (запрос пользователя), затем искали дальше и делали тоже самое. в итоге должена получится таблица мо мписком показателей прикрепленных к должности.
Заранее благодарен за помощь!
Ответить
|