Пытаюсь настроить перенос строк из общего списка при наличии аргументов и с учетом свободных строк

Пользователь

Сообщений: 2 Регистрация: 07.02.2022

07.02.2022 15:36:47

Доброго времени суток.
Есть большой список сотрудников (серые ячейки) - они заполнены вручную и исправляются при приеме/уходе с работы(редактируется крайне редко).
Есть их место работы (красные ячейки) - варьируется между заказами, часто меняется, имеет короткие названия для простоты (редактируется часто).
Дальше идет блок условий "если" для придания цифровых значений (единица-ноль) которые потом используются в таблицах и формулах эффективности, занятости и т.д. (он не интересен).
и вот собственно вопрос
Как "договорится" с Excel что бы в заранее подготовленную область "Список цех", "Список склад" и "список офис" он автоматически переносил из списка сотрудников тех, кто там сейчас находится?
есть "Сотрудник 1". В разделе "Где?"(красная зона) я прописываю "цех", и Excel автоматически добавляет его в список.
И так далее
Заранее спасибо

Прикрепленные файлы

образец.xlsx (10.02 КБ)
Образец.jpg (145.67 КБ)

Тимофеев

Пользователь

Сообщений: 1947 Регистрация: 01.09.2020

07.02.2022 15:47:01

Код
=ФИЛЬТР(A:A;B:B="цех")

Kuzmich

Пользователь

Сообщений: 8042 Регистрация: 21.12.2012

07.02.2022 16:09:57

Код

Sub Sotrudnik()
Dim i As Long
  iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("H3:J" & iLastRow).ClearContents
  For i = 3 To iLastRow
    If Cells(i, "B") = "цех" Then
      Cells(Cells(Rows.Count, "H").End(xlUp).Row + 1, "H") = Cells(i, "A")
    ElseIf Cells(i, "B") = "склад" Then
      Cells(Cells(Rows.Count, "I").End(xlUp).Row + 1, "I") = Cells(i, "A")
    Else
      Cells(Cells(Rows.Count, "J").End(xlUp).Row + 1, "J") = Cells(i, "A")
    End If
  Next
End Sub

Михаил Иванович Пользователь Сообщений: 2 Регистрация: 07.02.2022	#4 07.02.2022 16:29:09 Спасибо большое. Решил уже не разбрасываться неграмотностью и не спрашивать "а куда это?". Разобрался куда, все работает. Спасибо, с уважением