Excel VBA Проверка новых данных, если новая копия на отдельном листе - PullRequest
Новая
       17

Excel VBA Проверка новых данных, если новая копия на отдельном листе

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

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

У меня есть данные в трех столбцах (B: D), у меня есть код, который копирует их как значения в E: G, и я пытаюсьчтобы заглянуть в столбец E, чтобы увидеть, есть ли новые элементы, которые соответствуют критериям, они вставляются на другой лист.

Я попытался добавить новый столбец и использовать формулы Countifs.Мой код делает: если значение равно нулю (указывает результат), то его новый, диапазон затем копируется в конец другого листа (сводный лист).

Добавление нескольких критериев к индикаторам сделало мои фильтры в сводкелист очень медленно и практически невозможно использовать.поэтому я пытаюсь найти альтернативный способ сделать то же самое без столбца дополнительных показателей.

любой вход будет высоко оценен.

Вот предыдущий код: 

Dim numberrow As Integer

Application.ScreenUpdating = False
ActiveSheet.Range("$A$4:$I$2141").AutoFilter Field:=2, Criteria1:="0"
numberrow = WorksheetFunction.CountIf(Range("b4:b5000"), "0")

If numberrow > 0 Then

    MsgBox "New Items: " & WorksheetFunction.CountIf(Range("b4:b5000"), "0")
    Columns("B:B").Select
    Selection.EntireColumn.Hidden = True

    Sheets("Std Data").Range("a5: " & "c5000").SpecialCells(xlCellTypeVisible).Copy
    Sheets("Std Trends").Activate
    Sheets("Std Trends").Range("b" & Rows.Count).End(xlUp).Offset(1).EntireRow.Resize(numberrow).PasteSpecial xlPasteValues

    LR = ActiveSheet.UsedRange.Rows.Count
    Range("n7:p7").AutoFill Destination:=Range("n7:p" & LR)


Else
    MsgBox "No New Items"
    ActiveSheet.Range("$A$4:$I$2141").AutoFilter Field:=2
End If


End Sub
...