Здравствуйте уважаемые мастера экселя! Подскажите пожалуйста новичку экселя в создании макроса, который не получается записать рекордером. Создал таблицу. В лист base вносятся данные. В листе itog результат.
1. Необходимо в листе base отфильтровать данные по каждому названию (которые в первом столбце), а по отфильтрованным строкам Определить 1е, 2е, 3е, 4е, 5е место по данным, которые находятся в колонке AL.
2. скопировать результат из столбца AR в лист itog в заданные места (они подписаны) по названию. Таблица большая, поэтому указал только 9 строк. В листе itog указано по одной строке, но при копировании результатов, строки должны добавляться автоматически.
Файл прилагается. Очень надеюсь на вашу помощь, так как самостоятельно не могу осилить данную задачу. Заранее благодарен всем. кто сможет помочь!
Здравствуйте уважаемые мастера экселя! Подскажите пожалуйста новичку экселя в создании макроса, который не получается записать рекордером. Создал таблицу. В лист base вносятся данные. В листе itog результат.
1. Необходимо в листе base отфильтровать данные по каждому названию (которые в первом столбце), а по отфильтрованным строкам Определить 1е, 2е, 3е, 4е, 5е место по данным, которые находятся в колонке AL.
2. скопировать результат из столбца AR в лист itog в заданные места (они подписаны) по названию. Таблица большая, поэтому указал только 9 строк. В листе itog указано по одной строке, но при копировании результатов, строки должны добавляться автоматически.
Файл прилагается. Очень надеюсь на вашу помощь, так как самостоятельно не могу осилить данную задачу. Заранее благодарен всем. кто сможет помочь!orionis
K-SerJC Удалось запустить, но что то не понятно, вставляется только gold и только первое место, а мест там 3 и названий больше...подскажите пожалуйста. что нужно сделать. что бы вставлялись все названия, а не только gold и не только одно первое место, где и как это можно изменить в макросе?
K-SerJC Удалось запустить, но что то не понятно, вставляется только gold и только первое место, а мест там 3 и названий больше...подскажите пожалуйста. что нужно сделать. что бы вставлялись все названия, а не только gold и не только одно первое место, где и как это можно изменить в макросе?orionis
Сообщение отредактировал orionis - Четверг, 12.01.2017, 13:42
Добрый день, вопрос почти такой же, но проще. Помогите написать макрос, который копирует отфильтрованные данные на другой лист 1) На другой лист в определенное место (там готовая форма) 2) Копирование не всех данных, а 2-3 колонок, которые идут не друг за другом, то есть чтобы данные аккуратно заносились в готовую форму. Или же чтобы происходил сдвиг ненужных колонок, а в форму заносились нужные Вот такой макрос переносит все значения Public Sub www() Sheets("Лист1").UsedRange.Offset(1).Resize(, 19).SpecialCells(12).Copy _ Sheets("Лист2").[A3] End Sub А такой переносит одну колонку Sub Кнопка1_Щелчок() With ThisWorkbook.Worksheets(1) If .AutoFilterMode And .FilterMode Then _ .AutoFilter.Range.Columns(1).Offset(1).SpecialCells(12).Copy .[a22] End With End Sub
Добрый день, вопрос почти такой же, но проще. Помогите написать макрос, который копирует отфильтрованные данные на другой лист 1) На другой лист в определенное место (там готовая форма) 2) Копирование не всех данных, а 2-3 колонок, которые идут не друг за другом, то есть чтобы данные аккуратно заносились в готовую форму. Или же чтобы происходил сдвиг ненужных колонок, а в форму заносились нужные Вот такой макрос переносит все значения Public Sub www() Sheets("Лист1").UsedRange.Offset(1).Resize(, 19).SpecialCells(12).Copy _ Sheets("Лист2").[A3] End Sub А такой переносит одну колонку Sub Кнопка1_Щелчок() With ThisWorkbook.Worksheets(1) If .AutoFilterMode And .FilterMode Then _ .AutoFilter.Range.Columns(1).Offset(1).SpecialCells(12).Copy .[a22] End With End SubАнтон95