Создание файла на основании открытого

[lecko]

Не знаю, посчитаеться ли ето флудом, но дабы не открывать новую тему спрошу здесь: код для файла1, при котором бы в н-ном(допустим н=10) листе выводилась бы сумма расходов по каждому предприятию за отченый период (соответсвенно 9 листов). Файл если надо добавлю

[doober]

огласите полностью.
Возможно и общее решение будет проще.

волоски в бороде закончились
Файл с ожидаемым результатом на базу.
Не люблю макросы переделывать

[doober]

Юзайте Феклис-2

[lecko]

Супер. Благодарю. Одно "Но". Попробовал вставить код после моего уже существующего, который шаблон для нового листа в файле 1.
В етом случае код глючит. Он простенький, но до того работал

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim lc As Integer
   Dim lr As Long
Sh.Move after:=Sheets(Sheets.Count)
   With Sheets(Sheets.Count - 1)
         lc = .Range("A1").End(xlToRight).Column  
      Range(.Cells(1, 1), .Cells(2, lc)).Copy Range("A1")  
      
      lr = .Range("A" & Cells.Rows.Count).End(xlUp).Row   
      .Range("A3:B" & lr).Copy Range("A3")   

      .Range("M3:M" & lr).Copy
      Range("C3").PasteSpecial Paste:=xlPasteValues
      Range("C3").PasteSpecial Paste:=xlPasteFormats
   End With

   Range("M3:M" & Trim(Str(lr))).FormulaR1C1 = "=RC[-10]+RC[-9]-RC[-7]-RC[-5]-RC[-3]-RC[-1]"
   Cells.EntireColumn.AutoFit
   Range("A1").Select
End Sub

[doober]

Он простенький, но до того работал

не верю.Вы складываете Расходы и Вид расходов

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim lc As Integer
   Dim lr As Long
Sh.Move after:=Sheets(Sheets.Count)
   With Sheets(Sheets.Count - 1)
         lc = .Range("A1").End(xlToRight).Column
      Range(.Cells(1, 1), .Cells(1, lc)).Copy Range("A1")
      lr = .Range("A" & Cells.Rows.Count).End(xlUp).Row
      .Range("A2:B" & lr).Copy Range("A2")
      .Range("M2:M" & lr).Copy
      Range("C2").PasteSpecial Paste:=xlPasteValues
      Range("C2").PasteSpecial Paste:=xlPasteFormats
   End With

   Range("M2:M" & Trim(Str(lr))).FormulaR1C1 = "=RC[-10]+RC[-8]-RC[-6]-RC[-4]-RC[-2]-RC[-1]"
   Cells.EntireColumn.AutoFit
End Sub

[lecko]

Извините, я не так задал начальную формулу: яч.В заняты, яч.С фонд, яч.D-поступления, яч. F,H,J,L - расходы, а E,G,I,K- вид расходов.
Еще раз извините

[doober]

Все работает нормально

[lecko]

Многоуважаемый Дубер. Можно Вас последний раз спросить: я немножко нахомутал с тем файлом(№1). Разрешите Вам отправить последний раз файл дабы Вы его проверили и поправить код, чтобы он работал. Кроме того чуть-чуть изменился формат файла2. Пожалуйста, Дубер, помогите мне. Благодарю

[doober]

Можно Вас последний раз спросить

Интересно,куда вы меня решили отправить?Рановато еще я думаю.
Сказку Лазаря Лагина не читали.Файл не заполненный вложили.
Фальстарт.заполните оба файла.

Зы.Никогда не говори «никогда»
никогда=последний раз

[lecko]

Интересно,куда вы меня решили отправить?

Извините, оговорился
Заполнил файл1 вашим кодом и опять выбило ошибку. Ее фото тоже отправлю. Файл "Книга3" это шаблон, о котором я хотел бы Вас попросить.
PS у меня Office 07