Страницы: 1
RSS
Автоматическое заполнение наряда-задания при выборе определенной даты и номера бригады
 
Добрый день!
Помогите решить вот такую задачку.

Заполняется лист «ОБЩАЯ». Одна запись – один сотрудник и поставленная ему работа.
После заполнения на листе «НАРЯД» нужно выбрать необходимую дату (L1) и номер бригады (Q4), после чего заполняются строка 4 (это вид, время работ), и строки 8,9,10 фамилиями сотрудников. Соответственно все данные соответствуют дате и номеру бригады. Видов работ может быть разное количество в этот день, так же и количество сотрудников разное и разное количество бригад. Сотрудники в один день могут быть в разных бригадах.
 
Тема: Автоматическое заполнение наряда-задания при выборе определенной даты и номера бригады.
На 23.03.2020 бригада №1 выполняет два вида работ: Шпатлевка стен и Укладка ламината.
Что должно быть отражено в наряде в ячейке В4 ?
 
В ячейке В4 пишется только одна работа. Шпатлевка. Если дата и номер бригады совпадает, то добавляется строка.
Одна строка Шпатлевка, следующая строка  укладка ламината
 
Код
'в модуль листа НАРЯД
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Union(Range("L1"), Range("Q4"))) Is Nothing Then
  Application.EnableEvents = False
Dim iDate As Range
Dim FAdr As String
Dim n As Integer
  With Worksheets("ОБЩАЯ")
   Range("B8:Q10").ClearContents
   Range("B4:B6").ClearContents
   Set iDate = .Columns(1).Find(Range("L1"), , xlValues, xlWhole)
   If Not iDate Is Nothing Then
    FAdr = iDate.Address
     n = 8
    Do
      If iDate.Offset(, 3) = Range("Q4") Then   'проверка бригады
        Cells(n - 4, "B") = iDate.Offset(, 4)   'наименование работ
        Cells(n, "B") = iDate.Offset(, 2)        'ФИО
        Cells(n, "Q") = Range("Q4")             'номер бригады
      End If
        If iDate.Offset(, 3) = Range("Q4") Then n = n + 1
      Set iDate = .Columns(1).FindNext(iDate)
    Loop While iDate.Address <> FAdr
   End If
  End With
 End If
  Application.EnableEvents = True
End Sub

Срабатывает при изменении ячеек L1 и Q4
 
Спасибо!!!!!!
Страницы: 1
Наверх