Доброго времени суток!!! Будьте добры, помогите пожалуйста написать макрос для копирования определенной области из листа одной книги, в лист другой книги. Причем, чтобы каждый раз сохранение вставлялось в конец предыдущего сохранения. То есть последовательно вниз друг за другом. Навыков в программировании нет. Пробовал действия записывать макросом, но застопорилось на том, как копировать последовательно друг за другом. Заранее всем спасибо. [moder]Что конкретно копировать? и куда?
Доброго времени суток!!! Будьте добры, помогите пожалуйста написать макрос для копирования определенной области из листа одной книги, в лист другой книги. Причем, чтобы каждый раз сохранение вставлялось в конец предыдущего сохранения. То есть последовательно вниз друг за другом. Навыков в программировании нет. Пробовал действия записывать макросом, но застопорилось на том, как копировать последовательно друг за другом. Заранее всем спасибо. [moder]Что конкретно копировать? и куда?svitaly77
В приложенном файле на листе "Карточка" таблицу, нужно будет скопировать и сохранить в другую книгу (назовем ее "Квартал"), затем "Карточка" обновляется новыми данными, ее будет надо опять скопировать и сохранить в "Квартал", но уже ниже предыдущей. То есть последовательно вниз.
В приложенном файле на листе "Карточка" таблицу, нужно будет скопировать и сохранить в другую книгу (назовем ее "Квартал"), затем "Карточка" обновляется новыми данными, ее будет надо опять скопировать и сохранить в "Квартал", но уже ниже предыдущей. То есть последовательно вниз.svitaly77
Макрос должен запускаться, когда активный лист - это лист, с которого нужно копировать. Для работы макроса файл, куда надо скопировать, должен находиться в той же папке, что и файл, из которого копируются данные. В макросе посмотрите комментарии. На листе, куда копируются данные, должны быть какие-нибудь данные, например, шапка таблицы, иначе будет ошибка.
[vba]
Код
Sub Kartochka()
Dim shSrc As Worksheet, shRes As Worksheet Dim lrSrc As Long, lrRes As Long
Application.ScreenUpdating = False
Set shSrc = ActiveSheet 'Здесь нужно указать имя файла (куда копируются данные) и лист, на который копируются данные Set shRes = Workbooks.Open(ActiveWorkbook.Path & "\" & "Квартал.xlsx").Worksheets(1)
Макрос должен запускаться, когда активный лист - это лист, с которого нужно копировать. Для работы макроса файл, куда надо скопировать, должен находиться в той же папке, что и файл, из которого копируются данные. В макросе посмотрите комментарии. На листе, куда копируются данные, должны быть какие-нибудь данные, например, шапка таблицы, иначе будет ошибка.
[vba]
Код
Sub Kartochka()
Dim shSrc As Worksheet, shRes As Worksheet Dim lrSrc As Long, lrRes As Long
Application.ScreenUpdating = False
Set shSrc = ActiveSheet 'Здесь нужно указать имя файла (куда копируются данные) и лист, на который копируются данные Set shRes = Workbooks.Open(ActiveWorkbook.Path & "\" & "Квартал.xlsx").Worksheets(1)
И значения ячеек вставлял не формулами, а значениями просто. А то при копировании они ссылаются наверное на не существующие ячейки и формула выдает ошибку. Спасибо.
И значения ячеек вставлял не формулами, а значениями просто. А то при копировании они ссылаются наверное на не существующие ячейки и формула выдает ошибку. Спасибо.svitaly77
Dim shSrc As Worksheet, shRes As Worksheet Dim lrRes As Long
Application.ScreenUpdating = False
Set shSrc = ActiveSheet 'Здесь нужно указать имя файла (куда копируются данные) и лист, на который копируются данные Set shRes = Workbooks.Open(ActiveWorkbook.Path & "\" & "Квартал.xlsx").Worksheets(1)
Dim shSrc As Worksheet, shRes As Worksheet Dim lrRes As Long
Application.ScreenUpdating = False
Set shSrc = ActiveSheet 'Здесь нужно указать имя файла (куда копируются данные) и лист, на который копируются данные Set shRes = Workbooks.Open(ActiveWorkbook.Path & "\" & "Квартал.xlsx").Worksheets(1)
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
