Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C5")) Is Nothing Then Call дз End If End Sub Sub дз() Range("A6").Rows("1:1").EntireRow.Insert вставляет строку ниже нужной
End Sub
[/vba]
КОД КОТОРЫЙ НАХОДИТСЯ ЗДЕСЬ. ЧТО он делает, добавляет новую строку под строкой 6, при изменении значения в ячейке с количеством ( С5). ЧТО НУЖНО: нужно чтобы строка добавлялась не прямой ссылкой как сейчас А6, а добавлялась после той строки или над той строкой, в которой сейчас ,ведется работа, т.е., если я сейчас работаю в строке пять, то подставлялась над илди под строку 5,а если я работаю в строке 7, то над 7 или под 7, причем, строка должна копировать все значения всех ячеек, в связи с тем, что там ссылки и формулы, которые всегда будут одинаковы для каждой категории (Поставки товара, Товары),все значения привязаны к выпадающему списку, он работает, я его настроил, описание тоже заполняетс, цена и сумма тоже, количество в ручную проставляем.
Нужно только добавить строку со всеми формулами и ссылками, над или под ту строку которая была активна
Здравствуйте. Помогите! ЭТО [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C5")) Is Nothing Then Call дз End If End Sub Sub дз() Range("A6").Rows("1:1").EntireRow.Insert вставляет строку ниже нужной
End Sub
[/vba]
КОД КОТОРЫЙ НАХОДИТСЯ ЗДЕСЬ. ЧТО он делает, добавляет новую строку под строкой 6, при изменении значения в ячейке с количеством ( С5). ЧТО НУЖНО: нужно чтобы строка добавлялась не прямой ссылкой как сейчас А6, а добавлялась после той строки или над той строкой, в которой сейчас ,ведется работа, т.е., если я сейчас работаю в строке пять, то подставлялась над илди под строку 5,а если я работаю в строке 7, то над 7 или под 7, причем, строка должна копировать все значения всех ячеек, в связи с тем, что там ссылки и формулы, которые всегда будут одинаковы для каждой категории (Поставки товара, Товары),все значения привязаны к выпадающему списку, он работает, я его настроил, описание тоже заполняетс, цена и сумма тоже, количество в ручную проставляем.
Нужно только добавить строку со всеми формулами и ссылками, над или под ту строку которая была активнаДимарик
Димарик, Здравствуйте, Процедуре дз надо просто передать номер Таргет строки [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 3 Then Call дз(Target.Row) End Sub Sub дз(lRowNum&) Rows(lRowNum + 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove End Sub
[/vba]
Димарик, Здравствуйте, Процедуре дз надо просто передать номер Таргет строки [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 3 Then Call дз(Target.Row) End Sub Sub дз(lRowNum&) Rows(lRowNum + 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
