Вставка данных по двойному клику

[krot12348]

Копирование текста из разных столбцов в один по двойному клику. Вроде всё просто, но если не знаешь VBA это капец. Прошу помощи.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [A:C]) Is Nothing Then
       Cancel = True: Target.Copy [H1]
    End If
End Sub

Сейчас всё копирование происходит в первую ячейку столбца Н1, нужно сделать с 5 ячейки стобца Н1,и что бы запись была по подядку (в последнюю свободную ячейку списка.)
Буду благодарен за помощь.

Нашел код определения последней пустой строки, правильно это или нет не знаю, и куда его впихнуть.

Dim LastRow As Long 'указал переменную
LastRow = raw_data_list.Cells(Rows.Count, 8).End(xlUp).Row 'LastRow = последный номер строки в столбце H

[Aleksandr H.]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LastRow As Long 'указал переменную
LastRow = Cells(Rows.Count, 8).End(xlUp).Row + 1 'LastRow = последный номер строки в столбце H
    If Not Intersect(Target, [A:C]) Is Nothing Then
       Cancel = True: Target.Copy Range("H" & LastRow)
    End If
End Sub

[krot12348]

Большое человеческое спасибо, работает отлично, Ведь нашел почти всё по запчастям, а собрать не смог.

[krot12348]

Всем привет, прошу помощи.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LastRow1 As Long 'указал переменную
Dim LastRow2 As Long 'указал переменную
LastRow1 = Cells(Rows.Count, 3).End(xlUp).Row + 1 'LastRow = последный номер строки в столбце B
    If Not Intersect(Target, [G2:G10]) Is Nothing Then
       Cancel = True: Target.Copy Range("B" & LastRow1)
    End If
LastRow2 = Cells(Rows.Count, 3).End(xlUp).Row + 1 'LastRow = последный номер строки в столбце С
    If Not Intersect(Target, [H2:H10]) Is Nothing Then
       Cancel = True: Target.Copy Range("C" & LastRow2)
    End If
End Sub

Из столбцов "F" и "G" двойным кликом переносим данные в левую таблицу, собственно вопрос:
как сделать, чтобы при двойном клике ячейки столбца "G" добавлялись данные из ячеек столбца "I" и "J" в столбцы "С" и "D", как то так вроде .
Код у меня тока со столбцом "F" работает, дальше не получается, без помощи не смогу,прошу помочь, пожалуйста.

[krot12348]

На миниатюру не обращайте внимания, я её убрать не смог.

[IgorGO]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, [G:H]) Is Nothing Then
     Cancel = True: Target.Copy cells(rows.count, target.column-5).end(xlup).offset(1)
  End If
End Sub

[krot12348]

IgorGO, Привет, спасибо за ответ, миниатюрный код получился. Код в 4 сообщении тоже работает так, выглядит ужасно конечно но работает, вопрос то в другом был "

при двойном клике ячейки столбца "G" добавлялись данные из ячеек столбца "I" и "J" в столбцы "С" и "D

", я может не так выражаюсь , скорее всего скриншот еще ввел в заблуждение, я его вчера не смог удалить. Посмотри еще пожалуйста, сам просто не смогу сделать.

[IgorGO]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, [G:G]) Is Nothing Then
     Cancel = True:
     Target.Offset(, 2).Copy Cells(Rows.Count, 3).End(xlUp).Offset(1)
     Target.Offset(, 3).Copy Cells(Rows.Count, 4).End(xlUp).Offset(1)
  End If
End Sub

[krot12348]

IgorGO, Спасибо большое, все работает, буду делать ребусы для дочки, еще раз большое спасибо.