Здравствуйте! Начала писать макрос для упрощения работы и застопорилась в самом начале. Прошу помочь.
Мне нужно скопировать ячейки, которые нужно будет найти по условию наличия заданных значений в в определенном столбце известной книги, а вот листы будут разные. Название листа я буду задавать в ячейке активной страницы книги в которую как раз и нужно скопировать ячейки. Пока еще нет файла, который можно было бы сбросить для понимания. Просмотрела существующие темы форума, нашла похожие, но без макроса, а формулы мне не подойдут, так как дынных будет очень много.
Вот что набросала:
Sub объем()
    Dim WB As Workbook 'книга из которой буду копировать
   Dim WB2 As Workbook 'книга в которую нужно копировать и где находится название листа
 
   Dim Sht As Sheets 'лист с которого нужно копировать
   Dim Sht2 As Sheets 'лист на котором находится название листа с которого нужно скопировать ячейки
   Set WB = Application.Workbooks.Open("C:\Users\SERLIK\Desktop\ВОЗДУХ\Ж СМК Э-002э_Журнал Лабораторного учета пром.выбросов в атмосферу\Ж СМК Э-002.2э_Журнал Лабораторного учета пром.выбросов в атмосферу.xlsb")
   Set WB2 = Application.Workbooks.Open("C:\Users\SERLIK\Desktop\ВОЗДУХ\Ж СМК Э-002э_Журнал Лабораторного учета пром.выбросов в атмосферу\Ж СМК Э-002.3э_Журнал Лабораторного учета пром.выбросов в атмосферу.xlsb")
   Set Sht2 = WB2.Sheets("1").Range("i1").Select
 
   
Set Sht = WB.Sht2.Select

End Sub