Получить значение из первого столбца последней строки другой книги

[lioon]

Добрый день,

Столкнулся с проблемой, которую пока не удалось решить.

Пред история: есть файл "Задание", который создает отчет и формирует строку, которую я вставляю в последнюю строку сводного файла.

В чем проблема: перед тем как вставить текущую строку последней в книге со сводной таблицей, нужно из последней строки столбца А (сводного файла) считать номер и записать его в файл задания (это Номер задания) и уже с этим номером строка из файла "Задание" добавляется последней в сводную таблицу.

Вставить строку получилось, а получить и записать номер задания - нет.

Код которым пользовался для добавления строки:

 If Not TypeName(Selection) = "Range" Then Exit Sub
        Dim lr&, wb As Workbook, lb As Workbook
        With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
        Set wb = GetObject("d:\Сводный.xlsm")   'путь к сводному файлу
        Set lb = ThisWorkbook
        lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1)
        wb.Close (True)   ' закрыть с сохранением
        With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
        Set wb = Nothing: Set lb = Nothing

[Hugo121]

номерзадания=wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp)

И Вам не важно, что файл сохраняется с невидимым окном?

[lioon]

Да, для данной задачи, я думаю, это правильное решение, т.к. единственное, что нужно от этого файла - это следующий номер по порядку.

[lioon]

Допедрил.
Пошел по пути наименьшего сопротивления. Подсчитал количество строк в сводном документе и прибавил к нему единицу - номер следующего документа:

Выкладываю решение:

Dim lr&, wb As Workbook, lb, ish As Workbook
        Dim i As Integer
        With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
        Set wb = GetObject("Z:\Сводный.xlsm") 
        Set lb = ThisWorkbook
        i = wb.Worksheets(1).Columns("A").End(xlDown).Row
        lb.Worksheets(1).Range("J6").Value = i+1

[Hugo121]

Почему не

номерзадания=wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp)
lb.Worksheets(1).Range("J6").Value = номерзадания+1

или как у Вас

i = wb.Worksheets(1).Columns("A").End(xlDown)
lb.Worksheets(1).Range("J6").Value = i+1

[lioon]

да, можно так. Спасибо