Страницы: 1
RSS
Копирование строк листа на другой лист или в другой файл по значание ячейки
 
Нужен макрос для копирования строк листа книги на другой лист. Есть файл ИсхВвод. В нем на лист Ввод заносятся данные, начиная со строки 2. Первая строка заняты шапкой. Причем в некоторые ячейки данные вводятся из всплывающего списка, для которого все хранится в файле Титул. В колонку А заносится некоторое Слово. Не исключено, что тоже будет всплывающего выбираться из списка. Требуется по кнопке (она будет установлена на лист Ввод) скопировать все заполненные строки листа Ввод на листы с названием, соответствующим значению в ячейке А строки.
Автоматическое заполнение не требуется. Исходные файлы приложила. Спасибо за помощь.
 
Код
For iY1 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
With Sheets(Cells(iY1, 1).Text)
    Rows(iY1).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
Next
Изменено: МатросНаЗебре - 11.02.2015 13:04:08
 
Или так?
Согласие есть продукт при полном непротивлении сторон
 
Огромное СПАСИБО! ВСЕ ЗДОРОВО! ТО, ЧТО НАДО!
 
Если можно, помогите еще вот чем. На самом деле мною выложен был тестовый пример. В реальном примере записи на листе Ввод файла ИсхВвод начинаются со строки 7. Хотелось бы, чтобы на другие листы записи копировались тоже начиная со строки 7. И ещё, на листах-копиях почему-то дата (столбец В) не в формате Дат. Ещё раз спасибо за помощь.
 
Цитата
МарияТ пишет: На самом деле... В реальном примере...
Что-бы больше не делать одно и то-же по несколько раз, почитайте п.2.3 Правил форума (...в РЕАЛЬНОЙ структуре!!!)
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх