Извлеките данные на панель инструментов, используя Countifs, Sumif из одной ячейки на нескольких листах.

Question

Мне нужна помощь с переносом информации из одной и той же ячейки, например, 50 листов, на лист панели инструментов. В основном это для инструмента управления проектами. У каждого проекта есть лист, и на листе они записывают следующее из B2-B7: категория проекта, категория продукта, менеджер проекта, статус, фаза, стоимость проекта

Эти данные вводятся для всех проектов, которые регистрируются в одной и той же ячейке, но на разных листах (50 листов) минус лист панели инструментов.

На листе панели инструментов я хотел бы подсчитать, сколько " Проекты типа Upgrade (ячейка b2) являются «активными» или «в ожидании» (ячейка b5). Пожалуйста, обратите внимание, что все ячейки в столбцах B имеют выпадающие списки. Я смог решить эту проблему с помощью кода UDP, показанного ниже, но, поскольку это будет активный документ (размещенный на sharepoint), я предпочту иметь код, который я могу запустить на панели инструментов, чтобы он не затрагивался, когда он находится в сети. Любая помощь здесь, пожалуйста? Смотрите код, используемый ниже

Function myCountIf(rng As Range, criteria) As Long
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If ws.name <> "Dashboard" And ws.name <> "Dashboard 1" Then
            myCountIf = myCountIf + WorksheetFunction.CountIf(ws.Range(rng.Address), criteria)
        End If
    Next ws
End Function