Скомпоновать выпадающий список

[valerij]

Скомпоновать выпадающий список, не могу придумать как это сделать?
Поясню. Мне нужно узнать Вес, полученных товаров по позициям.
В аттаче, перечень товара за 31 день(с шагом 51, дат нет), нужно, что бы я мог просмотреть, за любой день из 31(30, 29, 28), за все дни месяца сразу как в аттаче(а может это лишнее) и общий итог за месяц, наименование позиций, например А3:A40, должны быть всегда, мало того, должен быть выбор торговой точки, то же, любой точки из 13 и общий итог со всех точек.
Причем, сбор данных, это количества товара по позициям * на вес за единицу, макрос должен собрать, только при активации Листа Вес.

[valerij]

Наверно я задумал не выполнимую задачу?

[EducatedFool]

Наверно я задумал не выполнимую задачу?

Задача выполнимая, но сформулировал ты её так, что понять, что же на самом деле требуется, очень сложно...

Непонятно даже, что ты подразумеваешь под выпадающим списком (выпадающий список в ячейке (Данные - Проверка), элемент управления Combobox на листе, тот же Combobox, только на форме, или что-то другое)

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

При правильной постановке задачи ответ бы последовал незамедлительно.
А с такой формулировкой получится как всегда - к 20-му посту в теме выяснится, что изначально требовалось совершенно другое...

[valerij]

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

Задача выполнимая, но сформулировал ты её так, что понять, что же на самом деле требуется, очень сложно..

Игорь, ну а что не ясно, мне самому сформулировать задачу сложно было, но
Давай по этапно.
1. Выпадающий список.
Я имел ввиду, что при активации Листа ВЕС вижу, перечень товара А3:A40 а в В3:В40 сумма данных со всех торг. точек на конец месяца и есть треугольничек в котором есть выбор по числам месяца, рядом, так же, выбор конкретной, торговой точки.

Если опять не ясно, сделаю скрин

[valerij]

Ну ладно с выпадающим списком я разобрался, наверное.
Делал так
Через Элемент Управление - Поле со списком в Свойствах, указал диапазон ячеек и в LinkedCell связал [O3] ... А далее код, что там не так, т. е. меняю в выпадающем списке число, ничего, перещелкну листы, работает, не могу понять(может мона упростить код)?

Private Sub Worksheet_Activate()
Dim dn As Long, dk As Byte
dk = 3
Application.EnableEvents = False
If [O3] = 1 Then dn = 3 'Шаг 51
If [O3] = 2 Then dn = 54
If [O3] = 3 Then dn = 105
If [O3] = 4 Then dn = 156
If [O3] = 5 Then dn = 207
If [O3] = 6 Then dn = 258
If [O3] = 7 Then dn = 309
If [O3] = 8 Then dn = 360
If [O3] = 9 Then dn = 411
If [O3] = 10 Then dn = 462
If [O3] = 11 Then dn = 513
If [O3] = 12 Then dn = 564
If [O3] = 13 Then dn = 615
If [O3] = 14 Then dn = 666
If [O3] = 15 Then dn = 717
If [O3] = 16 Then dn = 768
If [O3] = 17 Then dn = 819
If [O3] = 18 Then dn = 870
If [O3] = 19 Then dn = 921
If [O3] = 20 Then dn = 972
If [O3] = 21 Then dn = 1023
If [O3] = 22 Then dn = 1074
If [O3] = 23 Then dn = 1125
If [O3] = 24 Then dn = 1176
If [O3] = 25 Then dn = 1227
If [O3] = 26 Then dn = 1278
If [O3] = 27 Then dn = 1329
If [O3] = 28 Then dn = 1380
If [O3] = 29 Then dn = 1431
If [O3] = 30 Then dn = 1482
If [O3] = 31 Then dn = 1533
For List = 1 To 13
For tov = dn To dn + 37
Cells(dk, 1 + List) = Sheets(List).Cells(tov, 4) * Cells(dk, 17)
dk = dk + 1
Next
dk = 3
Next
Application.EnableEvents = True
[B42].Select
End Sub

[IgorGO]

Валера, все программируешь? изящно у тебя получается...

Private Sub Worksheet_Activate()
Dim dn As Long, dk As Byte
dk = 3
Application.EnableEvents = False
dn = ([O3] -1)*51+ 3 'Шаг 51
For List = 1 To 13
For tov = dn To dn + 37
Cells(dk, 1 + List) = Sheets(List).Cells(tov, 4) * Cells(dk, 17)
dk = dk + 1
Next
dk = 3
Next
Application.EnableEvents = True
[B42].Select
End Sub

[valerij]

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

Валера, все программируешь? изящно у тебя получается...

Кризис заставляет, ......
Игорь, ну то же самое, меняю в списке число(это даты) и нужно перещелкивать листы.
Я на этом листе, только выбираю числа в выпадающем списке, наверное Private Sub Worksheet_Activate() не катит?
А упрощение, класс!!

[valerij]

Все сделал, но остался последний штрих в этой теме(уже не не соображаю), посмотрите пожалуйста, пояснение в Rem.txt