Обновляемая БД (help)

[SAS888]

Я так понимаю количество строк будет влиять на скорость макросов?
Ничего страшного

Тогда проще так:

Sub обновка()
    Dim wb As Workbook, ws As Worksheet, x As Range, i As Integer, a()
    Application.ScreenUpdating = False
    Set ws = ActiveSheet: a = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\Централизованный.xlsx")
    For i = 1 To UBound(a, 1)
        Set x = [A:A].Find(what:=a(i, 1), LookAt:=xlWhole)
        If x Is Nothing Then ws.Rows(i + 1).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1) _
        Else ws.Rows(i + 1).Copy Rows(x.Row)
    Next
    wb.Close True
End Sub

Пример во вложении.

[Евгений Таб]

Сообщение от SAS888

Тогда проще так:

Sub обновка()
    Dim wb As Workbook, ws As Worksheet, x As Range, i As Integer, a()
    Application.ScreenUpdating = False
    Set ws = ActiveSheet: a = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\Централизованный.xlsx")
    For i = 1 To UBound(a, 1)
        Set x = [A:A].Find(what:=a(i, 1), LookAt:=xlWhole)
        If x Is Nothing Then ws.Rows(i + 1).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1) _
        Else ws.Rows(i + 1).Copy Rows(x.Row)
    Next
    wb.Close True
End Sub

Пример во вложении.

Подозрительно маленький код.
Но он работает. Потестю еще.
Как сохранить и закрыть Централизованный если все .true?
Ну чтобы он не всплавал в окошке.

[SAS888]

Вы успели прочитать мое сообщение раньше, чем я его исправил.
Нужно использовать "wb.Close True".
В моем предыдущем сообщении и во вложении это реализовано.

[Евгений Таб]

Все ок, только ошибка

[SAS888]

Дело в том, что макрос формирует массив из значений столбца "A" файла "Юзер", начиная со 2-ой строки, заканчивая последней заполненной ячейкой столбца. Затем организуется цикл по элементам массива. Если интересующий нас диапазон состоит из одной единственной ячейки, то при попытке сформировать массив будет ошибка.
Чтобы избежать возможной в этом случае ошибки, достаточно строку

a = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value

заменить на

a = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value

Теперь, если заполнена всего одна строка, массив будет формироваться из 2-х ячеек столбцов "A" и "B", т. е. без ошибки.
Пример во вложении.
Еще можно в начале кода проверять, заполнена ли ячейка "A2" (либо другими возможными способами), т. е. есть ли вообще заполненные нужными данными строки. И, если таблица пуста, то ничего не делать (выход из процедуры).