Уважаемые участники форума, если есть у Вас возможность, то просьба оказать помощь. Есть файл «Отчетность», в котором информация о денежных средствах, необходимо написать макрос, который бы переносил (копировал) данные из файла этого файла Отчетность в файл Свод, по соответствующим полям. Я начала, но сложность состоит в том, что я не понимаю, как сделать копирование в определенные ячейки, причем данные могут быть динамически, т.е. условие (копирование) должно выполняться до строчки «Итого денежных средств на счетах». Я начала писать код. Но знаний не хватает совсем. Спасибо огромное.
Уважаемые участники форума, если есть у Вас возможность, то просьба оказать помощь. Есть файл «Отчетность», в котором информация о денежных средствах, необходимо написать макрос, который бы переносил (копировал) данные из файла этого файла Отчетность в файл Свод, по соответствующим полям. Я начала, но сложность состоит в том, что я не понимаю, как сделать копирование в определенные ячейки, причем данные могут быть динамически, т.е. условие (копирование) должно выполняться до строчки «Итого денежных средств на счетах». Я начала писать код. Но знаний не хватает совсем. Спасибо огромное.Евгения_1986
Евгения_1986, смотреть конкретно Ваш случай времени нет, но совет дам. Строчку «Итого денежных средств на счетах» находим кодом [vba]
Код
rw=Cells.Find("Итого денежных средств на счетах").Row
[/vba](на активном листе, если лист неактивен, то соответственно перед Cells пишем путь к нему). Если "Итого денежных средств на счетах" в конкретной колонке (например, в первой), то [vba]
Код
rw=Columns(1).Find("Итого денежных средств на счетах").Row
[/vba] будет быстрее и точнее. Ну и дальше - цикл For от конца шапки до rw-1...
Евгения_1986, смотреть конкретно Ваш случай времени нет, но совет дам. Строчку «Итого денежных средств на счетах» находим кодом [vba]
Код
rw=Cells.Find("Итого денежных средств на счетах").Row
[/vba](на активном листе, если лист неактивен, то соответственно перед Cells пишем путь к нему). Если "Итого денежных средств на счетах" в конкретной колонке (например, в первой), то [vba]
Код
rw=Columns(1).Find("Итого денежных средств на счетах").Row
[/vba] будет быстрее и точнее. Ну и дальше - цикл For от конца шапки до rw-1...StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Сообщение отредактировал StoTisteg - Вторник, 09.10.2018, 13:04
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
