VBA скрипт для копирования только новых строк - PullRequest
Новая
       23

VBA скрипт для копирования только новых строк

0 голосов
/ 12 июня 2019

Я написал свой первый кусок кода VBA.Цель состоит в том, чтобы иметь сводный лист со всей информацией в нем, а затем иметь несколько «вспомогательных» листов, которые показывают конкретную информацию из сводного листа.

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

Наконец, я надеялся, что тогда было бы легко добавить дополнительные параметры вложенного листа.

Private Sub CommandButton1_Click()
a = Worksheets("Work in progress").Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To a

    If Worksheets("Work In Progress").Cells(i, 12).Value = "Berri Workshop" Then

        Worksheets("Work In Progress").Rows(i).Copy
        Worksheets("Berri Workshop").Activate
        b = Worksheets("Berri Workshop").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Berri Workshop").Cells(b + 1, 1).Select
        ActiveSheet.Paste
        Worksheets("Work In Progress").Activate

    End If
Next

End Sub
...