Добрый день. Нужна помощь, файл и код приложил. Ситуация следующая.есть 2 листа.
на 1 листе
На 2 листе
Так вот если я указываю указываю на 2 листе вес для переработки( вес всегда будет разным) и указываю время на переработку( данный критерий тоже всегда будет разный) Мне нужно, чтобы когда 2 критерия заполнены, из листа 1 на лист 2 вытягивалось только то количество сотрудников которые способны переработать вес в указанный спок.
Еще один не мало важный элемент, при изменении времени на 2 листе, на первом листе всегда меняется средний вес так как он всегда будет умножаться на число которое указанно в колонке время на переработку.
по возможности код с комментариями, я в этом совсем 0
это модуль он есть в прикрепленном файле
в отчете 2 макроса.
на 1 листе
Тн, | Фио, | Средний вес |
Тн, | Фио, | Средний вес, | укажите вес для переработки в кг, | укажите время на переработку в часах |
Еще один не мало важный элемент, при изменении времени на 2 листе, на первом листе всегда меняется средний вес так как он всегда будет умножаться на число которое указанно в колонке время на переработку.
по возможности код с комментариями, я в этом совсем 0
это модуль он есть в прикрепленном файле
Код |
---|
Sub AverageWt() Dim r&, ar, rg As Range With Worksheets(1) ar = .Cells(1).CurrentRegion.Value For r = 2 To UBound(ar) If (ar(r, 3) - [d2]) ^ 2 < 10 ^ 6 Then If rg Is Nothing Then Set rg = .Cells(r, 1).Resize(1, 3) Else Set rg = Union(rg, .Cells(r, 1).Resize(1, 3)) End If End If Next End With Application.EnableEvents = False r = Cells(Rows.Count, 1).End(xlUp).Row If r > 1 Then Rows(2).Resize(r - 1).Cells.ClearContents If Not rg Is Nothing Then rg.Copy [a2] Application.EnableEvents = True End Sub |
в отчете 2 макроса.