Поставил себе Excel 2016 и начали появляться проблемы с файлами, созданными в 2003. Основная их часть решается, но не всё.
Например, символы на кнопках для макросов, введенные в 2003, отображаются в 2016 как буквы и наоборот.
Учитывая, что файлы сохранять надо в формате XLS и их достаточно много, в том числе отчеты и сверки, отправляемые партнерам, у многих из которых стоит 2003, прошу помочь разобраться с проблемой.
Образец файла прилагаю.
Заранее благодарен.

Большая просьба помочь с написанием макроса.
Есть постоянно обновляемый диапазон (A4:C1003) в книге 1 и аналогичный диапазон (A5:C1004) в книге 2. Треть строк диапазонов пока пустые. Количество строк можно и не ограничивать, если это не повлияет на время работы макроса.
Столбец С содержит уникальные (неповторяющиеся) текстовые значения.
В книге 2 нужен макрос, который сравнивает столбцы С и если в книге 1 появилось новое значение, дописывает значения А:С в первую пустую строку (по столбцу С) книги 2, а если в книге 1 отсутствует какое-то значение С из книги 2, то вся эта строка (A:IV) в книге 2 очищается.
Если в проверяемой ячейке книги 1 содержится фрагмент "ааа", "ббб" или "ввв", то эта строка в книгу 2 не дописывается.
Если в проверяемой ячейке книги 2 содержится фрагмент "ггг", "ддд" или "еее", то эта строка в книге 2 не очищается.

Очищение всего диапазона в книге 2 и копирование его из книги 1 не подходит, так как в книге 2 есть другие значения в строке, которые относятся к уникальному значению С.
Файлы прилагаются. Для удобства выделил желтым значения, отсутствующие в другой книге и розовым исключения.
Заранее благодарен за любую помощь.

Просьба помочь разобраться в причине громадного веса файла.
Исходный рабочий файл с кучей макросов весил 3,9 Мб. При уменьшении таблицы в 5 раз (включая удаление кучи лишних макросов) вес уменьшился всего на 400 Кб.
Решил найти причину. Начал потихоньку удалять разные части таблицы и разные макросы, чтобы понять, что так много "весит".
Но даже при удалении ВСЕХ данных и оставлении одного пустого листа вес файла изменился мало - 3,3 Мб.
Видимо остались какие-то "хвосты", так как вновь созданный аналогичный файл весит весит 13 Кб.
Помогите, пожалуйста, найти эти "хвосты" (т.е. подскажите, где надо искать) или объясните причину.
К сожалению, прикрепить файл к сообщению не могу. Ограничение 100 Кб. Могу отправить этот файл на E-mail.
Все ячейки пустые и имеют размер по умолчанию, условного форматирования нет. Макросов нет - даже модули удалил.
Заранее благодарен за любую помощь.

Доброго времени суток!
В приложенном файле (Excel 2003) макросом производится отбор строк с датами месяца, выбранного в ячейке B1. Так же производится суммирование значений по выбранному месяцу (ячейка С1). Но для корректной работы макроса я вынужден был создать вспомогательную колонку F. Просьба помочь изменить макрос, чтобы он работал без этой колонки.

Уважаемые форумчане!
Большая просьба помочь найти ошибку в макросе.
Задача: Скопировать с листа "Движение" на лист "Бонусы" данные строк, если в текстовом столбце D присутствует слово "Бонус".
Если sPost = "весь текст в ячейке", то макрос прекрасно работает, т.е. я неверно прописываю фразу.

Скрытый текст

Sub copyBonus()  ' копирование данных на лист "Бонусы" с листа "Движение"  Dim wb As Workbook  Dim wsBon As Worksheet, wsDvig  Dim sPost$, lrBon&, lrDvig&, i&, j&  If ActiveSheet.Name <> "Бонусы" Then Exit Sub  Application.ScreenUpdating = False  Set wb = ThisWorkbook  Set wsBon = wb.Worksheets("Бонусы")  Set wsDvig = wb.Worksheets("Движение")  On Error GoTo 0  sPost = "*Бонус*"  'текст в ячейке для копирования строк  lrBon = wsBon.Cells(wsBon.Rows.Count, 1).End(xlUp).Row  If lrBon >= 3 Then   'очищаем лист "Бонусы" от старых данных со строки 3 и ниже    wsBon.Range(wsBon.[a3], wsBon.Cells(lrBon, "e")).ClearContents 'от ячейки А3 до столбца E  End If  lrDvig = wsDvig.Cells(wsDvig.Rows.Count, 1).End(xlUp).Row  Do While Not IsEmpty(wsDvig.Cells(lrDvig + 1, 1)): lrDvig = lrDvig + 1: Loop  If lrDvig < 3 Then Exit Sub   'для строк с номером < 3 макрос не работает  j = 2                         'данные копируются в лист "Бонус" со строки 3  For i = 3 To lrDvig           'данные копируются из листа "Движение" со строки 3    If wsDvig.Cells(i, "d").Value = sPost Then        j = j + 1        wsBon.Cells(j, "b") = wsDvig.Cells(i, "a")        wsBon.Cells(j, "c") = wsDvig.Cells(i, "b")        wsBon.Cells(j, "d") = wsDvig.Cells(i, "d")    End If  Next End Sub

Всем доброго времени суток!
Полностью задачи приведены в прикрепленном файле. Файлы таблиц и контакты отправлю письмом.
Вкратце:
Есть основная таблица продаж (файл 1) с 20-30 контрагентами и дополнительные идентичные по форме файлы по каждому контрагенту (файл 2, файл 3 и т.п)
Необходимо все файлы-отчеты с контрагентами связать с первым листом основной таблицы, в который сотрудником организации заносятся данные.
Оснеовные задачи:
- Копирование строчек по условию из первого листа на другие в пределах одной таблицы (файл 1).
- Копирование значений в первый лист текущей таблицы (файл 2) из первого листа основной таблицы (файл 1).
- Копирование значений по условию из двух первых листов в таблице (файл 2) на листы в пределах таблицы (файл 2).
- Создание кнопок сортировки и обновлений данных.
Таблицы в Microsoft Office Excel 2003 SP3.
Сумма, сроки оплаты (или график оплат) по договоренности.