Страницы: 1
RSS
Итоги данных листов с одинаковыми таблицами свести в один лист, с указанием имени исходного листа
 
Доброго всем дня! Помогите пожалуйста с одним вопросом. Есть книга со множеством листов с одинаковыми таблицами внутри каждой, как итоги каждого листа автоматически свести в лист под названием "Свод по всего" , чтобы копировалось также и название листа откуда берется этот итог.
 
thunder,
А ответов из вашей предыдущей темы
Цитата
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=124217
Данные множества листов с одинаковыми таблицами свести в один лист
вам недостаточно для решения этой задачи?
 
Kuzmich, Я к сожалению не силен в VBA, поэтому не получается переделать код
 
Зачем дублировать тему?
 
vikttur, Так как задача немножко но другая
 
thunder,
Пробуйте и учитесь применять в своих задачах
Код
Sub Vsego()
Dim Sht As Worksheet
Dim iLastRow As Long
Dim RngVsego As Range
 Application.ScreenUpdating = False
   iLastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
     Range("B5:M" & iLastRow).Clear             'очищаем данные на листе СВОД по всего
 For Each Sht In Worksheets                       'цикл по всем листам книги
   If Sht.Name <> "исх" And Sht.Name <> "СВОД по всего" And Sht.Name <> "свод" Then ' кроме листов
      With Sht
        Set RngVsego = .Columns(3).Find("ВСЕГО", , xlValues, xlWhole)
        If Not RngVsego Is Nothing Then
           iLastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
           Cells(iLastRow, "B") = .Name
           .Range("J" & RngVsego.Row & ":L" & RngVsego.Row).Copy
           Cells(iLastRow, "J").PasteSpecial xlPasteValues
           Range("J" & iLastRow & ":L" & iLastRow).NumberFormat = "#,##0.00"
        End If
      End With
   End If
 Next
Application.ScreenUpdating = True
End Sub
 
Kuzmich, Большое Вам спасибо!!! Обязательно изучу Ваш код, он мне понадобится во многих задачах
Страницы: 1
Наверх