Мне нужно обновлять мой основной файл каждый раз, когда третье лицо отправляет мне обновленную версию своего ввода. Поэтому мне нужно скопировать и вставить диапазон этого нового ввода в сохраненную книгу на моем компьютере. Диапазон должен включать все столбцы и все строки, если значение в столбце A больше 0. Например, на рисунке ниже, от A1 до A45.
Я нашел способ выбрать строки и остановиться на первом нуле. Я поместил формулу sumprodcut на ту сторону, которую я называю в моем коде i.
Пока у меня есть этот код:
У меня есть ошибка в строке wb1.Sheets("Accounts_latest").Range("A1:BW & i").Copy
, я не могу это исправить ... у вас есть какие-либо идеи?
Дайте мне знать :)
Антуан
Sub CopyPaste()
Dim wb1 As Workbook
Dim wb2 As Workbook
'Open Workbook from Pepper
Set wb1 = Workbooks.Open("G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Accounts latest\Accounts updated\Accounts_latest.xlsx")
'Copy Range (Column A to BW - all filled rows)
Dim i As Integer
i = Sheets("Accounts_latest").Range("CA1").Value
wb1.Sheets("Accounts_latest").Range("A1:BW & i").Copy
'Paste to worksheet in workbook2:
Set wb2 = Workbooks("20200403 Selina - Loanbook V2.09 (1).xls")
wb2.Activate
wb2.Sheets("Pepper Accounts RAW").Range("A1:BW").PasteSpecial Paste:=xlPasteValues
Range("A1").Select
'Close workbook
wb1.Close savechanges:=True
Application.DisplayAlerts = True
End Sub