Блог

Я пытаюсь создать макрос, который будет искать проект под именем пользователя, выяснять, в каком статусе он находится, вставлять его под правильным заголовком, затем увеличивать счетчик, чтобы он вставлял следующий проект в нужное место.

На изображении показаны различные заголовки и проекты, ссылки на ячейки взяты из таблицы RawData

По сути, на изображении есть 6 разных заголовков и статусов. Которые назначены, приняты, находятся в процессе выполнения, на удержании, завершены и отменены. Каждый приведенный ниже рабочий лист назван другим пользователем, например, «WIPTX».

Код, который у меня есть до сих пор, не позволяет мне копировать и вставлять в разные разделы заголовков. Все, что он делает, это просматривает таблицу исходных данных и находит значения из диапазона C1: C, которые имеют значение Assigned и Thomas. Затем копирует и вставляет в совершенно новый раздел рабочего листа под названием WIP. Исходные данные подключены к сайту sharepoint, который обновляется ежедневно. Я все еще новичок в VBA и все еще пытаюсь найти ответы.

 Sub Test()

Dim Cell As Range
Dim myRow As Long

myRow = 2
With Sheets("RawData")
    For Each Cell In .Range("C1:C" amp; .Cells(.Rows.Count, "C").End(xlUp).Row)
        If Cell.Value = "Assigned" And Cell.Offset(0, 1).Value = "Thomas" Then
            .Rows(Cell.Row).copy Destination:=Sheets("WIP").Rows(myRow)
            myRow = myRow   1
        End If
    Next Cell
End With

MsgBox "The code has completed successfully"

End Sub