Сравнение столбцов с копированием их в новую таблицу

[Аля.Диденко]

Здравствуйте!Нужна помощь в написании макроса. Я не особо в программировании понимаю.
Суть такая: в таблице имеются поля Наименование, Табельный номер, Сумма1, Сумма2 и Сумма3.
При нажатии на кнопку отчет 1: открыть другой файл Excel,а строки, где разница не превышает 30 скопировать туда.Ну и отдельно
скопировать во 2й файл excel строки, где Сумма 2 - пусто. Количество строк не ограничено теми которые уже записаны. И посоветуйте хорошую книгу по основам программирования в excel, на работе просят с некоторых пор макросы делать(

[kalbasiatka]

Надо со всех листов в книге собрать? Если будут одинаковые наименования на разных листах, что делать? К этим итогам будут добавляться другие итоги или это разово?
Откуда берётся файл "сводная"?
Может проще в сводной сделать 2 листа "отчёт1" и "отчёт2", а потом сохранить их отдельными книгами в этой же папке?

[kalbasiatka]

Сообщение от Аля.Диденко

где разница не превышает 30

Что такое разница?

[kuklp]

Кросс: http://www.excel-vba.ru/forum/index.php

[Аля.Диденко]

Сумма 2 - Сумма 1, если в Сумма 2 пусто, то пропустить. Ну с сохранением данных в таблицу проблемы уже нет. Теперь только с циклами проверки этих сумм

[Аля.Диденко]

Может на всех 4х форумах напишете еще? Если не желаете советовать, то хоть флудом не занимайтесь пожалуйста

[Аля.Диденко]

Код такой теперь. Но нужно заставить перебрать все строки с датами.
Private Sub CommandButton1_Click()
If Application.WorksheetFunction.Netwo rkDays(Range("C2"), Range("D2"), Range("I4")) < 4 Then
Rows("3").Select
Selection.Copy
ChDir "C:\"
Workbooks.Open ("C:\Отчет.xlsx")
Workbooks("Отчет.xlsx").Activate
ActiveWorkbook.Worksheets("Отчет1") .Range("A2").Select
ActiveSheet.Paste
End If

[kalbasiatka]

Сообщение от Аля.Диденко

Код такой теперь

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