Собрать данные с нескольких листов и книг

[dana11]

Все получилось. Спасибо огромное человеческое!!

[IgorGO]

Дана, поздравляю!

но там действительно была какая-то заморочка, я так до сих пор и не понял в чем проблема.
Господа программисты, вот код процедуры (достаточно посмотреть 4-е первые строки)

Sub MakeItRight()
  Dim r11 As Long, r12 As Long, r2 As Long, rEnd As Long
  rEnd = Cells(Rows.Count, 2).End(xlUp).Row: r10 = 2: r2 = 2
  Sheets.Add After:=Sheets(Sheets.Count)
  With Sheets("Получается")
    Do
      If .Cells(r10 + 1, 2) = "" Then r11 = .Cells(r10 + 1, 2).End(xlDown).Row Else r11 = r10 + 1
      If .Cells(r11, 3) <> "" Then
        r12 = .Cells(r11, 2).End(xlDown).Row
        .Cells(r10, 2).Copy Destination:=Range(Cells(r2, 1), Cells(r2 + r12 - r11, 1))
        .Range(.Cells(r11, 2), .Cells(r12, 4)).Copy Destination:=Cells(r2, 2)
        r10 = .Cells(r12 + 1, 2).End(xlDown).Row
        r2 = r2 + r12 - r11 + 1
      Else
        r10 = r11
      End If
    Loop Until r10 > rEnd
  End With
End Sub

написал это, разок запустил, получил результат, выложил см. сообщ.4 в этой теме.
Дана написала о

Run-time error '1004':
Method 'Add' of object 'Sheets' failed

так и есть, строка Sheets.Add After:=Sheets(Sheets.Count)
выпадает по 1004 ошибке???
заходим в отладку Sheets.Count равен 8 (хотя в книге всего 7 листов!!!),
соответсвенно Sheets(Sheets.Count) ссылается на Module1, поэтому и не вставляется новый лист, но как это получилось?
надеюсь на помощь коллективного разума, хотя разбираться надо будет каждому самостоятельно.
заранее спасибо!

[RAN.]

Игорь, глюк в самом файле Книга690.xls. У меня тоже грузится без проекта.
Хотя исходник грузится нормально и макрос в нем работает, только на r10 ругается.

[EducatedFool]

Да, действительно, глюк в файле.
Excel считает модуль с кодом листом Excel...

PS: Я запустил такой макрос:

Sub test()
For Each sh In ThisWorkbook.Sheets
Debug.Print sh.Name
Next sh
End Sub

Вот что вывел макрос:

list1
list3
list4
list5
list7
Получается
Надо
Module1

Достаточно удалить модуль Module1, потом добавить его, - и проблема исчезает (книга снова состоит из 7 листов)

Странно, что такой вариант не прокатывает (в проблемном файле):

Worksheets.Add after:=Worksheets(Worksheets.Count)

Ведь Worksheets.Count возвращает верное число листов - 7, а лист всё равно не добавляется, выскакивает та же 1004-я ошибка.

[Иван Садулаев]

Есть книга, в которой множество Листов(приложений)...Рассылаю файл 20-ти сотрудникам,они заполняют данные и отправляют мне...У меня должна получиться сводная таблица( на каждом листе отдельная)....
В первом примере( прикр.файл.), копируются определенные строки, все как надо...Во втором, Можно выбрать файлы, с которых нужно копировать данные, как можно сделать кое-что общее...т.е. перед тем как скопировать, чтобы можно было выбрать файлы с которых копировать?? очень нужно...Заранее благодарен.