Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Вячеслав
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Создание списка по условию, Необходимо создать список по условию
 
#
17.03.2022 16:34:13
Здравствуйте, помогите советом!
Создал таблицу по закупу, не могу правильно сделать список с выбором по условия. На вкладки покупатели есть список людей по сменам. На основной вкладке список продуктов, напротив каждого продукта номер смены, в следующем столбце необходимо создать список, в котором будут указаны Фамилии, согласно указанной смены. То есть если поменять номер смены, то и должен поменяться список, в соответствии по списку по сменам на вкладке покупатели. В общем привязать номер смены к списку покупателей по сменам.
Заранее благодарю!
Изменено: Вячеслав Лягалин - 17.03.2022 16:35:02
 
Перейти    
Создание умного списка, Необходимо создать список по условию
 
#
11.03.2022 14:00:48
Добрый день!
Помогите пожалуйста выполнить следующую задачу. На одном листе есть график работы сотрудников по сменному графику, нужно чтобы на этом же листе при нажатии на ячейку, открывался список сотрудников, которые бы отдыхали в день, который указан рядом с ячейкой с выбором сотрудника.
Список создал, но у меня открываются все сотрудники

Заранее большое спасибо
 
Перейти    
Запрет доступа к запароленному листу листу Excel при наличии пароля
 
#
17.11.2021 19:59:30
Добрый день!
Почему то выскакивает ошибка Run-time error '9'  Subscript out of range
при открытии макроса в строке Windows("Пароль на лист.xls").Visible = True
Уже по всякому пробовал, менял на Workbook.Windows("Пароль на лист.xls").Visible = True, все равно не работает

Вот код
Код
Private Sub CommandButton1_Click()
        If TextBox1.Text = "111" Then
                Windows("Пароль на лист.xls").Visible = True
                End
        Else
                MsgBox "Вы ввели неправильный пароль", vbInformation, "Неправильный пароль"
        End If
        End Sub

        Private Sub CommandButton2_Click()
                Windows("Пароль на лист.xls").Visible = True
                Worksheets("Лист2").Activate
                End
        End Sub

        Private Sub UserForm_Activate()
                ActiveWindow.Visible = False
        End Sub

        Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
                Cancel = True
        End Sub
 
Перейти    
Страницы: 1
Наверх