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

[Riddick]

Здравствуйте уважаемые форумчане.

Как в Excel 2003 перенести строку с одного листа на другой по двойному клику левой кнопкой мыши?

ЗЫ Заранее благодарю.

[EducatedFool]

Какую строку переносить - понятно (ту, по которой выполнялся щелчок)

А вот в какое место на другом листе вставлять - непонятно.
Может, ниже последней заполненной строки?

Правой кнопкой на ярлычке листа - пункт Исходный текст - вставляем код:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True ' отменяем редактирование ячейки по двойному щелчку
    Target.EntireRow.Copy Worksheets(2).Rows(10) ' копируем на место 10-й строки второго листа
End Sub

PS: Вообще, такие темы лучше создавать в разделе Microsoft Office Excel

[Riddick]

Сообщение от EducatedFool

Какую строку переносить - понятно (ту, по которой выполнялся щелчок)

А вот в какое место на другом листе вставлять - непонятно.
Может, ниже последней заполненной строки?

Точно так, немного условие не дописал.

[EducatedFool]

Пощелкайте на первом листе в этом примере, и время от времени глядите на лист Результат:



Вот весь код:

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

[Riddick]

Спасибо за помошь.

Еще вопросик:

Вот допустим я кликаю два раза по строке - строка переносится, а как сделать, чтобы ячейки выбранной строки переносилились в определенные ячейки друго листа?

[EducatedFool]

как сделать, чтобы ячейки выбранной строки переносилились в определенные ячейки друго листа?

Тут ничем помочь не могу - это вопрос для телепатов.

Откуда мне знать, как перенести непонятно что непонятно куда...
Ячеек-то и в строке дофига, а на листе - ещё больше.

[Riddick]

Сообщение от EducatedFool

Тут ничем помочь не могу - это вопрос для телепатов.

Откуда мне знать, как перенести непонятно что непонятно куда...
Ячеек-то и в строке дофига, а на листе - ещё больше.

Извините не правильно сформулировал вопрос.

Попробую поснить:

Вот я кликнул по строке и надо чтобы первая ячейка(строки по которой я кликнул) перенеслась в 6 строку 3 ячейку(другого листа).
Так же если кликается еще раз строка повторялось тоже самое только уже в 7 строку 3 ячейку.

Вот что смог придумать:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.EntireRow.Cells(1).Copy Worksheets("Товарный чек").Range("C" & Rows.Count).End(xlUp).Offset(6)
End Sub

Правильно ли?

[EducatedFool]

Правильнее будет так:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.EntireRow.Cells(1).Copy Worksheets("Товарный чек").Range("C" & Rows.Count).End(xlUp).Offset(1)
End Sub

Одно условие - перед началом сбора строк 3-я ячейка в 5-й строке должна содержать значение.
Если её по каким-то причинам заполнить нельзя, то надо делать проверку:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Dim ЯчейкаДляВставки As Range
    Set ЯчейкаДляВставки = Worksheets("Товарный чек").Range("C" & Rows.Count).End(xlUp).Offset(1)
    If ЯчейкаДляВставки.Row < 6 Then Set ЯчейкаДляВставки = ЯчейкаДляВставки.EntireColumn.Cells(6)
    Target.EntireRow.Cells(1).Copy ЯчейкаДляВставки
End Sub

[Riddick]

Спс большое за помощь.

ЗЫ Теперь понял зачем нужен Offset(1)