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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос части строки по двойному клику - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос части строки по двойному клику (Макросы/Sub)
Перенос части строки по двойному клику
Goodzel Дата: Пятница, 20.07.2018, 15:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 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
 
Ответить
СообщениеДобрый день, лучшие умы!
Есть задача, во вложении из листа "прайс" по двойному клику переносится строка в лист "КП". Переносится она под шапочку таблицы, что удобно в моем случае
Но мне нужно, чтобы переносилась не вся строка, а только первые 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]

Автор - Goodzel
Дата добавления - 20.07.2018 в 15:17
_Boroda_ Дата: Пятница, 20.07.2018, 15:27 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12761
Репутация: 5228 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вы определитесь уже как-то - Вам
под шапочку таблицы
или на лист
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
 
Ответить
СообщениеВы определитесь уже как-то - Вам
под шапочку таблицы
или на лист
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]
Если "под шапочку", то мой код из предыдущего Вашего вопроса прекрасно работает

Автор - _Boroda_
Дата добавления - 20.07.2018 в 15:27
Goodzel Дата: Понедельник, 23.07.2018, 14:45 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Goodzel
Дата добавления - 23.07.2018 в 14:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос части строки по двойному клику (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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