Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » lost05
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос: Разбить таблицу по страницам и добавить строку с формулой, Макрос: Разбить таблицу по страницам и добавить строку с формулой
 
#
30.10.2019 15:59:16
Дорогие формучане!

Прошу помочь со следующей задачей.
Дано: таблица с заголовками (см. файл "Исходный файл").
Необходимо написать макрос, чтобы получился вид как в файле ("Желаемый результат"). Для этого требуется
1) разбить таблицу исходя из значения в одном из столбцов.
2) сохранить на отдельную страницу таблицу с заголовком, содержащую строки только с одним из значений выделенного столбца.
3) назвать созданную страницу значением, по которому прошла разбивка.
4) на каждой странице добавить строчку перед таблицей. В ячейку А1 проставить значение, равное значению по которому шла разбивка.

В макросах не разбираюсь, умею только пользоваться макрорекордером, поэтому очень прошу помочь(

Заранее большое спасибо!
 
Перейти    
Копирование в первую пустую строку другой книги
 
#
29.01.2018 13:51:00
Добрый день!

Только начала изучать макросы, поэтому пока не могу самостоятельно решить задачку.
Имеется 2 файла в одной папке:
1 - файл "Сводная.xls"
2 - файл "Заявка-шаблон.xls"
Предполагается, что в папке будет много "Заявок-шаблонов", одинаковых по структуре, однако поименованы они могут быть по-разному. В каждой "Заявке-шаблоне" будет кнопка-макрос, которая при нажатии:
1) копирует с Листа2 данные диапазона "A1:K1"
2) вставляет данные скопированного диапазона в первую пустую строку столбца А на Лист1 файла "Сводная.xls"
3) при удачном копировании данных выводит сообщение "Данные скопированы"
Буду очень признательна за помощь!
Изменено: lost05 - 29.01.2018 13:52:00
 
Перейти    
Макрос для поячеечной проверки данных из двух таблиц
 
#
20.03.2017 21:29:03
Уважаемые форумчане, добрый день!

Только начинаю знакомиться с макросами, поэтому не могу домучать один из них.
 

Необходимо осуществлять сверку данных из "Формы заказа" и данных из автоматически выгружаемого отчета на вкладке "550". С формой будет работать последовательно 2 человека: первый заполняет страницу с Формой и защищает ее от изменений, затем второй должен скопировать свой отчет на вторую страницу, преобразовать его и выполнить проверку поячеечно на странице "Проверка".

Отчет на второй странице для сопоставления с формой на первой трансформируется следующим образом:

-автозамена точки на запятую в столбце Unit Price

-двойная сортировка сначала по Global code (от а до я), а затем по Unit price (от наим к наиб)

-фильтр по столбцу Next status, нужны только со статусом 522

Полученный результат копируем на страницу проверка в поле E5

Текущий макрос такой
Код
Sub Макрос3()

Range("A1").Select
    ActiveWorkbook.Worksheets("550").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("550").Sort.SortFields.Add Key:=Range("J2:J300"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("550").Sort.SortFields.Add Key:=Range("M2:M300"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("550").Sort
        .SetRange Range("A1:S300")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns("M:M").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("E:E").Select
    Selection.AutoFilter
    ActiveSheet.Range("E:E").AutoFilter Field:=1, Criteria1:="522"
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets("проверка").Select
    Range("E5").Select
    ActiveSheet.Paste
End Sub

При запуске ругается на все,что можно( Прошу помочь ибо я блондинка( Файлик вложением.

Спасибо!

Изменено: lost05 - 21.03.2017 05:20:15
 
Перейти    
Страницы: 1
Наверх