Автоматическое выделение дубликатов при передаче данных - PullRequest
Новая
       18

Автоматическое выделение дубликатов при передаче данных

0 голосов
/ 03 мая 2019

При нажатии кнопки перенос данных с одного листа (sheet1) на другой (sheet2) и выделение дубликатов.

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

Private Sub CommandButton2_Click()

    On Error GoTo Err_Execute

    Sheet1.Range("A7:V7").Copy
    Sheet2.Range("A6").Rows("1:1").Insert Shift:=xlDown
    Application.CutCopyMode = False
      Selection.Delete Shift:=xlUp

Err_Execute:
    If Err.Number = 0 Then MsgBox "All have been copied!" Else _
    MsgBox Err.Description

End Sub
...