Помогите, пожалуйста. Не могу справиться с кодом
Название листа зависит от содержимого ячейки: Workbooks("Book1.xlsm").Worksheets("Macro").Range("E6").Value
Копировать нужно с 2й строки Workbooks("Book1.xlsm").Sheets("Invoices") - в момент копирования макрос находится именно на этом листе
Попробовала так
Макрос выдает ошибку именно на :
Название листа зависит от содержимого ячейки: Workbooks("Book1.xlsm").Worksheets("Macro").Range("E6").Value
Копировать нужно с 2й строки Workbooks("Book1.xlsm").Sheets("Invoices") - в момент копирования макрос находится именно на этом листе
Попробовала так
Код |
---|
Sub Copy_Data() Dim bk_src As Workbook, bk_res As Workbook, sh_res As Worksheet Set bk_src = Workbooks("Book1.xlsm") Set bk_res = Workbooks("Book2.xlsm") sh_res.Name = Workbooks("Book1.xlsm").Worksheets("Macro").Range("E6").Value sh_src.UsedRange.Offset(1, 0).Copy sh_res.[A1].End(xlDown)(2) MsgBox ("INCOICES DOWNLIADING - Compleat!") End Sub |
Макрос выдает ошибку именно на :
Код |
---|
sh_res.Name = Workbooks("Book1.xlsm").Worksheets("Macro").Range("E6").Value |