Смещение данных на строку ниже по условию из выпад. списка..

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Смещение данных на строку ниже по условию из выпад. списка.. (Макросы/Sub)

Alfa

Дата: Воскресенье, 18.01.2015, 20:55 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Есть таблица (Лист Задачи), в которой ведется учет сотрудников, назначенных на Объекты. На каждый объект назначается сотрудник в столбце F. В столбцах G:АK планируются часы работы сотрудников. Бывают ситуации, когда основной работник уходит в отпуск и на Объект нужно назначить дополнительного работника . В столбце E, на против основного сотрудника, выбирается из выпадающего списка "треб. подмена", например, в строке 6 (E6). После этого выбора нужно, что бы срабатывал макрос, который сместит на строку ниже информацию из диапазона A7:AK (последняя не пустая строка), т.е. на A8:AK. А в строку 7 продублирует часть строки 6 - диапазон A6: D6
Есть макрос, который просто переносит информацию по кнопке. Помогите доработать его под мою задачу, если такое вообще возможно

К сообщению приложен файл: 000111copy.xlsm (78.2 Kb)

Ответить

JayBhagavan

Дата: Понедельник, 19.01.2015, 12:49 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

Репутация: 27 ±

Замечаний: 0% ±

Excel 2010

Alfa, в модуль листа "Задачи":[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Intersect(Range([E5], [E1].Offset([E:E].Rows.Count - 1)), UsedRange), Target) Is Nothing _
     And Target.Count = 1 Then
         If Target.Value = "треб. подмена" Then
             Application.EnableEvents = False
             curr_row = Target.Row
             next_row = curr_row + 1
             Rows(next_row).Insert Shift:=xlDown
             Range("A" & curr_row & ":D" & next_row).FillDown
'            Range("A" & next_row & ":D" & next_row).Select
             Application.EnableEvents = True
     End If: End If
End Sub

[/vba]Замечание: относительные ссылки формул новой строки смещаются на единицу в новой строке. Если так и надо, то и ладно, иначе - озвучьте как надо.