Ошибки в Элементарном коде!

[doober]

А так не проще

 Dim lLastRow As Long
lLastRow = Workbooks("СВОД за 12 месяцев.xls").Sheets("Итоги").Cells(Rows.Count, 1).End(xlUp).Row

[Серёга0629]

что-то я его не до кона понял, предведущая версия работает, Спасибо)

[Hugo121]

Почему не работает - я там выше написал: потому что из модуля листа запускаете.
Из стандартного модуля Ваш код работает.
Хотя код конечно нуждается в переделке - вариантов Вам много дали

[Серёга0629]

Сообщение от Hugo121

Почему не работает - я там выше написал: потому что из модуля листа запускаете.
Из стандартного модуля Ваш код работает.
Хотя код конечно нуждается в переделке - вариантов Вам много дали

Моет вопрос покажется глупым, но я не пойму.
Модуль листа(как я понимаю) это в том листе где происходит действие.
а стандартный модуль это что?

[Hugo121]

Стандартный в моём понимании (может есть и другое название) - это когда на книге "вставить -> модуль", и появляется модуль отдельно. И код в этом модуле.

Модуль листа(как я понимаю) это в том листе где происходит действие.

- вот именно, модуль там, а действие Вы хотите произвести в другом листе - поэтому там селекты и не работают.

[Серёга0629]

Спасибо за разъеснение)

[IgorGO]

То, что Игорь назвал стандартным модулем я называю программым. Возможно кто-то более тщательно изучавший документацию по ВБА может нас обоих поправить...
модуль листа, это тот модуль в который Вы можете попасть из книги эксель - правой кнопкой по ярлыку листа, "Исходный текст".
простой код:
Range("A1:D10").Select
написанный в модуле листа отметит дианазон A1:D10 на этом листе.
этот же код - в программном модуле - отметит диапазон A1:D10 на активном в момент выполнения кода листе.
Разницу улавливаете? этот лист - речь идет о совершенно определенном листе, а активным - может оказаться любой из листов книги, не обязательно это будет этот лист

[Hugo121]

Закончу - и поэтому и была ошибка: код из листа пытался выделить диапазон на неактивном в этот момент листе.

[Серёга0629]

Sub ffff()
Workbooks("СВОД за 12 месяцев.xls").Sheets("125в").Select
  Range("C3:C370").Select
  Selection.Find(Application.Max(Selection)).Copy
  Workbooks("СВОД за 12 месяцев.xls").Sheets("Итоги").Select
  Range("C4").PasteSpecial
End Sub

но я же прописую полный путь: Книгу-Лист-Диапазон, если бы я просто сразу писал диапазон, то да.
да и интересно то, что этот код я копирую в Лист 125 и там выдаёт ошибку, правда другую:

[IgorGO]

однако...
эта функция написанная на листе ХХХ следает следующее:
Sub ffff()
Workbooks("СВОД за 12 месяцев.xls").Sheets("125в").Select
выберет лист 125в
Range("C3:C370").Select
отметит диапазон C3:C370 на листе ХХХ. Для функции ffff() расположенной в модуле листа ХХХ обращение Range("C3:C370").Select - это обращение к диапазону "своего" листа, а не того, что Вы перед этим отметили
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("СВОД за 12 месяцев.xls").Sheets("Итоги").Selec t
Range("C4").PasteSpecial
End Sub

если уж Вам без селектов - никуда, то

Sub ffff()
  with Workbooks("СВОД за 12 месяцев.xls").Sheets("125в")
    .Range("C3:C370").Select
    Selection.Find(Application.Max(Selection)).Copy
  end with
  with Workbooks("СВОД за 12 месяцев.xls").Sheets("Итоги")
    .Range("C4").PasteSpecial
  end with
End Sub