Добрый день! Каждый день приходится обрабатывать отчеты, имеющие разные табличные части по продолжительности (Отчет 1 -10 строк, Отчет 2 - 20 строк). Отчеты загружаются на отдельные листы. На данный момент приходится выгружать таблицу с каждого отчета на отдельный лист, с которого они обрабатываются к необходимому виду. Возможно настроить явный выбор наименования отчета (листа), Начальной и конечной необходимой строки строки таблицы для получения необходимого отчета. Заранее спасибо!!
Добрый день! Каждый день приходится обрабатывать отчеты, имеющие разные табличные части по продолжительности (Отчет 1 -10 строк, Отчет 2 - 20 строк). Отчеты загружаются на отдельные листы. На данный момент приходится выгружать таблицу с каждого отчета на отдельный лист, с которого они обрабатываются к необходимому виду. Возможно настроить явный выбор наименования отчета (листа), Начальной и конечной необходимой строки строки таблицы для получения необходимого отчета. Заранее спасибо!!FoxD69
FoxD69, не совсем Вас понял или совсем не понял. может так: [vba]
Код
Sub u_400() Application.ScreenUpdating = False a = Cells(Rows.Count, "a").End(xlUp).Row If a > 8 Then Range("a9:d" & a).Clear b = Range("b2").Value c = Range("b3").Value d = Range("b4").Value Sheets(b).Range("d" & c & ":d" & d).Copy Range("a9") Sheets(b).Range("e" & c & ":e" & d).Copy Range("b9") Sheets(b).Range("b" & c & ":b" & d).Copy Range("c9") Sheets(b).Range("c" & c & ":c" & d).Copy Range("d9") Application.ScreenUpdating = True End Sub
[/vba]
FoxD69, не совсем Вас понял или совсем не понял. может так: [vba]
Код
Sub u_400() Application.ScreenUpdating = False a = Cells(Rows.Count, "a").End(xlUp).Row If a > 8 Then Range("a9:d" & a).Clear b = Range("b2").Value c = Range("b3").Value d = Range("b4").Value Sheets(b).Range("d" & c & ":d" & d).Copy Range("a9") Sheets(b).Range("e" & c & ":e" & d).Copy Range("b9") Sheets(b).Range("b" & c & ":b" & d).Copy Range("c9") Sheets(b).Range("c" & c & ":c" & d).Copy Range("d9") Application.ScreenUpdating = True End Sub
Извините за некорректно поставленную задачу. На листе "Расчет"выбираем лист с которого обрабатываются данные и диапазон строк (Отчет 1 - строка 4-13, Отчет 2 строки с 10 -23) поля отмечены зеленым цветом. Вывод ведется по номенклатуре- сначала Номенклатура 1 с наиболее ранней датой, и т..д.
Извините за некорректно поставленную задачу. На листе "Расчет"выбираем лист с которого обрабатываются данные и диапазон строк (Отчет 1 - строка 4-13, Отчет 2 строки с 10 -23) поля отмечены зеленым цветом. Вывод ведется по номенклатуре- сначала Номенклатура 1 с наиболее ранней датой, и т..д.FoxD69
Огромное спасибо за ответ!!!. Все работает как и планировал.Вы открыли мне новые области для изучения. А код макроса остался прежним? (извините, если задаю глупые вопросы - про макросы только слышал)
Огромное спасибо за ответ!!!. Все работает как и планировал.Вы открыли мне новые области для изучения. А код макроса остался прежним? (извините, если задаю глупые вопросы - про макросы только слышал)FoxD69
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
