Помогите пожалуйста с кодом. Уже 2 день бьюсь и не могу никак победить.
То есть он должен найти книгу с почти таким названием, посчитать количество строк в отфильтрованном столбце и вернуть значения в переменную.
Если Вместо Workbooks(Wb.name) использовать Application.Worksheetfunction то работает, но я должен находиться на этой книге .
Хотелось бы как нибудь это делать с той книги от куда запускаю код. Это возможно? и как?
То есть он должен найти книгу с почти таким названием, посчитать количество строк в отфильтрованном столбце и вернуть значения в переменную.
Если Вместо Workbooks(Wb.name) использовать Application.Worksheetfunction то работает, но я должен находиться на этой книге .
Хотелось бы как нибудь это делать с той книги от куда запускаю код. Это возможно? и как?
Код |
---|
Dim Line as Integer Dim Wb As Workbook For Each Wb In Workbooks If Wb.Name Like ["Книга*"] Then Line = Workbooks(Wb.Name).Subtotal(2, Range("I3:I" & Rows(Rows.Count).End(xlUp).Row)) Next End Sub |