Программа копирования содержимого 12 листов в один

[Нюни]

Привет всем!
Помогите пожалуйста решить задачку. Есть книга EXCEL, содержит 10 листов с данными, данные записываются ежедневно в течении месяца. Необходимо создать дополнительный лист, в который будут все данные с 10 листов скидываться, т.е. объединятся. Просто типа сваливаться в одну большую кучку . файл прикреплен...

[EugeneS]

можно, например, так, см. вложение

На листе "KHJ" нажмите кнопку "Объединить"

[Нюни]

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

можно, например, так, см. вложение

На листе "KHJ" нажмите кнопку "Объединить"

Спасибо , щас посмотрю

[Нюни]

А можно ли этот же код применить к такому же файлу, но с некоторыми изменениями. И как можно это сделать? см. вложение

[EugeneS]

см. вложение

[Нюни]

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

см. вложение

не могу скачать вложение

[EugeneS]

вот код макроса для измененного файла:

Sub Consolidate()
Dim i As Integer, x As Object, z As Long
Application.ScreenUpdating = False
Sheets.Add.Name = "Consolidated": Set x = Sheets("Consolidated"): On Error Resume Next
With x: For i = 2 To ThisWorkbook.Sheets.Count
       Sheets(i).Activate
       Select Case i
        Case Is = 2
       Sheets(i).Range([a1], Cells(Rows.Count, "J").End(xlUp)).Copy .Cells(1, 1)
       z = WorksheetFunction.CountA([A:A]) + 1
        Case Else
       Sheets(i).Range([a2], Cells(Rows.Count, "J").End(xlUp)).Copy .Cells(z, "A")
       z = z + WorksheetFunction.CountA([A:A]) - 1
        End Select
Next: End With: On Error GoTo 0: x.Activate
Application.ScreenUpdating = True
End Sub

PS. Скачал и открыл без проблем

Прикладываю еще раз в rar

[Нюни]

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

PS. Скачал и открыл без проблем

Прикладываю еще раз в rar

СПАСИБО ВАМ ОГРОМНОЕ!

[Нюни]

УРА! Работает, приогромнейшее СПАСИБО!