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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение направления заполнения - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение направления заполнения (Формулы/Formulas)
Изменение направления заполнения
artika2000 Дата: Среда, 24.02.2016, 13:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 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]


Сообщение отредактировал Pelena - Среда, 24.02.2016, 13:04
 
Ответить
СообщениеДобрый день.
Прошу помочь с написанием части кода, а именно есть исходный:
[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]

Автор - artika2000
Дата добавления - 24.02.2016 в 13:00
KuklP Дата: Среда, 24.02.2016, 13:48 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Примерно так:
[vba]
Код
With Sheets("Лист2")
.Range("25:25").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Copy .Cells(25, 1)
Beep
End With
[/vba]


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПримерно так:
[vba]
Код
With Sheets("Лист2")
.Range("25:25").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Copy .Cells(25, 1)
Beep
End With
[/vba]

Автор - KuklP
Дата добавления - 24.02.2016 в 13:48
artika2000 Дата: Среда, 24.02.2016, 17:03 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KuklP, спасибо Вам за скорый ответ!
Все работает.
С уважением, Артем
 
Ответить
СообщениеKuklP, спасибо Вам за скорый ответ!
Все работает.
С уважением, Артем

Автор - artika2000
Дата добавления - 24.02.2016 в 17:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение направления заполнения (Формулы/Formulas)
Страница 1 из 11
Поиск:

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