Добрый день, лучшие умы! Есть задача, во вложении из листа "прайс" по двойному клику переносится строка в лист "КП". Переносится она под шапочку таблицы, что удобно в моем случае Но мне нужно, чтобы переносилась не вся строка, а только первые 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]
Добрый день, лучшие умы! Есть задача, во вложении из листа "прайс" по двойному клику переносится строка в лист "КП". Переносится она под шапочку таблицы, что удобно в моем случае Но мне нужно, чтобы переносилась не вся строка, а только первые 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]
Код
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] Если "под шапочку", то мой код из предыдущего Вашего вопроса прекрасно работает
в первую незаполненную строку? Если на лист, то [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_