Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос перенос пункта, если он готов в другую таблицу - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос перенос пункта, если он готов в другую таблицу (Макросы/Sub)
Макрос перенос пункта, если он готов в другую таблицу
Elvira66 Дата: Вторник, 16.05.2017, 04:20 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Помогите с задачей, она описана в файле.
Нужен макрос перенос пункта, если он готов в другую таблицу, вставка нового пункта в зависимости от приоритета.
К сообщению приложен файл: 4649419.xlsx(17Kb)
 
Ответить
СообщениеДобрый день!
Помогите с задачей, она описана в файле.
Нужен макрос перенос пункта, если он готов в другую таблицу, вставка нового пункта в зависимости от приоритета.

Автор - Elvira66
Дата добавления - 16.05.2017 в 04:20
KuklP Дата: Вторник, 16.05.2017, 07:59 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2340
Репутация: 479 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 3
        If Target.Value = "готов" Then
            Cells(Target.Row, 1).Resize(, 3).Copy Cells(Rows.Count, 13).End(xlUp)(2)
            Cells(Target.Row, 1).Resize(, 3).Delete xlUp
        End If
    Case 1, 2
        If Application.CountA(Cells(Target.Row, 1).Resize(, 2)) = 2 Then _
           [a1].CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
         , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
           False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
                    :=xlSortNormal
    End Select
End Sub
[/vba]
К сообщению приложен файл: 4649419.xlsm(27Kb)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 3
        If Target.Value = "готов" Then
            Cells(Target.Row, 1).Resize(, 3).Copy Cells(Rows.Count, 13).End(xlUp)(2)
            Cells(Target.Row, 1).Resize(, 3).Delete xlUp
        End If
    Case 1, 2
        If Application.CountA(Cells(Target.Row, 1).Resize(, 2)) = 2 Then _
           [a1].CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
         , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
           False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
                    :=xlSortNormal
    End Select
End Sub
[/vba]

Автор - KuklP
Дата добавления - 16.05.2017 в 07:59
Elvira66 Дата: Среда, 17.05.2017, 16:10 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Супер! То что надо! Спасибо!
 
Ответить
СообщениеСупер! То что надо! Спасибо!

Автор - Elvira66
Дата добавления - 17.05.2017 в 16:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос перенос пункта, если он готов в другую таблицу (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!