Как создать макрос для конкретной цели - PullRequest
Новая
       23

Как создать макрос для конкретной цели

1 голос
/ 14 марта 2019

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

На рисунке показаны различные заголовки и проекты, ссылки на ячейки взяты из листа 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" & .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
...