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

[Серёга0629]

Доброе время суток! Такая проблема.
Есть файл в котором написан код(работа с другими файлами), всё работает, до определённого времени!
Код рабочий весь! Проблема в написании нового кода, код правильный, но в этой книге он выдаёт ошибку(пробовал в Лист1, там 2 маленьких проги, которые не работают), в других книгах он работает!
Одну проблему решил с написанием макроса(через запись макроса) - работает, но всё так же не решить...
Кода конечно многовато, может в этом Exel есть ограничение??? подскажите пожалуйста.
Имеется файл и ошибка:

[Hugo121]

Вы покажите, на какой строке ошибка - в дебрях плутать охоты нет...

[doober]

может в этом Exel есть ограничение???

да есть.На чёрную комнату в которой ничего нет.
Если искать максимум в пустых ячейках-ошибка.

Называть процедуру Clear -это плохой тон.Например M_Clear

ublic Sub bbb()
Dim wB As Workbook, Sh As Worksheet
Set wB = Workbooks("Свод за 12 месяцев.xls")
Set Sh = wB.Sheets("125в")
On Error Resume Next
wB.Sheets("Итоги").Range("C4") = Application.Max(Sh.Range("C3:C370"))
End Sub

Sub M_Clear    '    Clear()
    Sheets("125в").Rows("3:8000").Clear
    Sheets("130в").Rows("3:8000").Clear
    Sheets("131в").Rows("3:8000").Clear
    Sheets("132в").Rows("3:8000").Clear
End Sub

[Hugo121]

Не понял, почему, но понял где
Так работает (оригинал давал ошибку):

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

[Hugo121]

И можно подсократить:

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

[doober]

Я одного не могу понять у ТС ,получаем максимальное значение,потом его ищем в диапазоне,и копируем в ячейку

[Hugo121]

Да, интересно.
А может ему нужно значение с форматированием?
Больше незачем

А вот почему не работает код в варианте ТС? Вроде всё правильно... хотя я в селектах не разбираюсь... и это ещё одна причина ими не пользоваться

Понял почему - из модуля листа такое не работает!

[IgorGO]

на лист "итоги" в статическую ячейку копируем максимум. Зачем там форматы и пр.. написано было с перепугу (точнее с макрорекордера)...
в любом случае - формат задать один раз руками и записать максимум, думаю, этого будет достаточно:

Public Sub bbb2()
  With Workbooks("СВОД за 12 месяцев.xls")
     .Sheets("Итоги").[C4] = Application.Max(.Sheets("125в").[C3:C370])
  End With
End Sub

[Hugo121]

А вообще-то итог - это не всегда максимум по столбцу.
Правильнее тогда так:

Public Sub bbb()
    Dim wb As Workbook
    Set wb = Workbooks("СВОД за 12 месяцев.xls")
    wb.Sheets("Итоги").Range("C4") = wb.Sheets("125в").Range("A3:A370").Find("Итого:").Offset(, 2)
End Sub

Хотя в данном случае наверняка всегда максимум=итог, т.к. часы не будут иметь отрицательное значение...

[Серёга0629]

Спасибо! не ожидал такого бурного обсуждения)
по поводу лишнего написаного кода, как тут написали "с перепугу ", я новичёк, поэтому получается допотопно)
так в чём всё-таки прикол: эта не работает:

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

а эта работает:

Public Sub bbb2()
  With Workbooks("СВОД за 12 месяцев.xls")
     .Sheets("Итоги").[C4] = Application.Max(.Sheets("125в").[C3:C370])
  End With
End Sub

а по поводу ограничения спросил, т.к. где-то когда-то читал о таком.
Спасибо большое, что откликнулись

Итог - это максимум, т.к. отрицательных значений нет, можно было найти последнюю ячейку, но через максимум проще