Перенос части строки по двойному клику

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос части строки по двойному клику (Макросы/Sub)

Goodzel

Дата: Пятница, 20.07.2018, 15:17 | Сообщение № 1

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

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

Сообщений: 25

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

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

Excel 2016

Добрый день, лучшие умы!
Есть задача, во вложении из листа "прайс" по двойному клику переносится строка в лист "КП". Переносится она под шапочку таблицы, что удобно в моем случае
Но мне нужно, чтобы переносилась не вся строка, а только первые 9 столбцов, т.к. в листе КП у меня еще дальше считаются формулы, а перенос всей строки ведет к их удалению
Помогите, пожалуйста, дополнить код!!!!

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.EntireRow.Copy Worksheets("КП").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

[/vba]

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

Сообщение отредактировал Goodzel - Пятница, 20.07.2018, 15:18

Ответить

_Boroda_

Дата: Пятница, 20.07.2018, 15:27 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Вы определитесь уже как-то - Вам

Цитата Goodzel, 20.07.2018 в 15:17, в сообщении № 1 ()

под шапочку таблицы

или на лист

Цитата Goodzel, 20.07.2018 в 15:17, в сообщении № 1 ()

Worksheets("КП")

в первую незаполненную строку?
Если на лист, то
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Cells(Target.Row, 1).Resize(1, 9).Copy Worksheets("КП").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

[/vba]
Если "под шапочку", то мой код из предыдущего Вашего вопроса прекрасно работает

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Goodzel

Дата: Понедельник, 23.07.2018, 14:45 | Сообщение № 3

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

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

Сообщений: 25

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

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

Excel 2016

_Boroda_, гениально!!! от всего сердца говорю! спасибо большое!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос части строки по двойному клику (Макросы/Sub)

Страница 1 из 1
1