Как создать уникальный список обновлений, если критерии удовлетворены на другом листе? - PullRequest
Новая
       9

Как создать уникальный список обновлений, если критерии удовлетворены на другом листе?

0 голосов
/ 29 декабря 2018

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

IF D36: D160 - это "Fælles" или "Lagt ud"
ТО столбцы A: H в этом регионе следует скопировать на другой лист в книге в том же регионе.

Однако он должен идти в первом пустом месте и иметь уникальные значения.

Worksheet

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

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

Private Sub CommandButton1_Click()
A = Worksheets("Stig Okt").Cells(Rows.Count, 1).End(xlUp).Row

For i = 34 To A

    If Worksheets("Stig Okt").Cells(i, 4).Value = "Fælles" Then

        Worksheets("Stig Okt").Rows(i).Columns("A:H").Copy
        Worksheets("Laura Okt").Activate
        b = Worksheets("Laura Okt").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Laura Okt").Cells(b + 1, 1).Select
        ActiveSheet.Paste

    ElseIf Worksheets("Stig Okt").Cells(i, 4).Value = "Lagt ud" Then

        Worksheets("Stig Okt").Rows(i).Columns("A:H").Copy
        Worksheets("Laura Okt").Activate
        b = Worksheets("Laura Okt").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Laura Okt").Cells(b + 1, 1).Select
        ActiveSheet.Paste
        Worksheets("Stig Jan").Activate

    End If

Next

End Sub

ОБНОВЛЕНИЕ Я успешно скопировал оба критерия "Fælles" и "Lagt ud" в другойРабочий лист.Теперь мне просто нужен код, который копирует уникальные значения в другой список, которого раньше не было.Поэтому я могу продолжать обновлять список, нажимая командную кнопку.

1 Ответ

0 голосов
/ 29 декабря 2018

Вы можете использовать 

index(range;row;column)

или 

Vlookup()

проще

...