Создание макроса.

[EvgeniyavM]

Помогите пожалуйста!!!!!
Условия такие:
Есть в книге 31 лист (31 день в месяце) +итоговый лист. В каждом листе пользователи будут забивать свои данные в табличку, на каждом листе может быть разное количество заполненных строк. Так вот - макрос должен собирать только заполненные строки таблиц и записывать их в итоговый лист в этой же книге, чтобы получилась такая сводная табличка, в составе которой данные из листов.
Заранее спасибо!

[Djeki]

В этом макросе данные со всех листов заносятся на последний (справа ) лист

Sub m_1() 'Копирование всех листов на последний лист
Dim i As Long
Dim x&
Dim s$
For i = 1 To ActiveWorkbook.Worksheets.Count - 1
x = ActiveWorkbook.Worksheets(ActiveWor kbook.Sheets.Count).Cells. _
SpecialCells(xlCellTypeLastCell).Ro w
s = ActiveWorkbook.Worksheets(i).Cells. SpecialCells(xlCellTypeLastCell). _
Address
ActiveWorkbook.Worksheets(i).Range( "A1:" & s).Copy
ActiveWorkbook.Worksheets(1).Paste Destination:=ActiveWorkbook. _
Worksheets(ActiveWorkbook.Worksheet s.Count).Range("A" & x)
Next i
Application.CutCopyMode = False
End Sub

[EvgeniyavM]

А он учитывает, что 01 может быть заполнено всего 3 строчки, а 02 - 4 строчки, 03 - 2 строчки - и в итоговой части должны эти строчки идти без пробелов.

[EvgeniyavM]

И это макрос у меня не работает - ругается(((((
Sub m_1() 'Êîïèðîâàíèå âñåõ ëèñòîâ íà ïîñëåäíèé ëèñò
Dim i As Long
Dim x&
Dim s$
For i = 1 To ActiveWorkbook.Worksheets.Count - 1
x = ActiveWorkbook.Worksheets(ActiveWor kbook.Sheets.Count).Cells. _
SpecialCells(xlCellTypeLastCell).Ro ws = ActiveWorkbook.Worksheets(i).Cells. SpecialCells(xlCellTypeLastCell). _
Address
ActiveWorkbook.Worksheets(i).Range( "A1:" & s).Copy
ActiveWorkbook.Worksheets(1).Paste Destination:=ActiveWorkbook. _
Worksheets(ActiveWorkbook.Worksheet s.Count).Range("A" & x)Next i
Application.CutCopyMode = False
End Sub


ругается на то, что я выделила


ой я там сама разобралась как исправить - там разрыв в буквах был

[Djeki]

Попробуйте.. Копирует данные со всех листов на последний..

[EvgeniyavM]

я попробовала - спасибо большое вам, макрос рабочий, но как сделать так, чтобы он не копировал все строчки из листов, а только заполненные...И в итоговом листе 31 раз шапку таблиц не копировал??? а просто заполнял таблицу под одной шапкой?

[Djeki]

А у меня не ругается..Попробуйте. Кнопка на последнем листе..Нажмите.

[Djeki]

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

я попробовала - спасибо большое вам, макрос рабочий, но как сделать так, чтобы он не копировал все строчки из листов, а только заполненные...И в итоговом листе 31 раз шапку таблиц не копировал??? а просто заполнял таблицу под одной шапкой?

Макрос надо писать...

[EvgeniyavM]

)))) так вот я и прошу помочь мне его написать

[Djeki]

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

)))) так вот я и прошу помочь мне его написать

Здесь форум программистов , на который Вы выкладываете свои программы и пишите что не получается. Если Вы хотите что бы написали макрос бесплатно, есть раздел - помощь студентам, если на платной основе - раздел фриланс.. Пишите в асю - сделаю..