Совместимость Екселя 2003 и 2007

[jerko]

Здраствуйте, коллеги. У меня возникла следующая проблема: запускаю код в 07 екселе и он нормально работает. Суть кода такова: некоторые значения из текущего листа при создании нового переносяться на него в нужные мне ячейки. Открываю етот файл в 03 екселе, и код неработает. Подскажите что делать. Заранее спасибо.

[alebed]

Открывать в 2007
А если серьезно, предоставьте файл или код

[jerko]

Открывать в 2007

Вспомнилась шутка: не говорите что мне делать и я не скажу куда вам идти
А если серьозно, то я скинул файл екселя. Дело в том что им будут пользоваться и другие люди, у которых стоит ех03

[alebed]

строку
Range("M3:M" & lr).SpecialCells(xlCellTypeBlanks). FormulaR1C1 = "=RC[-10]+RC[-7]+RC[-3]"

замените на
Range("M3:M" & Trim(Str(lr))).FormulaR1C1 = "=RC[-10]+RC[-7]+RC[-3]"

[doober]

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

Дело в том что им будут пользоваться и другие люди, у которых стоит ех03

Он и не должен был работать
Конечно,если складывать номер автомобиля с суммой,то информация очень секретная

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim lc As Integer
   Dim lr As Long

   With Sheets(Sheets.Count - 1)
      lc = .Range("A1").End(xlToRight).Column 
      Range(.Cells(1, 1), .Cells(2, lc)).Copy Range("A1") 
      Range(.Cells(1, 1), .Cells(2, lc)).Copy Range("A37")  

      lr = .Range("A" & Cells.Rows.Count).End(xlUp).Row 
      .Range("A3:B" & lr).Copy Range("A3")  

      .Range("L3:L" & lr).Copy
      Range("C3").PasteSpecial Paste:=xlPasteValues
      Range("C3").PasteSpecial Paste:=xlPasteFormats
   End With
On Error Resume Next
  Range("L3:L" & lr).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-10]+RC[-7]+RC[-3]"
   Cells.EntireColumn.AutoFit
   Range("A1").Select
End Sub

[SAS888]

Ваша проблема более глобальна.
Дело в том, что в Excel 2007 в панели ярлычков листов есть отдельная кнопка "Вставить лист". Ваш макрос будет правильно работать только в том случае, если пользоваться именно таким способом добавления нового листа, т.к. в этом случае новый лист добавляется последним, не зависимо от того, какой лист активен. И метод With Sheets(Sheets.Count - 1) будет указывать на предпоследний лист (перед вставленным новым), что Вам, по всей видимости, и требуется. В Excel 2003 такой кнопки нет. Для того, чтобы вставить новый лист приходится пользоваться контекстным меню листа. В этом случае, новый лист будет вставлен перед активным листом и Ваш макрос "запутается". Кстати сказать, что в 2007 никто не отменял такой способ добавления нового листа. Если пользоваться таким способом, то Ваш макрос будет работать неправильно, не зависимо от версии Excel.
Для того, чтобы макрос работал корректно, нужно первой строкой кода переместить созданный лист в конец списка листов книги. Т.е. так:

Sh.Move after:=Sheets(Sheets.Count)

[jerko]

Конечно,если складывать номер автомобиля с суммой,то информация очень секретная

Сказал и не подумал

Ваша проблема более глобальна.

SAS, я сделал так как Вы сказали, но это не помогло

замените на
Range("M3:M" & Trim(Str(lr))).FormulaR1C1 = "=RC[-10]+RC[-7]+RC[-3]"

Этот совет тоже почему то не помог.
Отправил файл с исправлениями. Может Вы еще раз посмотрите на него

[SAS888]

SAS, я сделал так как Вы сказали, но это не помогло

Вы сделали не так как я сказал.
В коде макроса, строку

Sh.Move after:=Sheets(Sheets.Count)

переместите в самое начало. Можно даже до строк, определяющих типы используемых переменных. И будет счастье.
Вы сначала делаете обращение к "неправильному" листу методом With, а затем перемещаете созданный новый лист в конец списка. А нужно наоборот.

[jerko]

SAS, Вы дали отличный совет. Все заработало. Не знаю, стоит ли начинать новую тему, но у меня есть еще один вопрос по етому файлу: возможно ли дописать код, который бы подсчитывал значение сумы, то есть, например значения Е5, G5, I5 и так далее и выводил ихнюю сумму, например, в 28 листе в ячейку L5?