Изменение направления заполнения

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение направления заполнения (Формулы/Formulas)

artika2000

Дата: Среда, 24.02.2016, 13:00 | Сообщение № 1

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

Ранг: Участник

Сообщений: 66

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

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

Excel 2013

Добрый день.
Прошу помочь с написанием части кода, а именно есть исходный:
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D2:M" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
rw = Target.Row
If Selection.Address = "$D$" & rw & ":$M$" & rw Then
With Sheets("Лист2")
Selection.Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Beep
End With
End If
End If
End Sub

[/vba]

Идет заполнение строк на "Лист 2" в первую пустую ячейку, всегда новую
Помогите пожалуйста правильно написать код чтобы заполнение проходило всегда в 25 строку на "Лист 2", а предидущие значения опускализь вниз.
Пробовал реализовать так, вставлял новую строку в Лист 2, старые строки при этом просто сдвигаются вниз:
[vba]

Код

Sheets("Лист2").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

[/vba]
#
а вот как в эту 2ую строку записать результат, если код выполняется- не знаю.
С уважением, Артем
[moder]Для оформления кода используйте кнопку #. Исправила на первый раз[/moder]